アクセスで、データベースを作成

質問

アクセスで、データベースを作成しています。
『検索するフィールド』
『検索する文字列』
『検索』

検索するフィールドには、列の項目がコンボボックスにより作成してあり検索したいフィールドを選択し検索する文字列を入力すると検索結果を表形式で表示できるようにしたいのですがうまくいきません。
上記3つは、F管理台帳内に作成されていて管理台帳は表形式で作成されています。
単独のあいまい検索はできたのですが。あ

回答No.5

piroin654 · ベストアンサー

『検索するフィールド』
『検索する文字列』
『検索』

>検索条件の捕捉なのですか『検索フィールド』で検索する
>項目を選択し検索する文字列を検索するのでコンボボックスは1個、
>テキストボックス1個と検索ぼたんになります。

なるほど、この部分の解釈が実は不安だったのですが、

Private Sub コマンド14_Click()
Me.FilterOn = True
Me.Filter = "[" & Me!cmb検索するフィールド & "] Like '*" & Me![tx検索する文字列] & "*' "
End Sub

のようなことですか？
コンボの名前、テキストボックスの名前は
そのままにしておきます。

お礼

お礼が、遅くなりすいません。
ありがとうございました。
無事、検索をすることが出来るようになりました。
こんな簡単な一文でできるようになるとは思ってもみませんでした。
まだまだ超初心者でやっと第一歩を踏む出せた感じの状態で今後機能を追加していく予定なので困ったらまた来ますのでよろしくお願いします。
今日は、ぐっすり寝れそうです（＾＾；

回答No.4

shinkami

コンポボックスの［プロパティー］－［書式］で設定します
添付の列幅をカンマ区切りで設定します。（表示したくないフィールドは０cm）
他の前後の項目も丁寧にチェックして下さい。

TEACUP.jpg

お礼

私の質問内容の書き方がわかりにくく申し訳ありませんでした。
知りたい内容が、ちょっぴり違っていましたが勉強になりました。
ありがとうございました。

回答No.3

shinkami

コンポボックスの［プロパティー］－［書式］で設定します
添付の列幅をカンマ区切りで設定します。（表示したくないフィールドは０cm）
他の前後の項目も丁寧にチェックして下さい。

回答No.2

m3_maki

こちらが参考になりませんか？

コンボボックスで選択したフィールドの検索をしたい
http://www.accessclub.jp/bbs3/0587/superbeg169417.html

お礼

内容は、近かったのですが私が初心者過ぎて理解できず申し訳ありません。
でも、参考になりました。
ありがとうございました。

回答No.1

piroin654

三つの条件で検索したい、ということで。

『検索するフィールド』
『検索する文字列』
『検索』

この三つはテーブルのフィールド名で、このフィールドは
F管理台帳にあるとします。

質問より、F管理台帳にコンボボックス、テキストボックスが
それぞれ、1個と2個あるものとします。この三つは非連結とし、
それぞれ名前を

『検索するフィールド』　　　　cmb検索するフィールド
『検索する文字列』　　　　　　tx検索する文字列
『検索』　　　　　　　　　　　tx検索

とします。名前は実際に合わせて変更してください。
フォームにボタンを一つ追加して、
以下のようにボタンクリック時のイベント
を設定します。

Private Sub コマンド14_Click()
Me.FilterOn = True
Me.Filter = "[検索するフィールド] Like '*" & Me![cmb検索するフィールド] & "*' "
Me.Filter = "[検索する文字列] Like '*" & Me![tx検索する文字列] & "*' "
Me.Filter = "[検索] Like '*" & Me![tx検索] & "*'"
End Sub

なお、

Me.Filter = "[検索するフィールド] Like '*" & Me![cmb検索するフィールド] & "*' "
Me.Filter = "[検索する文字列] Like '*" & Me![tx検索する文字列] & "*' "
Me.Filter = "[検索] Like '*" & Me![tx検索] & "*'"

は、Andを使って一つの文にできますが、
分かりやすく分解しておきます。一応一つに
すると以下のようになります。

Me.Filter = "[検索するフィールド] Like '*" & Me![cmb検索するフィールド] & "*' " & _
" And [検索する文字列] Like '*" & Me![tx検索する文字列] & "*' " & _
" And [検索] Like '*" & Me![tx検索] & "*'"

機能は三つにしても、一つにまとめても同じです。

補足

回答ありがとうございます。
やってみたのですがうまくいきません。
パラメーター入力が立ち上がって来るので何かがおかしいみたいです、
検索条件の捕捉なのですか『検索フィールド』で検索する項目を選択し検索する文字列を検索するのでコンボボックスは1個、テキストボックス1個と検索ぼたんになります。
なので上2つだけを書いてみたのですがダメでした。
再度、教示お願いします。