🎄teratailクリスマスプレゼントキャンペーン2024🎄』開催中!

\teratail特別グッズやAmazonギフトカード最大2,000円分が当たる!/

詳細はこちら
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Access

Accessはマイクロソフトによるリレーショナルデータベース管理システムです。オブジェクト指向のアプリケーション作成に対応しており、テーブルや編集をはじめ、クエリ生成、入力フォーム作成、レポート作成など一通りの機能を備えています。

Q&A

解決済

2回答

1605閲覧

複数条件で絞り込む検索ボタンを作成したい

退会済みユーザー

退会済みユーザー

総合スコア0

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Access

Accessはマイクロソフトによるリレーショナルデータベース管理システムです。オブジェクト指向のアプリケーション作成に対応しており、テーブルや編集をはじめ、クエリ生成、入力フォーム作成、レポート作成など一通りの機能を備えています。

0グッド

0クリップ

投稿2023/06/06 06:57

実現したいこと

商品名・メーカー名の複数条件でレコードを抽出したい

前提

非連結のテキストボックス(①商品名から検索_txb、②メーカー名から検索_txb)に入力した文字を含むレコードを抽出する検索ボタンを持つフォームを作成しています。現行のプログラムでは、商品名テキストボックスを入力するとメーカー名テキストボックスがクリアされ、メーカー名テキストボックスを入力すると商品名テキストボックスがクリアされ
、1種類の抽出条件でしか絞り込めないようになっています。こちらのプログラムを変更し、商品名・メーカー名のand検索を出来るようにしたいです。

発生している問題・エラーメッセージ

こちらのサイトを参考にコードを記述しましたが、検索ボタンをクリックしてもレコードの絞り込みが行われませんでした。

該当のソースコード

Private Sub 検索_Click() Dim filter_txt As String If Me!商品名から検索 <> "" Then If filter_txt = "" Then filter_txt = "商品名 like '*" & Me!商品名から検索 & "*'" Else filter_txt = filter_txt & "and 商品名 like '*" & Me!商品名から検索 & "*'" End If End If If Me!メーカー名から検索 <> "" Then If filter_txt = "" Then filter_txt = "メーカー名 like '*" & Me!メーカー名から検索 & "*'" Else filter_txt = filter_txt & "and メーカー名 like '*" & Me!メーカー名から検索 & "*'" End If End If End Sub

試したこと

上記コードを試しました。商品名から検索する部分の記述だけでテストした際は正常に絞り込みが行われましたが、メーカー名から検索する部分を記述してテストしたところ、検索ボタンを押してもレコードの絞り込みが行われませんでした。

補足情報(FW/ツールのバージョンなど)

MicrosoftAccess2019

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答2

0

提示のコードは変数filter_txtに抽出条件式を代入するコードです。
それだけでは、何も起こりません。
その条件をフォームに適用するコードが必要です。

抽出結果を表示するフォームのフォームヘッダーかフッターに抽出条件を入力する非連結テキストボックスがあるのなら、自身のフォームに抽出条件を適用する必要があります。
参考にしたリンク先のコードの最後のIf文の部分がフォームに抽出条件を適用するコードになります。
下記の部分です。

vba

1 Me.Filter = filter_txt 2 Me.FilterOn = True

抽出条件の生成は提示のコードでうまくできていますので、とりあえずは、このコードを最後に追加すれば絞り込みができるはずです。


ちなみに、自分が書くなら下記のようなコードになります。

vba

1Private Sub 検索_Click() 2 Dim filter_txt As String 3 4 If Me!商品名から検索 <> "" Then 5 filter_txt = " and 商品名 like '*" & Me!商品名から検索 & "*'" 6 End If 7 8 If Me!メーカー名から検索 <> "" Then 9 filter_txt = filter_txt & " and メーカー名 like '*" & Me!メーカー名から検索 & "*'" 10 End If 11 12 Me.Filter = Mid(filter_txt, 6) '先頭の余分な" and "を削除してFilterプロパティに代入 13 14 If filter_txt = "" Then 15 Me.FilterOn = False 'フィルター解除 16 Else 17 Me.FilterOn = True 'フィルター適用 18 End If 19 20End Sub

投稿2023/06/06 07:17

編集2023/06/06 07:27
hatena19

総合スコア34073

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

退会済みユーザー

退会済みユーザー

2023/06/06 07:42

提示していただいた2行のコードを追加したら動作しました! スマートな記述の例も提示していただきありがとうございました!!
guest

0

ベストアンサー

上記コードを試しました。
商品名から検索する部分の記述だけでテストした際は正常に絞り込みが行われましたが、

掲載されているイベントプロシージャ内のどこにも、そのフォームのFilterプロパティおよびFilterOnプロパティの値を設定するコードが記述されていませんので、そのプロシージャによってフォームフィルターが実行されるはずなどないのですが。

vba

1Private Sub 検索_Click() 2 3 Dim filter_txt As String 4 5 If Nz(Me![商品名から検索].Value) <> "" Then 6 filter_txt = filter_txt & " and [商品名] like '*" & Replace(Me![商品名から検索].Value, "'", "''", , , vbBinaryCompare) & "*'" 7 End If 8 9 If Nz(Me![メーカー名から検索].Value) <> "" Then 10 filter_txt = filter_txt & " and [メーカー名] like '*" & Replace(Me![メーカー名から検索].Value, "'", "''", , , vbBinaryCompare) & "*'" 11 End If 12 13 filter_txt = Mid(filter_txt, 6) 14 15 Me.Filter = filter_txt 16 Me.FilterOn = (filter_txt <> "") 17 18End Sub

投稿2023/06/06 07:21

編集2023/06/06 07:23
sk.exe

総合スコア938

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

退会済みユーザー

退会済みユーザー

2023/06/06 07:26 編集

フィルターが実行されたと思いましたが、商品名から検索テキストボックスの更新後処理にも絞り込み用のコードを記述しており、そちらが実行されていただけでした!お騒がせ致しました。
sk.exe

2023/06/06 07:29

> 商品名から検索テキストボックスの更新後処理に記述していたコードが実行されていただけでした それぞれのテキストボックスの[更新後処理]イベントが発生した際に同じフィルター処理を実行したい、ということなのであれば、フィルター処理を実行するSubプロシージャを別途設けておき、各イベントからCallするようになさればよろしいでしょう。
退会済みユーザー

退会済みユーザー

2023/06/06 07:39

まさにそうです! Callで呼び出せるように記述して実行試してみます! ありがとうございました
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.36%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問