'-------------------------

Function コントロール()

'ダブルクリックすると、顧客名でフィルターして、フォームをオープンします。

  Dim Var抽出対象 As Variant

  Var抽出対象 = Me.顧客名

  Var抽出対象 = "[顧客名]=" & "'" & Var抽出対象 & "'"

  DoCmd.OpenForm "フォーム"

End Function