ACCESS LIKE 演算子　ワイルドカードで部分検索のとき

VBAのソースコード内で、名前のよみがなの最初の何文字かで抽出して、抽出ボタンをクリックすると、サブフォームのレコードセットを切り替えるという機能。

Private Sub cmdTYU_Click() ‘抽出ボタン（よみ検索）

Dim Str As String
Str = Me.txtYOMI.Value & “*”　→　ワイルドカード

Select Case Me!コンボ8.Value
Case 1
Me.宛名請負人.Form.RecordSource = “SELECT 請負人テーブル.請負人ID, 請負人テーブル.氏名, 請負人テーブル.ふりがな,請負人テーブル.宛名印刷 FROM 請負人テーブル WHERE ((請負人テーブル.[ふりがな]) Like ‘” & Str & “‘) ORDER BY 請負人テーブル.ふりがな;”
Case 2
Me.宛名請負人.Form.RecordSource = “SELECT 請負人テーブル.請負人ID, 請負人テーブル.氏名, 請負人テーブル.ふりがな,請負人テーブル.宛名印刷 FROM 請負人テーブル WHERE (((請負人テーブル.稼動)=True) AND ((請負人テーブル.[15払い])=True) AND ((請負人テーブル.[ふりがな]) Like ‘” & Str & “‘)) ORDER BY 請負人テーブル.ふりがな;”
Case 3
Me.宛名請負人.Form.RecordSource = “SELECT 請負人テーブル.請負人ID, 請負人テーブル.氏名, 請負人テーブル.ふりがな,請負人テーブル.宛名印刷 FROM 請負人テーブル WHERE (((請負人テーブル.稼動)=True) AND ((請負人テーブル.[15払い])=False) AND ((請負人テーブル.[ふりがな]) Like ‘” & Str & “‘)) ORDER BY 請負人テーブル.ふりがな;”
Case 4
Me.宛名請負人.Form.RecordSource = “SELECT 請負人テーブル.請負人ID, 請負人テーブル.氏名, 請負人テーブル.ふりがな ,請負人テーブル.宛名印刷 FROM 請負人テーブル WHERE ((請負人テーブル.[ふりがな]) Like ‘” & Str & “‘) ORDER BY 請負人テーブル.ふりがな; “

End Select

Me.宛名請負人.Requery

End Sub

「
Like ‘” & Str & “‘ 」のところで、引用符「’」をつけなかったことで長時間はまってしまった。