検索フィールドの基準を使用し、それ以外の、など

Question

は、私は私の[発注書のリスト]テーブルにバインドされたフォームから私の[部品名リスト]テーブルを検索しますVBAでコマンドを必要とする両方のテーブルを持っている

[部品名]と[部品名リスト]テーブルの上に、それは私が運転を検索する必要が----

を重複されることはありません----

操作は、[6つの異なるフィールドに格納されています部品名リスト]、[OP1]、[OP2]、ect

購入オーダーフォームには9チェックボックスで表されるキーワードは、すべてのOPに正確なキーワードの1つが含まれている必要があります。いくつかのケースでは、複数のインスタンスを持つことができます。たとえば、これら

Answer 1

私は、私はあなたが求めているものを理解して完了していないんだけど、これはあなたをオフに開始する可能性があります：

Dim i As Integer 
Dim strWHERE As String 
Dim strSQL As String 

strWHERE = "" 

For i = 1 To 9 
    If Me("OP" & i) = True Then 
     strWHERE = strWHERE & "'" & Me("OP" & i).Tag & "'," 
    End If 
Next i 

If strWHERE <> "" Then 
    strWHERE = Left(strWHERE, Len(strWHERE) - 1) 
    strSQL = "SELECT OP1 AS Operation FROM [part name list] WHERE OP1 IN (" & strWHERE & ") " & _ 
     "UNION SELECT OP2 AS Operation FROM [part name list] WHERE OP2 IN (" & strWHERE & ") " & _ 
     "UNION SELECT OP3 AS Operation FROM [part name list] WHERE OP3 IN (" & strWHERE & ") " & _ 
     "UNION SELECT OP4 AS Operation FROM [part name list] WHERE OP4 IN (" & strWHERE & ") " & _ 
     "UNION SELECT OP5 AS Operation FROM [part name list] WHERE OP5 IN (" & strWHERE & ") " & _ 
     "UNION SELECT OP6 AS Operation FROM [part name list] WHERE OP6 IN (" & strWHERE & ")" 
    'open recordset 
End If 

これはあなたの購入のために選択したキーワードのいずれかに一致するすべての操作を取得します。サンプル出力がなければ、それが必要なものかどうかは分かりません。

[部分名]に一致する必要がある場合は、WHERE条件にも一致させることができます。