
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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
access vba 開いていないフォームのプロパティを編集したい
Access(アクセス)
-
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
Access サブフォームでの選択行の取得
その他(データベース)
-
-
4
フォームを開くときに、コンボボックスの値を選択(アクセスVBA)
Visual Basic(VBA)
-
5
アクセスVBAのMe!と[ ]
Access(アクセス)
-
6
accessで該当するレコードがない場合
その他(プログラミング・Web制作)
-
7
Access 複数フォームを開き、画面の最上面にしたいフォームをコント
その他(データベース)
-
8
Access2010 「演算子がありません」エラー
その他(データベース)
-
9
アクセス2016 チェックボックス☑表記が-1,0表記になってしまったので直す方法
Access(アクセス)
-
10
テキストボックスにコントロールソースの値、プラス文字を一度に表示させたいのですが、どの様な式を組めば
その他(データベース)
-
11
access vba サブフォームに条件指定させたフォームを表示させたい
Access(アクセス)
-
12
アクセスのfilter、複数条件の記述方法を教えてください。
Access(アクセス)
-
13
チェックボックスにチェックが入った後の挙動
Access(アクセス)
-
14
DLookupがうまく出来ません
Access(アクセス)
-
15
[Access]帳票フォームにて連続する非連結コントロールに個々の値を入れるには
Access(アクセス)
-
16
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
17
ACCESS VBA コマンドDoCmd.OpenFormの引数
その他(データベース)
-
18
ACCESSのフォームで次のレコードに移動しない方法を教えてください
その他(データベース)
-
19
「#エラー」の回避
Access(アクセス)
-
20
ACCESSのフォーム、開くんですが、見えないようにするには
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
カレンダーコントロールのダイ...
-
アクセスでの項目追加について...
-
フォームフィルタで質問
-
アクセスのフォームのビューが...
-
Access 別フォームへの再クエ...
-
Accessのフォーム上にレコード...
-
Access フォーム上でコンボボッ...
-
ACCESSで入力フォームをHTMLフ...
-
Access2002 フォーム間のデータ...
-
ACCESSのフォームからデータの...
-
Accessフォームのテキストボッ...
-
他フォームのチェックボックス...
-
アクセス2003サブフォームで選...
-
入力途中の入力した値をすべて...
-
Access Label 手のマウスポイン...
-
アクセスでテーブルの変更内容...
-
ACCESS レコードセット
-
ACCESSでテーブルから選択,表示...
-
accessの自動更新処理をできな...
-
アクセス:フォームを閉じずに...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Accessのフォーム上にレコード...
-
選択したチェックボックスのみ...
-
ACCESSのフォームからデータの...
-
アクセスでテーブルの変更内容...
-
accessの自動更新処理をできな...
-
Access 別フォームへの再クエ...
-
アクセスのフォームのビューが...
-
アクセスでの項目追加について...
-
「メソッドまたはデータメンバ...
-
テキストボックスの値をテーブ...
-
Accessのハイパーリンクのパス...
-
Accessフォームのテキストボッ...
-
アクセス非連結フォームのテキ...
-
アクセス 0以外をカウントす...
-
ADOでRecordsetオブジェクトを...
-
Accessのフォームで作業領域を...
-
Access フォーム上でコンボボッ...
-
Accessのフォームに表示...
-
[至急]accessクエリ結果を入力...
-
Access2002 フォームを閉じるた...
おすすめ情報