Access活用講座:サブフォームの連携２.フォーム設計 ・メインフォーム「個人名簿」 「T顧客」テーブルとフィールド連結のフォームを作成します。 その下に検索するテキストボックスとコマンドボタンを作成します。 コマンドボタンをクリックするとサブフォームにLike演算子でフィルタをかけるようにします。 Private Sub 検索Cmd1_Click() Me!個人名簿Sub.Form.FilterOn = True Me!個人名簿Sub.Form.Filter = "[顧客名] Like '" & Me!名前検索Txt & "*'" End Sub Private Sub 検索Cmd2_Click() Me!個人名簿Sub.Form.FilterOn = True Me!個人名簿Sub.Form.Filter = "[フリガナ] Like '" & Me!カナ検索Txt & "*'" End Sub Private Sub 検
