- ベストアンサー
Accessの検索フォーム
yamutyaの回答
- yamutya
- ベストアンサー率15% (3/20)
クエリでうまくできます。 フォームにテキストボックス入力窓を３つ開け クエリの抽出条件の欄にそのフォームの入力窓を入力して行きます。一行目は Ａ と ＢとＣを同じ行に ２行目はＡとＢ ３行目はＡとＣ ４行目は ＢとＣ ５行目はＡ ６行目はＢ ７行目はＣと７行に分ければいいでしょう。アンド ではなくて オア で検索されるので 入力のない欄があってもだいじょうぶです
関連するQ&A
- Accessでの検索フォーム作成
お世話になります。 Accessを使い始めて半月ぐらいの初心者です 次のような条件の検索フォームの作成を依頼されたのですがうまく出来ません。 (1)Accessのフォームフィルタを使用した検索フォームで、３つのテキストボックス(以下TB)を同一 フォーム上に用意し、抽出を実行するボタンと解除するボタンをTBの隣にそれぞれ用意する (2)あいまいな条件（部分一致）で検索出来るようにする (3)抽出結果も同一フォーム上に表示 (4)任意のTBに入力した値で抽出後、他のTBを利用し 絞り込み検索を実行できるようにしたい 現在は下記のように作成しました。 ●テーブル [管理番号]、[品名品番]、[仕入先名]のフィールドを持つテーブルを用意。 ●フォーム（表形式） 上記テーブルに連結した検索フォームを作成し、抽出する値を入力する TBの名前はそれぞれ下のように付けました。 フィールド名 TB名 ・[管理番号]⇒管理番号検索 ・[品名品番]⇒品名品番検索 ・[仕入先名]⇒仕入先名検索 ・[抽出実行ボタン]のイベント（管理番号で検索時） Private Sub コマンド47_Click() Me.Filter = "管理番号 Like '*" & Me!管理番号検索 & "*'" Me.FilterOn = True End Sub ・[抽出解除ボタン]のイベント（管理番号で検索時） Private Sub コマンド49_Click() Me!管理番号検索 = Null Me.FilterOn = False End Sub 他２つも同様に作成して実行した結果、単体での抽出はうまくいくのですが さらに絞り込もうと他のTBに値を入力して抽出を実行すると先の抽出が解除され 単体でのフィルタがかかって抽出されてしまいます。 どなた様か良い案が御座いましたらご指導ください。 初心者のため、説明不足な点があるかと思いますが 不明な点がございましたらご質問くださいませ。 宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- access 検索について教えてください。
フォームにテキストボックス（テキスト０）を配置し、県名を入力するとこのフォーム（検索フォーム）にレコード内容が表示されるようにしました。クエリの県名の抽出条件にform![検索フォーム]![テキスト０]とし、検索フォームの更新後処理に Private Sub テキスト0_AfterUpdate() DoCmd.Requery End Sub と記載し利用しています。 ここで質問ですが、抽出条件に[me].[テキスト０]と記載し、上記内容のコードを記載しましたが、検索フォームが表示できません。 どこがいけないのでしょうか？ お願いします。
- 締切済み
- オフィス系ソフト
- Accessの絞りこみについて教えて下さい。
Access初心者です。顧客テーブルがあり、名前で絞りこみをかけたいのですが、エラーになってしまい困っています。 顧客テーブルからフォームを作り、フォームヘッダーにテキストボックスとボタンを作成しました。 絞り込みは苗字でもHITするようにし、テキストボックスには名前を入力、ボタンで絞り込みをかけるというかたちです。。 テキストボックス名は検索用、ボタンの名前は検索にしています。 そこで下記VBAコードを入力したところ、パラメータが出てきてしまい、絞り込み出来ません。 Private Sub 検索_Click() Me.RecordSource = "select * from 顧客リスト where 氏名 like ‘*" & 検索用 & "*’" End Sub どうしたらよいでしょうか？ 教えて下さい。 よろしくお願いします。
- ベストアンサー
- その他MS Office製品
- Ａｃｃｅｓｓで検索フォームを作成したいです。
いつもお世話になっています。 Ａｃｃｅｓｓで検索フォームを作成したいのですが、webで調べてあてはめても上手くいきません。どうか、ご指導の程宜しくお願い致します。 （成分:テーブル） ID 成分 1 AAA 2 BBB 3 CCC 合計14レコードです。 （薬品と品番:テーブル） 薬品名 成分 あああ AAA いいい BBB えええ BBB あああ CCC 合計200レコードです。 検索フォームを作成したいのですが、薬品名（例:「あああ」）を入力すると同じフォーム内で「AAA」「CCC」・・・とすべて一覧表示されるようにするにはどうしたらいいのでしょうか？ Ａｃｃｅｓｓ初心者で、説明も物分りも悪いですがご指導の程宜しくお願い致します。 Ａｃｃｅｓｓ2002を使っています。
- ベストアンサー
- オフィス系ソフト
- Accessであいまい検索するフォームをつくってみたんですが？
Accessの初心者です。 本などをみながらあいまい検索ができるようなフォームをつくってみましたがフォームを開いた時、全レコードが表示されてしまいます。 クエリーの抽出条件はLike "*" & Forms!フォーム1!テキスト0 & "*"にしてテキストボックスプロパティの更新後処理でDoCmd.Requeryとしました。（意味がよくわからないんですけど） フォームを開いた時やテキストボックスになにも入力されていない時、全レコードが表示されないようにするにはどうすればいいのでしょうか？ よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 【Access】複数フィールドを対象とする検索
Access上で「検索ボタン」をクリックすると、 「データ」フォームのフィールド１、フィールド2、フィールド3のいずれかに「検索条件1」の語を含み、かつ、フィールド4、フィールド5、フィールド６のいずれかに「検索条件2」の語を含むレコードを抽出できるようにしたいと思います。 検索条件はテキストボックスに入力するようにしており、テキストボックス名は「検索条件1」、「検索条件2」となっています。 以下のコードでやってみたのですが、「実行時エラー13、型が一致しません」というエラーが出てうまく抽出できません。 Private Sub 検索ボタン_Click() Dim filter1 As String filter1 = "フィールド1 like '*" & Me!検索条件1 & "*' or フィールド2 like '*" & Me!検索条件1 & "*' orフィールド3 like '*" & Me!検索条件1 & "*'" And " フィールド4 like '*" & Me!検索条件2 & "*' or フィールド5 like '*" & Me!検索条件2 & "*' orフィールド6 like '*" & Me!検索条件2 & "*'" DoCmd.OpenForm "データ", acNormal Forms!データ!.filter = filter1 Forms!データ!.FilterOn = True End Sub 「検索条件1,2」のテキストボックスがあるフォーム上の「検索ボタン」をクリックすると、 「データ」フォームが開き、検索をかけるという流れをイメージして作成 しています。 どなたか正しい記述を教えていただけませんでしょうか。 よろしくお願いいたします。
- ベストアンサー
- Access（アクセス）
- Access 検索フォーム
いつもお世話になってます。 Accessの検索フォームについて教えて下さい。 業務マスターと仕事DBという２つのデーターベースがあります。 業務マスターは共有のサーバーの中にあり、得意先テーブルをリンクして、それをもとに得意先フォームを作りました。 非連結のテキストボックス（txt検索）と非連結のリストボックス（一覧）がり、リストボックス（一覧）のクエリ得意先の抽出に使うフィールドの条件に、Like"*"&[Forms]![得意先フォーム]![txt検索]&"*" を入れました。 txt検索に文字を入れ、一覧リストボックスで絞込をし、選ぶとフォームに表示されるという流れにしたのですが・・・。 Private Sub txt検索_AfterUpdate() Me![一覧].Requery End Sub Private Sub 一覧_AfterUpdate() Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[得意先ID] = " & Str(Nz(Me![一覧], 0)) If Not rs.EOF Then Me.Bookmark = rs.Bookmark End Sub [Forms]![得意先フォーム]![txt検索]というパラメータがでて（今まで出たことがない） 文字を入力しても実行できませんでした。参照元が分からないのかなと思いますが、どうしたらうまくいくのか分かりません。どなたかお知恵をかしていただけないでしょうか。Accessは2003を使っています。よろしくお願いします。
- ベストアンサー
- その他(データベース)
- ACCESS2003でクエリを使った検索フォームを作っています。
ACCESS2003でクエリを使った検索フォームを作っています。 クエリは以下の様になっています。 ---------- 番号 タイプ 品名 1111 AA 商品1 2222 AA しょうひん2 3333 BB 商品しょうひん3 ---------- 品名のフィールドの抽出条件に ---------- Like "*" & [Forms]![品名検索フォーム]![品名検索] & "*" ---------- と入れています。 品名検索フォームは帳票タイプで、フォームヘッダーにテキストボックスを設け 「品名検索」と名前をつけています。 テキストボックスに【商品】と入力すれば番号1111と3333が、【しょうひん】と入力すれば 番号2222と3333が抽出されるように設定し、ここはうまく動きました。 ただ、このフォームを開いた際、テキストボックスは空欄になっているため、全レコードが 表示されてしまいます。テキストボックスが空欄の際は、何も表示したくないのですが どこを触ればいいのでしょうか？ どうかよろしくお願いいたします。
- ベストアンサー
- その他MS Office製品
- Accessフォームでの複数条件検索
検索用テキストが４つとコンボボックスが１つあり、検索ボタンというコマンドボタンを押すと 該当するレコードを表示させるフォームを作りました。 以下がそのVBAです。 Private sub 検索ボタン_click() Dim strfilter As String, strexp As String, aryope As Variant If Not IsNull (me.一) Then strfilter = "And 出版社 Like '*" & Me.一 & "*'" End If If Not IsNull (me.コンボ62) Then strfilter = "And 種類 Like '*" & Me.コンボ62 & "*'" End If If Not IsNull (me.三) Then strfilter = "And 番号 Like '*" & Me.三 & "*'" End If If Not IsNull (me.四) Then strfilter = "And 発刊日 = # " & Format (me.四. "yyyy-mm-dd") & "#" End If If Not IsNull (me.一) Then strfilter = strfilter & " AND " & BuildCritera ( "タイトル", dbText, "*" Replace ( me.五, "", "*AND*") & "*") End If 改正したいことは 1. 検索用テキストボックスに入力された値全てを満たすレコードを表示したい（現在は例えば 出版社、タイトル、番号の3つを入力するとそれぞれの項目にヒットする物がすべて検出さ れる) 2. テキストボックス[三]の番号は完全一致で抽出したい（２６を抽出したいのに１２６や２６７３ 等も抽出されてしまう) 3. テキストボックス[四]の発刊日は西暦表示から和暦で入力して検索したい （テキストボックス[四]をコンボボックスに変え、西暦・和暦両方表示にし、[四Ａ]を追加して 月日という名前にしてこれら年月日をくっつけて完全一致で検索する方法を考えましたが 記述がわかりません） 5．タイトルがＷｅｂ検索の様に複数曖昧検索ができない 中途半端な検索で抽出してる状態です。 どなたか手直しいただけますでしょうか？
- 締切済み
- オフィス系ソフト
- Accessのクエリ
初めまして。Accessのクエリについての質問です。 Access2003を使っています。 検索フォームを作り、その検索フォームにテキストボックスを２つ作り、そのテキストボックスに検索したい言葉を入力し、コマンドボタンで作った検索ボタンを押すとマクロでフィルタの実行がされデータを抽出できるというものを作りました。フィルタには選択クエリを使用しています。抽出したい２つのフィールドの抽出条件にあいまい条件のLike "*" & [Forms]![フォーム名]![テキストボックス名] & "*"を入れています。 今はテキストボックスが２つですが、もっと増やしていろんな条件で検索出来るようにしたいので、３つ目のテキストボックスを作り、抽出条件も同じように入れました。ですが、そうすると今までちゃんとできていた最初の２つのテキストボックスによる抽出が違った結果となりでてきました。このとき、新しく作った３つ目のテキストボックスは空欄なので最初と同じ結果が出ると思ったのですが、これは抽出条件が３つはできないということでしょうか？どなたか教えてください。
- ベストアンサー
- オフィス系ソフト
お礼
ありがとうございますーー！！ この方法、簡単だし、うまくできました！！ なので、これも検索フォームに使わせてもらいます！！ ほんとにありがとうございました！！