VBA
検索
access

テキストボックスでの検索機能

Private Sub 抽出_Click()
Dim fstr, flg

fstr = ""
flg = 0

If Len([Forms]![F案件管理]![会社名テキスト]) > 0 Then
    If flg = 1 Then fstr = fstr & " and "
    fstr = "会社名 Like '*" & [Forms]![F案件管理]![会社名テキスト] & "*'"
    flg = 1
End If

If Len([Forms]![F案件管理]![担当者名テキスト]) > 0 Then
    If flg = 1 Then fstr = fstr & " and "
    fstr = "担当者名 Like '" & [Forms]![F案件管理]![担当者名テキスト] & "*'"
    flg = 1
End If

If Len([Forms]![F案件管理]![紹介者名テキスト]) > 0 Then
    If flg = 1 Then fstr = fstr & " and "
    fstr = "紹介者名 Like '*" & [Forms]![F案件管理]![紹介者名テキスト] & "*'"
    flg = 1
End If


If flg = 1 Then
    Forms!F案件管理.Filter = fstr
    Forms!F案件管理.FilterOn = True
End If

End Sub