![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
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も見ています
-
"I love you" をかっこよく翻訳してみてください
あなたが考えるいちばんかっこいい "I love you"の訳を教えてください。
-
ACCSESS2013VBA フォームのレコードソースを変更する
その他(データベース)
-
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
MS Accessでフォームの「開く時」と「読込み時」のイベントの違い
Access(アクセス)
-
-
4
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
5
アクセスでレコードの内容が変更されたかどうかを調べるには
Access(アクセス)
-
6
ACCESSのフォーム、開くんですが、見えないようにするには
Access(アクセス)
-
7
ACCESSで値を代入できないとは?
Visual Basic(VBA)
-
8
前のレコードの値を自動で入れたい
PowerPoint(パワーポイント)
-
9
ACCESSでコントロールソースの変更
Access(アクセス)
-
10
accessVBA 「フォームが見つかりません」
その他(データベース)
-
11
Null値を並べ替えで・・・
Access(アクセス)
-
12
Accessでフィールド名を変数(文字列)で・・・
Access(アクセス)
-
13
Accessでグローバル変数を宣言して定数を定義したい
その他(データベース)
-
14
Access サブフォームでの選択行の取得
その他(データベース)
-
15
アクセスVBAのMe!と[ ]
Access(アクセス)
-
16
ACCESS 直線ツールの矢印
PowerPoint(パワーポイント)
-
17
ACCESS VBA コマンドDoCmd.OpenFormの引数
その他(データベース)
-
18
Access フォーム上でのテキストボックスとテーブルの連結
Access(アクセス)
-
19
Accessでのレコード存在チェック
その他(データベース)
-
20
フォームのデータシートビューにてVBAで直接記述したSQL文を実行した結果を返すことは不可能でしょうか?
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
選択したチェックボックスのみ...
-
他フォームのチェックボックス...
-
Accessのフォーム上にレコード...
-
dlookup関数が使えない
-
Access 別フォームへの再クエ...
-
アクセスのチェックボックス
-
ACCESSで入力フォームをHTMLフ...
-
accessの自動更新処理をできな...
-
アクセス非連結フォームのテキ...
-
Accessフォームのテキストボッ...
-
アクセス 0以外をカウントす...
-
「メソッドまたはデータメンバ...
-
ACCESSで議事録を作りたいので...
-
Accessフォームのファイル名を...
-
ACCESSで、フォームのレコード...
-
帳票フォームに全レコードを表...
-
アクセスでの項目追加について...
-
テキストボックス(アクセス)内...
-
入力途中の入力した値をすべて...
-
Bit型のフィールドの編集でエラー
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ACCESSのフォームからデータの...
-
Accessのフォーム上にレコード...
-
アクセスのフォームのビューが...
-
accessの自動更新処理をできな...
-
Access 別フォームへの再クエ...
-
選択したチェックボックスのみ...
-
アクセスでテーブルの変更内容...
-
ACCESSで入力フォームをHTMLフ...
-
「メソッドまたはデータメンバ...
-
アクセスでの項目追加について...
-
Accessフォームのテキストボッ...
-
アクセス 0以外をカウントす...
-
Accessのフォームで作業領域を...
-
Access2002 フォームを閉じるた...
-
ADOでRecordsetオブジェクトを...
-
Accessのハイパーリンクのパス...
-
Access フォーム上でコンボボッ...
-
ACCESS フォームにデータ入力で...
-
入力途中の入力した値をすべて...
-
帳票フォームに全レコードを表...
おすすめ情報