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