スキルアップ・問題解決なら、モーグにおまかせ！

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

どのテキストボックスをコンボボックスに変換したのですか。
また、そのコンボボックスの設定はどうなってますか。
下記の設定を提示してください。
 
コントロールソース
価集合ソース
連結列
列数
列幅

早速の返信ありがとうございます。下記の通りテキストボックスからコンボボックスに変更したいと思っております。
 
txt県市町村→cbo県市町村に変更したい
 
名前：cbo県市町村
コントロールソース ：非連結
価集合ソース ：SELECT [T_県市町村].[県市町村ID], [T_県市町村].[県市町村] FROM [T_県市町村] ORDER BY [県市町村ID];
連結列 ：1
 列数 ：2
 列幅 ：0cm;2.54cm
 
 
txt課事務所→cbo課事務所に変更したい
 
名前：cbo課事務所
コントロールソース： 非連結
価集合ソース ：SELECT [T_発注者事務所].[事務所ID], [T_発注者事務所].[事務所] FROM T_発注者事務所 ORDER BY [事務所];
連結列 ：1
 列数 ：2
 列幅 ：0cm;2.54cm
 
 
txt工事名→cbo工事名に変更したい
 
名前：cbo工事名
コントロールソース ：非連結
価集合ソース ："建築";"電気";"機械"
連結列 ：1
 列数 ：1
 列幅 ：2.54cm
 
 
txt工事種目→cbo工事種目に変更したい
 
名前：cbo工事種目
コントロールソース ：非連結
価集合ソース ：SELECT [T_工事種目].[工事種目ID], [T_工事種目].[工事種目] FROM [T_工事種目] ORDER BY [工事種目];
連結列 ：1
 列数 ：2
 列幅 ：0cm;2.54cm
 
よろしくお願い致します。

とりあえず下記のコンボについて
 

名前：cbo県市町村 
コントロールソース ：非連結 
価集合ソース ：SELECT [T_県市町村].[県市町村ID], [T_県市町村].[県市町村] FROM [T_県市町村] ORDER BY [県市町村ID]; 
連結列 ：1 
 列数 ：2 
 列幅 ：0cm;2.54cm 
 

    If Not IsNull(Me.txt県市町村) Then 
        strFilter = strFilter & " AND T_案件名_県市町村 Like '*" & Me.txt県市町村 & "*'" 
    End If 

    If Not IsNull(Me.cbo県市町村) Then 
        strFilter = strFilter & " AND 県市町村ID = " & Me.cbo県市町村
    End If 

    If Not IsNull(Me.cbo県市町村) Then 
        strFilter = strFilter & " AND 県市町村ID = '" & Me.cbo県市町村 & "'"
    End If 

コンボボックスの仕様として、
  値集合ソースのレコードに含まれた値の中から【選択】します。
  これは逆に言うと、値集合ソースのレコードに含まれない物は選択できない事になります。
 
また
　コンボボックスで選択し表示されている値
　コンボボックスのValueプロパティーの値 ----- 値集合ソースの列を1列目から数え連結列に指定された値
 は別にする事が可能です。
 
 

hana_brenda さんの引用:
txt県市町村→cbo県市町村に変更したい
 
名前：cbo県市町村
コントロールソース ：非連結
価集合ソース ：SELECT [T_県市町村].[県市町村ID], [T_県市町村].[県市町村] FROM [T_県市町村] ORDER BY [県市町村ID];
連結列 ：1
 列数 ：2
 列幅 ：0cm;2.54cm

If Not IsNull(Me.txt県市町村) Then 
        strFilter = strFilter & " AND T_案件名_県市町村 Like '*" & Me.txt県市町村 & "*'" 

hatena 様、返信ありがとうございます。
県市町村IDは数値型ですので数値型の方で書き換えてみましたが、パラメーターの入力　県市町村IDと出てきてしまい、そのままOKすると検索結果が1件も表示されません。数値を入れてOKすると、全レコードが表示されています。ヘルプ等検索してみましたが原因がわかりませんでした。
 If Not IsNull(Me.cbo県市町村) Then
        strFilter = strFilter & " AND 県市町村ID = " & Me.cbo県市町村
    End If
 
Suzu様、返信ありがとうございます。これから挑戦してみます。

hana_brenda さんの引用:
hatena 様、返信ありがとうございます。
県市町村IDは数値型ですので数値型の方で書き換えてみましたが、パラメーターの入力　県市町村IDと出てきてしまい、そのままOKすると検索結果が1件も表示されません。数値を入れてOKすると、全レコードが表示されています。ヘルプ等検索してみましたが原因がわかりませんでした。
 If Not IsNull(Me.cbo県市町村) Then
        strFilter = strFilter & " AND 県市町村ID = " & Me.cbo県市町村
    End If

hatena様返信ありがとうございました。
レコードソースのテーブルに[県市町村ID]が含まれておりませんでした。テーブルに[県市町村ID]を入れたら検索できるようになりました。他のコンボボックスも成功しました。ありがとうございました。
 

Suzu様
何度かエラーが出ておりましたが、
 
  If Not IsNull(Me.cbo県市町村) Then
        strFilter = strFilter & " AND T_案件名_県市町村 = '" & Me.cbo県市町村.Column(1) & "'"
    End If
 
 If Not IsNull(Me.cbo課事務所) Then
        strFilter = strFilter & " AND T_案件名_課事務所 = '" & Me.cbo課事務所.Column(1) & "'"
    End If
で成功しました。
他のコンボボックスも挑戦してみます。
ありがとうございます。