A 回答 (2件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
サブフォームのFilterプロパティ(とFilterOnプロパティ)を制御します。
絞り込みなので各条件をANDで結びます。
各テキストボックスに文字がある場合にその条件の文字列を追加します。
サブフォームが[サブフォーム1]の場合です。
各テキストボックス名と元テーブルのフィールド名が[日付] [名前] [会員番号] [金額]の場合です。
コマンドボタンは[検索]です。
会員番号は文字列でなく数値の場合です。
名前は入力した文字を含むデータを選択します。
Private Sub 検索_Click()
Dim f As String
f = "(TRUE)" '条件が無かった場合は全部を選択する
f = f & IIf(Nz([日付]) = "", "", "AND([日付]=#" & [日付] & "#)")
f = f & IIf(Nz([名前]) = "", "", "AND([名前] LIKE '*" & [名前] & "*')")
f = f & IIf(Nz([会員番号]) = "", "", "AND([会員番号]=" & [会員番号] & ")")
f = f & IIf(Nz([金額]) = "", "", "AND([金額]=" & [金額] & ")")
MsgBox f
サブフォーム1.Form.Filter = f
サブフォーム1.Form.FilterOn = True
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) Accessでセレクタをダブルクリックで別フォームで詳細表示 3 2022/12/20 10:36
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) 検索のユーザーフォームの表示について 1 2023/03/27 23:31
- Access(アクセス) Accessフォーム 一部のレコードだけを抽出する方法について 1 2022/06/28 18:45
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Excel(エクセル) 【vba】日付の形式が勝手に変わってしまう。 1 2022/09/29 10:54
- Access(アクセス) Access2016でフォーム内にExcelの複数シートを 表示させるイメージで複数テーブルの デー 1 2022/11/25 15:30
- Access(アクセス) AccessVBAで降順にするテーブル作成クエリを使用して作成したテーブルを削除し同一のテーブル作成 1 2023/01/06 11:17
- Access(アクセス) Access 登録ボタンからサブフォームの更新 1 2022/07/22 10:23
- Access(アクセス) Accessの参照フィールドの列がずれてしまいます 1 2023/07/19 15:00
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ユーザーフォーム上にアイコン...
-
サブフォームの行ごとにコンボ...
-
VB.net(VB)で、フォームにExcel...
-
Google form を利用して 問い合...
-
子フォームから親フォームのオ...
-
ASP.NETとC#でWebフォームを呼...
-
Accessでフォームから別フォー...
-
Googleフォーム・複数人の申し...
-
ディスプレイ解像度より大きな...
-
ToolStripStatusLabelを固定し...
-
VBAにてメッセージボックスを最...
-
メッセージボックスの背景色
-
[C#]別フォームとの連動について
-
フォーム上の全てのコントロー...
-
デロンギのオーブンが故障して...
-
ACCESS 表形式フォームで1レ...
-
PDFフォームに本日の日付を自動...
-
access開いているフォームのモ...
-
ExcelVBAでフォーム内でブック...
-
Accessでの顧客管理フォームを...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAにてメッセージボックスを最...
-
リストボックスの選択解除
-
Googleフォーム・複数人の申し...
-
サブフォームの新規レコードに...
-
Accessでフォームから別フォー...
-
メッセージボックスの背景色
-
PDFフォームに本日の日付を自動...
-
accessで2つ以上のフォームを起...
-
VB.net(VB)で、フォームにExcel...
-
筋トレ初心者です。 ジムでひた...
-
Access 無操作の場合、自動で閉...
-
サブフォームのイベント取得
-
サブフォームの行ごとにコンボ...
-
VBプログラムの終了
-
ユーザーフォーム上にアイコン...
-
アクセスVBA フォームのス...
-
ディスプレイ解像度より大きな...
-
PDFフォーム内で日付計算したい...
-
フォーム上の全てのコントロー...
-
VBAでフォームのスクロールバー...
おすすめ情報