いつもたいへんお世話になっております。
アクセス97で、フォームを複数作りました。フォーム1、フォーム2、フォーム3。
それぞれのフォームのコマンドボタンでフォーム4を呼び出します。
フォーム4のレコードソースにクエリを使用しますが(クエリ1)、
このクエリにの抽出条件に、最初のフォームのコントロールの値(部門)を設定したいのですが、抽出条件に、「FORMS!フォーム1!部門」とすると、同じクエリを他のフォームには使えませんよね?パラメータを作成して、それぞれのフォームのコマンドボタンのなかで指定できてしまえば、クエリ1と、フォーム4を共有できますよね。現在は、それぞれのフォームに対応するフォーム4とクエリ1を作成しています。なんとかなりませんか?
説明が難しくなってきちゃった・・・
・・・パラメータの入力要求をVBAで処理したいのですが、いい方法を教えてください。
No.1ベストアンサー
- 回答日時:
こんにちは。
maruru01です。フォーム4のレコードソースをSQLステートメントで指定すればいいと思います。
それを標準モジュールにプロシージャ化しておいて、抽出条件を引数にすればいいと思います。
標準モジュールに、
Public Sub myOpenForm4(Cond As String)
SQL = "(前部)" & Cond & "(後部)"
DoCmd.OpenForm "フォーム4"
Forms!フォーム4.RecordSource = SQL
End Sub
としておいて、各フォームのコマンドボタンのクリックイベントでこのプロシージャを呼び出せばいいと思います。
参考になれば幸いです。
では。
No.2
- 回答日時:
フォーム4の抽出条件は、クエリーで設定しないとないとまずいんでしょうか?
フィルターでの処理でも良ければ、フォーム1~3からフォーム4を開くときに、OpenArgsでパラメータを渡して、Openイベントでフィルターをかけてやるのが簡単かと思いますが。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) access レポート 請求書について 2 2022/07/04 22:52
- Access(アクセス) アクセスの更新クエリでカレントレコードのみ更新したい 1 2022/06/02 23:32
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Access(アクセス) AccessVBAで降順にするテーブル作成クエリを使用して作成したテーブルを削除し同一のテーブル作成 1 2023/01/06 11:17
- その他(データベース) accessでのフォームの連携について 2 2022/06/14 00:45
- Access(アクセス) アクセス フォームの自動入力 1 2023/03/20 00:18
- Access(アクセス) Dlookupにエラーがでてしまう 1 2022/10/31 14:35
- Access(アクセス) マイクロソフト アクセス2021のフォームビュー作成でレイアウトを帳票形式から単票形式にあとから変更 1 2023/03/03 10:56
- JavaScript ラジオボタンによるフォームの開閉を行いたい 3 2022/03/31 21:30
- Visual Basic(VBA) VB.net フォーム 親子 1 2022/07/04 19:00
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
access 更新クエリについて
-
Access レポート印刷するときに...
-
Access で半角スペースと全角ス...
-
Accessのクエリで、replace関数...
-
ACCESS VBA でのエラー解決の根...
-
accessデータを指定したExcel、...
-
アクセスの更新クエリでカレン...
-
Microsoft365にAccessってあり...
-
Accessのスプレッドシートエク...
-
Vba Userformを前面に出すについて
-
Accessレポートのチェックボッ...
-
アクセス 削除するレコードを含...
-
Accessのフォーム上のテキスト...
-
Accessのテキストボックスの入...
-
アクセス フォームの自動入力
-
Access VBA [リモートサーバー...
-
accessのフォームに設置したボ...
-
Accessのリンクテーブルのパス...
-
アクセス レポートを開いたとき...
-
アクセス where句を使用して複...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Access レポート印刷するときに...
-
Accessのクエリで、replace関数...
-
Microsoft365にAccessってあり...
-
Accessのスプレッドシートエク...
-
Access VBA を利用して、フォル...
-
ACCESS VBA でのエラー解決の根...
-
Vba Userformを前面に出すについて
-
【Access】Dcount関数の複数条...
-
CSVファイルの「0落ち」にVBA
-
実行時エラー3131 FROM 句の構...
-
Accessレポートのチェックボッ...
-
accessデータを指定したExcel、...
-
Accessのリンクテーブルのパス...
-
Access 複数条件検索の設定が上...
-
access2019 チェックボックスと...
-
Access で半角スペースと全角ス...
-
Access IF文でテーブルに存在し...
-
アクセスの更新クエリでカレン...
-
Access VBA [リモートサーバー...
-
アクセス ステップインのやり方
おすすめ情報