サブフォームのリクエリー

質問

accessにて開発を行ってるのですが・・・
まず、メインフォームとサブフォームがあり、メインフォームのテキストボックスに入力したデータにマッチしたデータのみをサブフォーム上に表示させるには・・・
ちなみに・・・

・サブフォームにはクエリーデータを常時表示
・メインフォームより入力があったらその条件でサブフォーム表示の更新

っていう感じです・・・よろしくお願いします。

回答No.2

nda23 · ベストアンサー

ウッカリしました。プロシージャ名が間違ってますね。
Private Sub neid_AfterUpdate()
　　　　　　　↓
Private Sub OYA_AfterUpdate()

というか、OYAのフィールドの「更新後処理」で、コードビルダを
起動し、プロシージャの皮だけ出来たら、中身をコピペするように
してください。
もし、そのようにやっているのにエラーになるとしたら、どの行で
エラーになるか示してください。

回答No.1

nda23

メインフォームのテキストボックス：OYA
サブフォーム：SF（レコードソースは"SELECT * FROM hoge"）
OYAの更新後処理で以下のようにする。
Private Sub neid_AfterUpdate()
Dim V, S
S = "SELECT * FROM hoge"
V = Me.OYA.Value
If IsNull(V) Then V = ""
If V <> "" Then
　　S = S & " WHERE key=" & V '★抽出条件を追加する
End If
Me.SF.Form.RecordSource = S '★レコードソースを変更する
End Sub
レコードソースを変更すると、自動的にリクエリがかかります。

お礼

さっそくの回答ありがとうございます。
さっそく試してみたのですが・・・「この操作はこのタイプのオブジェクトには実行できません。」・・とエラーになってしまいます。
どこが悪いのでしょうか？

補足

さっそくの回答ありがとうございます。
さっそく試してみたのですが・・・「この操作はこのタイプのオブジェクトには実行できません。」・・とエラーになってしまいます。
どこが悪いのでしょうか？