VBA SQL文でLike演算子　その２

mySQL = “SELECT W_部品マスタ.部品コード, W_部品マスタ.部品名, W_部品マスタ.部品形式, W_部品マスタ.部品定格, W_部品マスタ.部品NET単価, W_部品マスタ.部品単価, W_部品マスタ.部品区分, W_部品マスタ.盤種別引込 FROM W部品マスタ WHERE (((W_部品マスタ.部品名) Like ” & “‘” & [Forms]![F部品一覧入力]![txtYOMI] & “*’ ) AND ((W_部品マスタ.部品区分)= ‘部品’ Or (W_部品マスタ.部品区分)=’親部品’) AND ((W_部品マスタ.盤種別_引込)=1));”

の「where句」の中

WHERE (((W_部品マスタ.部品名) Like ” & “‘” & [Forms]![F部品一覧入力]![txtYOMI] & “*’ ) AND ((W_部品マスタ.部品区分)= ‘部品’ Or (W_部品マスタ.部品区分)=’親部品’) AND ((W_部品マスタ.盤種別_引込)=1));”

文字列型のフォーム値をシングルクォーテーションで囲むとき、アスタリスクも含める必要がある。

ここでいつも時間がかかってしまう。