アクセスで困っています。 フォーム上にテキストボックスを設置し， そのテキストを検索ワードとしてレコードを抽出しようとしています。 レコードソースに入力する方式です。 以下のコードはきちんと動作しました。 Dim KENword As String KENword = [Forms]![Fその１]![検索ボックス] Me.RecordSource = "select * FROM テーブル WHERE (名前 like '*" & KENword & "*') or (所属 like '*" & KENword & "*')" さらに，likeの後ろを丸ごと変数にしたいと思い，次のように書きました。 Dim KENword As String Dim KENlike As String KENword = [Forms]![Fその１]![検索ボックス] KENlike = "'*" & KENword & "*'" Me.RecordSource = "select * FROM テーブル WHERE (名前 like KENlike) or (所属 like KENlike)" しかしこうすると， パラメーターの入力 KENlike の画面が出てしまいます。 msgboxなども使って試したのですが， どこが間違っているか分からず困っています。 どう直せばよいのでしょうか。 教えていただけると助かります。
↧