Ａｃｃｅｓｓで検索フォームを作成したいです。

質問

いつもお世話になっています。
Ａｃｃｅｓｓで検索フォームを作成したいのですが、webで調べてあてはめても上手くいきません。どうか、ご指導の程宜しくお願い致します。

（成分:テーブル）
ID 　　　 成分
1 　　　AAA
2 　　　 BBB
3 　　　 CCC
合計14レコードです。

（薬品と品番:テーブル）
薬品名　　　　成分
あああ AAA
いいい BBB
えええ BBB
あああ　　　 CCC
　　　　　　　　　　合計200レコードです。

検索フォームを作成したいのですが、薬品名（例:「あああ」）を入力すると同じフォーム内で「AAA」「CCC」・・・とすべて一覧表示されるようにするにはどうしたらいいのでしょうか？
Ａｃｃｅｓｓ初心者で、説明も物分りも悪いですがご指導の程宜しくお願い致します。
Ａｃｃｅｓｓ2002を使っています。

回答No.2

nicotinism · ベストアンサー

もう少しご自身でも頑張りましょうよ。
質問文にある、Access フォーム 検索 だけでもGoogleで相当な数がヒットします。
『教えてクン』にはなって欲しくはありません！
リンク先を参考に作ってみたものの、にっちもさっちも行かなくなってしまった・・
今はこうしています・・・・詳しい説明・・・。
ならレスも多いかと。

さてと
（薬品と品番:テーブル）
薬品名　成分
あああ AAA
いいい BBB
えええ BBB
あああ CCC
のテーブル・クエリ・フォームを対象とした場合。
>薬品名（例:「あああ」）を入力すると同じフォーム内で・・２００件だったら
『あああ』のレコードを探してクリック
ツールバーの、左上にロート右下に稲妻がデザインされているボタン（選択フィルタ）を
クリックすれば良いかと。
あるいは、あああ を探すの面倒なら
選択したいフィールド（質問では薬品名）のどこかで右クリックすれば
コンテキストメニューが出てきますので
そこに、フィルタの対象F: てのがありますので、そこに あああ を入力してEnter
すればフィルターが適用されます。解除はツールバーのロートマークにて。

検索フォームっぽくしたいのならフォームをデザインビューにして
フォームに非連結のテキストボックスを1個配置
仮に名前をFtxtとします。
このプロパティを開いて、更新後処理のところで三点リーダ（前回回答あり）をクリック
ここに
Private Sub Ftxt_AfterUpdate()
　　Me.Filter = ""
　　If IsNull(Me!Ftxt) Then　　’Ftxt が空欄ならフィルター解除
　　　　Me.FilterOn = False
　　Else
　　　　Me.Filter = "薬品名 = '" & Me!Ftxt & "'"
　　　　Me.FilterOn = True
　　End If
End Sub
フォームビューに戻って、Ftxtに あああ を入力後 Enter。
とかでは？、コンボボックスを使う手も有りますが、また別の機会に。
以下は独り言。
メールアドレスを公開するのは避けたほうが宜しいかと。。。
スパムメーラー屋さんが喜びます。
お互いに個人情報を開示することなくファイルのやり取りは出来んものですかね。
OKWAVEさん、Gooさん。

お礼

お答えちょうだい致しましてありがとうございます。ただ、ここまでは調べてソースを貼り付けてどうにかできていたのですが、ヒットしたデータを重複データは省いて一覧表示したいのと　新規データを追記できなくなってしまったのです。おっしゃいますようにたくさんヒットしたのですが、その通りに動作しないので、何か基本的なところでデータの作り方に問題があるのかと思いました。一からやり直してみます。
いつもありがとうございます。

回答No.3

layy

「Microsoft Access初心者入門講座」
http://ms-access.seesaa.net/
こういう少しでも図解のあるところで、できるところまでやってみるのも良いです。

選択クエリはわかりますか？。
選択クエリがわかるなら「フォームの値を使ってクエリの抽出条件にする」が有効です。
あと、サブフォームはわかりますか？。

あと、
メールで、という誘いがあっても掲載しないことですね。
メールで伝えることができればそれはそれで便利でしょうけど、
他の人は進行状況がわからなくなりますね。

お礼

お答えいただきまして、ありがとうございます。「Microsoft Access初心者入門講座」はときどき勉強しにお邪魔しています。なかなか解決にいたらなくて、でもその間にも新たな発見があったりで、私としてはヨシとしています。クエリについても理解が足らず、何か大きな間違いがあるのかもしれません。もう少し頑張っています。

回答No.1

noname#192382

二つのテーブルを成分を使ってリレーションシップを組んだ上で、クエリーを作ると、ご希望の答えが得られました。答えはアクセスのプログラムをここに貼り付けできみたいで書くことが出来ません。URLは使ったことがありません。もしメールアドレスが分かればそこにメールします。

お礼

お答えいただきましてありがとうございます。今回質問する前にクエリからフォームを作成したのですが、データの新規追加ができないのと、ヒットしたデータを一覧表示することができなかったのです。WEBで調べていると「更新可能なクエリ」「更新できないクエリ」という風に説明のあるサイトに行き着いて、私の場合は主キーが原因となっているように思いました。そこから「DLOOKUP関数を使って更新できるクエリに変更する」サイトに行き着いたのですが、くじけてしまいました。気持ちを入れ替えて再度トライしてみます。