Select Caseのフレームで、レコードソース(クエリ)を選択し、
そのソースを基にDoCmd.OpenFormする方法がわかりません。
よろしくお願いします。
----------------------------------------------------
Dim strSource As String
Dim Q1, Q2 As String
Dim stDocName As String
Dim フォーム1 As Form
stDocName = "フォーム1"
Q1 = "クエリ1"
Q2 = "クエリ2"
Select Case フレーム1
Case 1
strSource = Q1
Case 2
strSource = Q2
End Select
'stDocName.RecordSource = strSource '-----この文はこの位置でよいのでしょうか?
DoCmd.OpenForm stDocName, acFormDS
----------------------------------------------------
クエリ1,クエリ2は基になるテーブルが違いますが、フィールドは同一にしてあります。
ですのでフォーム1には、対応するテキストボックスは用意してあります。
No.1ベストアンサー
- 回答日時:
<1>
Private Sub コマンド0_Click()
DoCmd.OpenForm "フォーム1", acFormDS
Forms("フォーム1").RecordSource = "クエリ" & Me.フレーム1
End Sub
<2>
Private Sub コマンド1_Click()
DoCmd.OpenForm "フォーム1", acFormDS, , , , , "クエリ" & Me.フレーム1
End Sub
' ------------------------------------------
' [フォーム1] ロード時にレコードソース設定
' ------------------------------------------
Private Sub Form_Load()
If Len(Me.OpenArgs & "") > 0 Then
Me.RecordSource = Me.OpenArgs
End If
End Sub
まあ、好き好きでしょうが<2>がOKのバージョンであれば<2>がお勧めです。
<補足>
ただ、WhereCondition を使うのが一般的かと思います。
全く異なるクエリであれば、それぞれに対応したフォームを用意した方がシンプルでは・・・。
ありがとうございました。
この方法は、確かに一般的ではないようですね。
質問に際し省略したのですが、条件は6個あり、また抽出したものを、
Excel出力、印刷と使用するため、この方法を取ろうと考えた次第です。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Vbaで数式をポーランド記法に変換するコードを作って実行しようとするとフリーズします。 1 2022/05/24 17:53
- Visual Basic(VBA) select caseの入れ子 3 2023/03/08 18:48
- Access(アクセス) アクセスの更新クエリでカレントレコードのみ更新したい 1 2022/06/02 23:32
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Access(アクセス) docmd.gotorecordを起動するには 5 2022/06/17 15:20
- PHP クエリObjectをforeachで回す時に、次のレコードへ移動せずに次のレコードを取得したい 2 2022/07/28 15:29
- Excel(エクセル) エクセルVBA Msgboxでの変数の活用 4 2023/07/23 08:33
- Visual Basic(VBA) 先ほど、回答者様によって教えていただいたのですがどうしたらいいか分かりません。 ユーザーフォーム上に 2 2023/02/21 22:25
- Visual Basic(VBA) countifsについての質問 3 2023/03/08 13:45
- Access(アクセス) DoCmd.SearchForRecord が動かない時の解決方法 3 2022/07/22 15:31
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
Access サブフォームでの選択行の取得
その他(データベース)
-
ACCSESS2013VBA フォームのレコードソースを変更する
その他(データベース)
-
Access フォーム上でのテキストボックスとテーブルの連結
Access(アクセス)
-
-
4
Accessで別テーブルの値をフォームに表示したい
その他(データベース)
-
5
Accessでテーブルの値をテキストボックスに代入するには?
Access(アクセス)
-
6
フォームで入力しても反映されない
Access(アクセス)
-
7
フォームウィンドウを最前面に表示したい(ACCESS)
Microsoft ASP
-
8
アクセスで月単位の抽出
Access(アクセス)
-
9
Accessでのレコード存在チェック
その他(データベース)
-
10
ACCESSのフォームからデータの追加ができない
その他(データベース)
-
11
アクセスで#エラーを表示させない方法は?
Access(アクセス)
-
12
ACCESS フォームで入力データを残したいです。
その他(Microsoft Office)
-
13
AccessでIDを入力したら他の項目も自動で表示
Access(アクセス)
-
14
Chr(13)とChr(10)の違いは?
PowerPoint(パワーポイント)
-
15
ACCESSで空白のデーターをクエリで判定/識別する方法を教えてくださ
Access(アクセス)
-
16
エラー内容が分かりません
Access(アクセス)
-
17
ACCESS VBAのOpenForm書き方
その他(プログラミング・Web制作)
-
18
親フォームからサブフォームのレコードソースを設定
Access(アクセス)
-
19
access別のテーブルを参照してテキストボックスに値を表示、編集したい
Access(アクセス)
-
20
ACCESS VBA メインフォーム及びサブフォームのフィルタのクリア
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Accessのフォーム上にレコード...
-
ACCESSのフォームからデータの...
-
Access2002 フォームを閉じるた...
-
選択したチェックボックスのみ...
-
ACCESSで入力フォームをHTMLフ...
-
ACCESS フォームの値がすぐに...
-
accessの自動更新処理をできな...
-
Accessでの累計の出し方について
-
Accessフォームのファイル名を...
-
ACCESS(アクセス):一度の入力で...
-
帳票フォームに全レコードを表...
-
ACCESSで議事録を作りたいので...
-
Accessのフォームのスタイルの...
-
ACCESS レポートへの表示・非表示
-
フォーム上のレコード数表示が...
-
アクセスのフォームのビューが...
-
Accessのフォームで作業領域を...
-
[至急]accessクエリ結果を入力...
-
オートシェイプのような作図入...
-
「メソッドまたはデータメンバ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ACCESSのフォームからデータの...
-
選択したチェックボックスのみ...
-
アクセスのフォームのビューが...
-
ACCESSで入力フォームをHTMLフ...
-
Accessのフォーム上にレコード...
-
Access 別フォームへの再クエ...
-
Accessフォームのテキストボッ...
-
accessの自動更新処理をできな...
-
「メソッドまたはデータメンバ...
-
アクセスでテーブルの変更内容...
-
アクセスでの項目追加について...
-
Accessのフォームで作業領域を...
-
Access フォーム上でコンボボッ...
-
アクセス 0以外をカウントす...
-
ACCESSの表形式で、レコードを...
-
Accessのハイパーリンクのパス...
-
ADOでRecordsetオブジェクトを...
-
Access2002 フォームを閉じるた...
-
ACCESSで、フォームのレコード...
-
Access runtimeでテーブル、ク...
おすすめ情報