A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
>違うクエリを使った場合も同じフォームが利用できれば
簡単な方法としては
1つの入力フォームを使い簡単にレコードソースを変更するには入力フォームをサブフォームの様に使います。
デザインビューで1つのコントロールが何もないフォームを作ります。これを例えばフォームAとします。
フォームAの中に入力フォームをサブフォームとして配置します。
フォームAに作業者用のボタンを作ります。例えば作業者が3人でクエリが各クエリ1・クエリ2・クエリ3とします。
作業者1のボタンのクリック時イベントに
Private Sub 作業者1_Click()
Me![入力フォーム].Form.RecordSource = "クエリ1"
Me![入力フォーム].Requery
End Sub
同様に作業者2のボタンには
Private Sub 作業者2_Click()
Me![入力フォーム].Form.RecordSource = "クエリ2"
Me![入力フォーム].Requery
End Sub
のようにし作業者3ボタンも同様です。
入力フォームを開く時はフォームAを開くようにして作業者のボタンで入力フォームのレコードソースとなるクエリを変更させ使用すれば簡単だと思いますが。
これならフォームAと入力フォームを配布すれば同じ様にフォームを開き作業者が必要なボタンでレコードソースを切り替えられるので簡単。
試してみてください。
お世話になります。
マクロから「フォームを開く」に続けて「フィルターの実行」で、使いたいクエリを指定すると、上手く行くようで、当分は、この方法でゆけそうです。
余談ですが、対象レコードが増えたときにリストボックスでレコードを選べるようにしようとすると、フィルター実行前のレコードリストしか表示されないようで、リストボックスの「値集合ソース」にフィルターを掛けた指定が上手く出来ないのでつまずいています。
VBAは勉強中なのでまだまだ、使いこなせませんが、研究してみます。
No.1
- 回答日時:
クエリをフォームのレコードソースに設定している場合なら、以下の方法が使えます。
Form_Load()のイベントとして、レコードソースをユーザーによって切り替える方法をお試しください。
Me.RecordSource = "クエリー1"
If ○○○ Then
Me.RecordSource = "クエリー2"
End If
フォームを開く時点で、どのクエリを使うか判定する方法(上記の○○○の部分)は、業務仕様により決める必要があるので、ご自分で検討してみてください。
お世話になります。
条件分枝の設定に、変数をあてなければならないのでしょうが、VBAは得意ではないので、マクロで何とかならないか試しています。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) AccessVBAで降順にするテーブル作成クエリを使用して作成したテーブルを削除し同一のテーブル作成 1 2023/01/06 11:17
- その他(プログラミング・Web制作) 入力フォームへ、データを自動的に入力するプログラム。どうやって作る? 4 2023/01/16 10:24
- Access(アクセス) アクセス フォームの自動入力 1 2023/03/20 00:18
- Access(アクセス) アクセスの更新クエリでカレントレコードのみ更新したい 1 2022/06/02 23:32
- その他(データベース) accessでのフォームの連携について 2 2022/06/14 00:45
- Access(アクセス) マイクロソフト アクセス2021のフォームビュー作成でレイアウトを帳票形式から単票形式にあとから変更 1 2023/03/03 10:56
- JavaScript ラジオボタンによるフォームの開閉を行いたい 3 2022/03/31 21:30
- Access(アクセス) Accessにインポートした複数のテーブルを表示させる方法が分かりません。 1 2023/01/30 20:22
- その他(データベース) Accessフォームにて指定のフィールドの平均値を小数点第一位で表示できない 2 2022/08/30 17:19
- Google Drive Google form を利用して 問い合わせフォームを作りたい 1 2022/04/25 14:15
このQ&Aを見た人はこんなQ&Aも見ています
-
風水の観点で選ぶ観葉植物とは?置き場所や上げたい運気ごとの注意点を紹介!
観葉植物で運気をアップするコツを、風水デザイン1級建築士の福島昌彦さんに伺った。
-
ACCESS2000で複数のクエリをフォームに表示する方法を探していま
Access(アクセス)
-
Accessで別テーブルの値をフォームに表示したい
その他(データベース)
-
アクセスVBAのMe!と[ ]
Access(アクセス)
-
-
4
テキストボックスにクエリ結果を表示させたい
その他(データベース)
-
5
フォームを開くときに、コンボボックスの値を選択(アクセスVBA)
Visual Basic(VBA)
-
6
ACCESS──メインフォームでサブフォームのレコード件数をカウントしたい
Access(アクセス)
-
7
Acccessで2つのテーブルから1つのフォームをつくりたい
Access(アクセス)
-
8
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
9
Accessを開きなおすとテキストボックスの値がエラー#Name?になる
その他(データベース)
-
10
Access レポート印刷するときに1ページに収める方法
Access(アクセス)
-
11
Accessでテーブルの値をテキストボックスに代入するには?
Access(アクセス)
-
12
アクセスで#エラーを表示させない方法は?
Access(アクセス)
-
13
Access サブフォームでの選択行の取得
その他(データベース)
-
14
ACCESSのフォームからデータの追加ができない
その他(データベース)
-
15
Accessの条件付き書式設定で、複数の条件が一致した時の書式を設定したい
その他(Microsoft Office)
-
16
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
17
ACCESS クエリの抽出条件に他のテーブルの値を参照する方法
Access(アクセス)
-
18
新規レコード行を非表示にしたい
Access(アクセス)
-
19
Accessでデータシートに同じデータがいくつもでてしまいます。
その他(データベース)
-
20
テーブルに表示されているものがクエリに表示されない
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
フォームの高さを数値で指定し...
-
YahooのIDがロックされてしまい...
-
Accessで、フォームからフォー...
-
デフォルトでチェックボックス...
-
Excelのデータフォームの設定変更
-
access vba 開いていないフォー...
-
Accessのフォーム更新方法
-
アクセス フォームをリクエリ...
-
Access 2010フォームの全画面表示
-
「フォームを作成できませんで...
-
Accessに関する質問です。 クエ...
-
大至急!アクセスのフォームを...
-
アクセスのレコードをフォーム...
-
アクセスで、androidのスマホサ...
-
ACCESSでオートメーションエラー
-
ワードで自動的に翌年のを入れ...
-
Access フォームヘッダーに作成...
-
Wordでドロップダウンリストを...
-
エクスポートされたエクセルの...
-
アクセスで、スマホサイズのフ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
YahooのIDがロックされてしまい...
-
「フォームを作成できませんで...
-
Accessで、フォームからフォー...
-
フォームの高さを数値で指定し...
-
MSワード 年齢を計算表示でき...
-
デフォルトでチェックボックス...
-
マイクロソフト アクセス2021の...
-
Accessのフォームで開く時のウ...
-
Accessフォームを開くときに決...
-
アクセスで、androidのスマホサ...
-
アクセス フォームをリクエリ...
-
Accessに関する質問です。 クエ...
-
Excelのデータフォームの設定変更
-
アクセスで、スマホサイズのフ...
-
エクセルで各セルをダブルクリ...
-
Access2003 フォーム入力中に...
-
アクセスで複数列にまたがる同...
-
アクセスで同じフォームを違う...
-
Accessのフォームを改ページしたい
-
大至急!アクセスのフォームを...
おすすめ情報