テーブルと繋がっているコンボボックスのフィールドで名前の検索をかけて抽出されるようにするには

Question

実現したいこと

テーブルを参照したコンボボックスのフィールドで、主キーのフィールドでなく別フィールドの文字列で検索して出てくるようにしたい。

前提

ACCESSで発注書の一覧を検索する機能を制作しており、発注ID、発注日、発注者、発注先などから検索フィールドを選択して、検索文字列のテキストボックスに入力した単語からLike検索でフィルターをかけて抽出するようにしています。
しかし、その中の発注先は発注先一覧のテーブルを参照にしており、そのせいか検索文字列では参照元テーブルの主キーフィールドの発注先IDの文字列でしか抽出されなくなっており、それに続くフィールドの発注先の名前を入力して検索した場合、検索機能に認識されず何も出てこない状態になっております。
主キーフィールドの発注先IDでなく、発注先名の方で検索をかけて出るようにしたいのですが、何かいい解決方法はありますでしょうか。
ValueをTextに替えるのは行いましたが、それでも発注先IDの方で認識されるのは変わりませんでした。
分かりにくい質問ですがどうぞよろしくお願いします。

発生している問題・エラーメッセージ

検索対象フィールドの中に、発注先のコンボボックスが存在するのだが、そのコンボボックスは発注先リストのテーブルと繋がっている。
そのせいか、発注先のコンボボックスを指定して検索した場合、テーブルの主キーフィールドの発注先IDで検索しないと出てこない。

該当のソースコード

Private Sub コマンド31_Click()

Dim db As DAO.Database 'データベースへの参照を代入する変数を宣言する
Dim rs As DAO.Recordset 'レコードセットへの参照を代入する変数を宣言する

Set db = CurrentDb() '現在のデータベースを参照する
'「Q_発注」クエリを開きレコードセットを再設定する
Set rs = db.OpenRecordset("Q_発注", dbOpenDynaset)
'リストから選択された検索フィールドで指定された検索文字列を検索する。
rs.Filter = Me.検索フィールド.Value & " LIKE '" & Me.検索文字列.Value & "'"
End If
Set rs = rs.OpenRecordset

Set Me.Recordset = rs

Me.Requery

End Sub

試したこと

検索フィールド.SetFocus
rs.Filter = Me.検索フィールド.Text & " LIKE '" & Me.検索文字列.Value & "'"

5行目を検索フィールドのコンボボックスをTEXTとして検索するこのコードに置き換えたが、それでも出てこなかった。

Answer 1

しかし、その中の発注先は発注先一覧のテーブルを参照にしており、そのせいか検索文字列では参照元テーブルの主キーフィールドの発注先IDの文字列でしか抽出されなくなっており、

「検索文字列」コンボボックスには発注先名を入力または選択しているが、このValueが発注先IDになっているということでしょうか。
だとしたら、コンボボックスは下記のような設定になっていると思われます。

連結列 1
列数 ２
列幅 ０cm, 3cm
値集合ソースのテーブルのフィールドは先頭から、発注先ID, 発注先名

この場合は、コンボボックスに表示されるのは発注先名ですが、連結している値は１列目の発注先IDになります。
まずは、このコンボボックスの仕様を理解してください。

対策としては、連結列を２にすれば２列目と連結しますので、Value は発注先名となります。
あるいは、連結列は１としたままで、Me.検索文字列.Colums(1) とすれば２列目の発注先名を取得できます。

rs.Filter = Me.検索フィールド.Value & " = '" & Me.検索文字列.Colums(1) & "'"

この場合、Me.検索フィールド.Value は「発注先名」になっているようにする。
また、ワイルド文字のない完全一致検索になってますので Like演算子ではなく=演算子でOKです。

ただし、データベース的にはキーフィールドであるIDで検索した方が高速なので、コンボボックスは現状のままにしておいて、発注先IDフィールドを検索対象にするほうがいいでしょう。

rs.Filter = Me.検索フィールド.Value & " = '" & Me.検索文字列.Value & "'"

Me.検索フィールド.Value は 「発注先ID」になっているようにする。

Answer 2

発注ID、発注日、発注者、発注先などから検索フィールドを選択して
'「Q_発注」クエリを開きレコードセットを再設定する

　「発注ID、発注日、発注者、発注先発注先名などから検索フィールドを選択して」となるように、Q_発注の表示フィールドを変更するのはどうでしょう。

テーブルと繋がっているコンボボックスのフィールドで名前の検索をかけて抽出されるようにするには

　もし、新しいコンボボックスを追加して、という単純な話であれば、発注先一覧テーブルを元にクエリを作成、発注先名の抽出条件にフォームの検索テキストボックスをLike指定した上で、それを参照するのでしょうが。