Access 有關VBA的問題 很緊急拜託一下囉 20點

Question

想請問我在ACCESS表單裡面，下面建了一個當成查詢的子表單，上面則是要有兩個文字方塊，想要用這兩個文字方塊輸入食材，進一步再下面子表單找出有這兩個食材的菜名，當我上面只有一個文字方塊時，我的VBA是Private Sub Text2_AfterUpdate()
Me.查詢3子表單.Requery
End Sub
以上這樣可以做查詢
但是當我多了一個文字方塊時，就不知道VBA該怎麼寫，又或者是否有其他的方式可以達成我想要查詢的方式呢?謝謝!

Answer 1

因為看不到你要篩選的詳細內容.所以只介紹你篩選子表單的方法.
Forms("表單名稱")!查詢3子表單.Form.Filter = 條件
Forms("表單名稱")!查詢3子表單.Form.FilterOn = True
Me!查詢3子表單.Requery

2006-12-21 10:33:01 補充：
既然你已經建好一個查詢.那就使用查詢:
1.到_查詢3
1.1菜名的準則輸入Like "*" & [Forms]![表單3]![Text2] & "*"
1.2食材名的準則輸入Like "*" & [Forms]![表單3]![Text4] & "*"
2:回表單試試看.
以上是打開表單時.子表單全部空白.
若子表單要先顯示紀錄.再篩選如下.

2006-12-21 10:38:22 補充：
1.1菜名的準則輸入
Like iif( [Forms]![表單3]![Text2]<>"","*" & [Forms]![表單3]![Text2] & "*","*")
1.2食材名的準則輸入
Like iif( [Forms]![表單3]![Text4]<>"","*" & [Forms]![表單3]![Text4] & "*","*")
text2與text4_AfterUpdate()
都是_Me!查詢3子表單.Requery
3:希望有幫上你的忙.有問題再聯繫.

2006-12-21 14:27:24 補充：
1:回查詢將準則全部刪除.
2:text2的AfterUpdate()
Me!查詢3子表單.Form.Filter = "*" & "食材 like '" & Me!Text2 & "*'"
Me!查詢3子表單.Form.FilterOn = True
Me!查詢3子表單.Requery
3:2:text4的AfterUpdate()
Me!查詢3子表單.Form.Filter = "*" & "菜名 like '" & Me!Text2 & me!Text4 & "*'"
Me!查詢3子表單.Form.FilterOn = True
Me!查詢3子表單.Requery