access初心者です。見よう見まねで下記のVBAで複数のテキストボックスからあいまい検索ができるようになりました。いくつかをコンボボックスに変更したいのですが、コンボボックスにすると検索できなくなってしまいます。テキストボックス名部分をコンボボックス名に変更するだけではだめなのでしょうか?ご教示ください。
Private Sub com抽出_Click()
Dim strFilter As String, strExp As String, aryOpe As Variant
If Not IsNull(Me.txt県市町村) Then
strFilter = strFilter & " AND T_案件名_県市町村 Like '*" & Me.txt県市町村 & "*'"
End If
If Not IsNull(Me.txt部局) Then
strFilter = strFilter & " AND T_案件名_部局 Like '*" & Me.txt部局 & "*'"
End If
If Not IsNull(Me.txt課事務所) Then
strFilter = strFilter & " AND " & BuildCriteria("T_案件名_課事務所", dbText, _
"*" & Replace(StrConv(Me.txt課事務所, vbWide), " ", "* Or *") & "*")
End If
If Not IsNull(Me.txt案件名) Then
strFilter = strFilter & " AND " & BuildCriteria("案件名", dbText, _
"*" & Replace(StrConv(Me.txt案件名, vbWide), " ", "* Or *") & "*")
End If
If Not IsNull(Me.txt工事名) Then
strFilter = strFilter & " AND " & BuildCriteria("工事名", dbText, _
"*" & Replace(StrConv(Me.txt工事名, vbWide), " ", "* Or *") & "*")
End If
If Not IsNull(Me.txt工事種目) Then
strFilter = strFilter & " AND " & BuildCriteria("工事種目", dbText, _
"*" & Replace(StrConv(Me.txt工事種目, vbWide), " ", "* Or *") & "*")
End If
If Not IsNull(Me.txt名称) Then
strFilter = strFilter & " AND " & BuildCriteria("名称", dbText, _
"*" & Replace(StrConv(Me.txt名称, vbWide), " ", "* Or *") & "*")
End If
If Not IsNull(Me.txt単価コード) Then
strFilter = strFilter & " AND " & BuildCriteria("単価コード", dbText, _
"*" & Replace(StrConv(Me.txt単価コード, vbWide), " ", "* And *") & "*")
End If
Me.Filter = Mid(strFilter, 6)
If strFilter = "" Then
Me.FilterOn = False
Else
Me.FilterOn = True
End If
End Sub