サブフォームとの連携

[*****操作する場所*****]にコードなどを入力して、
サブフォームに検索結果を抽出する。
以下、作成手順を記す。


①：テーブルを作成する

↓↓↓↓↓↓

②：クエリを作成する。
このクエリには抽出条件を明記しておく
　例1）完全一致の場合
　　　[Forms]![*****フォーム名*****]![*****操作する場所*****]

　例2）一部一致の場合
　　　Like "*" & [Forms]![*****フォーム名*****]![*****操作する場所*****] & "*"


↓↓↓↓↓↓

③：フォームを作成する。
②のクエリを用いてサブフォームを作成する。
（②で指定した[*****操作する場所*****]を作成する）

↓↓↓↓↓↓

④：③のフォームにVBAで次のコードを入力して、
フォームを読み込んだ場合に更新するようにする。

Private Sub Form_Load()
  Me.Recalc
End Sub

↓↓↓↓↓↓

⑤：③で作成したフォーム（②で指定した[*****操作する場所*****]）に値が入力された場合、

フォームを更新する設定をする為、

VBAで次のコードを入力する。

Private Sub [*****操作する場所*****]_AfterUpdate()
  Me.Recalc
End Sub