Access 任意の文字を含むレコードを検索したい

質問

すべてのレコードを表示する帳票形式のフォームのヘッダーに、非連結のテキストボックスにキーワードを入力して検索するコマンドボタンを設定し、検索対象のレコードを表示させたいと思っています。

特定のコントロールソースでの検索はできたのですが、すべてのコントロールソースの中から検索する方法がわかりません。
ご存じの方がいらっしゃったらお教えください。

【特定のコントロールソースでの検索でやったこと】
非連結のテキストボックスを作り、コマンドボタンのイベントプロシージャで次のように記述しました。

Private Sub cmd_検索_Click()

Me.Filter = "[非連結のテキストボックスの名前] Like " & " '*" & Me.特定のコントロースソースの名前 & "*'"
Me.FilterOn = True

End Sub

Filterを使った上記の方法は、Accessの本を参考にしました。
本では特定のコントロースソースについての検索だったので、そのまま使わせてもらったのですが、Visual Basicを勉強していないのでそれ以上のことは私には難しいです。この程度の私ですが、できる方法があれば教えてください。

よろしくお願いします。

回答No.1

6657 · ベストアンサー

やり方はいろいろあると思いますが、すべてのコントロールソースの中から検索するには、クエリーで全てのフィールドを連結させたフィールドを作りフォームに配置し検索すれば可能と思います。フィールド名:[フィールド1] & [フィールド2] & [フィールド3] のように連結させます。

お礼

おかげさまで無事設定ができました。
便利な機能ができて効率アップできそうです。
コントロールソースの結合とは目からうろこで、もっと勉強しようと思いました。
このたびはお世話になり、ありがとうございました。
大変感謝しております。

補足

> 6657さん
ありがとうございました。
コントロールソースを連結して一つのコンとロースソースにしてしまうやり方はシンプルで私にもできそうです。

今日、会社で早速やってみたのですがうまくいきませんでした。
まず、私が最初に質問で書いたイベントプロシージャの記述に誤りがありました。テキストボックスの名前とコントロールソースの名前が逆でした。実際は下のように書いてあります。

Private Sub cmd_検索_Click()

Me.Filter = "[特定のコントロースソースの名前] Like " & " '*" & Me.非連結のテキストボックスの名前 & "*'"
Me.FilterOn = True

End Sub

会社へは、データの持ち込みが禁止されているので紙にメモしていったのですが、そもそもここが間違っていたのでパラメータの入力を促され、検索結果もうまく表示されませんでした。

本来の業務に、こういう機能があれば仕事が楽になるかと思って自分でやってみていることなので就業前の時間にやっています。業務として指示されたことではないので、自分の時間で自分のできることでやってみようと思っているので、なかなか難しいです。

クエリで連結したコントロールソースを作成することはできました。「キーワード」と名前を付けました。

Private Sub cmd_検索_Click()

Me.Filter = "[キーワード] Like " & " '*" & Me.非連結のテキストボックスの名前 & "*'"
Me.FilterOn = True

End Sub

とすればうまくいくのではないかと思います。
また来週、月曜日に会社に行ってやってみます。
うまくできたらお礼を投稿して締め切ろうと思います。

ご回答、大変ありがとうございます。感謝いたします。

回答No.2

6657

コントロールソース「キーワード」のプロパティーを開き、書式の可視を　いいえ　にするとフォームビューで見えなくなります。頑張ってやってみてください。

お礼

ありがとうございます。
「キーワード」は見えなくていいですものね。
フォームがすっきりしました。