ACCESSのフォームで入力されたテキストを参照して、データを抽出するVBA
private Sub 検索_afterupdate()
Me.Filter="[顧客名] like '*" & Me!検索 & "*'"
Me.FilterOn = True
End Sub
ACCESSのフォームで入力されたテキストを参照して、データを抽出するVBA
private Sub 検索_afterupdate()
Me.Filter="[顧客名] like '*" & Me!検索 & "*'"
Me.FilterOn = True
End Sub