リストボックスの値を変更すると、サブフォームが更新されるようにしたいのです。
サブフォームのレコードソースはクエリから引用しています。
Dim db As Database
Dim qry As QueryDef
Set db = CurrentDb
Set qry = db.QueryDefs("計画クエリ")
qry.SQL = newSQL
qry.OpenRecordset
qry.Close
db.Close
Set db = Nothing
Me!計画クエリのサブフォーム.Form.Requery
という形で、更新しようとしても更新されません。詳しい方教えてください。
No.2ベストアンサー
- 回答日時:
確認したところ、クエリのSQL文の更新は、その前に開かれていた
フォームに対しては反映されないようです。
(レコードソースにクエリが指定されている場合、クエリそのものを
使用しているというより、そこに記述されたSQL文が使用されて
いる、ということかもしれません)
解決策としては、レコードソース(RecordSource)の再設定、という
ことになるかと思います。
とりあえず、運用上「計画クエリ」のSQL文が、現在のサブフォームのSQL分と
整合性を求めるかどうかで、2通りの対処が考えられます。
【解決策1:「計画クエリ」のSQL文を連動させる必要がある場合】
計画クエリのSQL文を差し替えた後に、レコードソースに同クエリを
再設定します。
Dim db As DAO.Database, qry As DAO.QueryDef
Set db = CurrentDb
Set qry = db.QueryDefs("計画クエリ")
qry.SQL = newSQL
'ここではレコードセットを開く必要はないので、そのまま閉じます
qry.Close
'CurrentDbの場合、Closeは不要(無効)かと思います(多分(汗))
Set db = Nothing
Me!計画クエリのサブフォーム.Form.RecordSource = "計画クエリ"
【解決策2:「計画クエリ」のSQL文を連動させなくてもよい場合】
フォーム・サブフォームのレコードソースには、テーブルやクエリだけでなく、
SQL文も指定可能なので、計画クエリのSQL文は変更せずに、
レコードソースを直接編集します。
こちらの場合、切替に要するコードは1行だけです。
Me!計画クエリのサブフォーム.Form.RecordSource = newSQL
・・・以上です。
ご回答ありがとうございます。
サブフォームのRecordSourceを再設定してあげればよかったのですね。
RecordSourceでSQLを指定するだけで更新するとは知りませんでした。
こちらの思うとおりに動作しました。
ありがとうございました。
No.1
- 回答日時:
提示されたコードはよくわからないので、
以下の部分について、
>Me!計画クエリのサブフォーム.Form.Requery
一般的には
Forms!メインフォーム名!サブフォームを表示するメインフォームのコントロール名.Form.Requery
あるいは、
Forms!メインフォーム名!サブフォームを表示するメインフォームのコントロール名.Requery
という参照のしかたをしますが、Meを使って、
Me!埋め込みの名前.Form.Requery
あるいは、
Me!埋め込みの名前.Requery
としても参照できます。したがって、
サブフォームを表示するメインフォームのコントロール名 = 計画クエリのサブフォーム
に設定していればいいのですが、
何もしなければ、埋め込み0というような
名前を使うようになります。
つまり、Me!の後に来るのはサブフォーム
の名前ではない、ということです。
メインフォームの埋め込みのプロパティ
から名前を確認するか、設定を変えるか
してみてください。
話がずれていたらスルーしてください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) DoCmd.SearchForRecord が動かない時の解決方法 3 2022/07/22 15:31
- Access(アクセス) docmd.gotorecordを起動するには 5 2022/06/17 15:20
- Visual Basic(VBA) ACCESS DAO で不要なテーブルのフィールド(列)の削除 4 2022/06/23 12:13
- Access(アクセス) アクセスの更新クエリでカレントレコードのみ更新したい 1 2022/06/02 23:32
- Access(アクセス) 実行時エラー3131 FROM 句の構文エラーです について 7 2022/06/13 15:45
- Access(アクセス) アクセス テーブルの空白を変数に置換するボタンが作りたい 4 2022/07/08 11:19
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- その他(データベース) 更新クエリをリンクデータベーステーブルに実行し実行時エラー3362固有インデックスに重複する値が含ま 1 2022/09/21 11:44
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- Visual Basic(VBA) VBA This Workbookモジュールを別ファイルにコピーする方法 1 2022/09/14 01:51
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
ACCESSサブフォームにデータ反映されない
Access(アクセス)
-
Access 別フォームへの再クエリ(更新)がしたい。
その他(データベース)
-
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
-
4
カレントレコードが無い事を判定させる方法
Visual Basic(VBA)
-
5
MS Accessでフォームの「開く時」と「読込み時」のイベントの違い
Access(アクセス)
-
6
Access サブフォームでの選択行の取得
その他(データベース)
-
7
Accessでテーブルの値をテキストボックスに代入するには?
Access(アクセス)
-
8
親フォームからサブフォームのレコードソースを設定
Access(アクセス)
-
9
Accessを開きなおすとテキストボックスの値がエラー#Name?になる
その他(データベース)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
サブフォームに対してGoToRecor...
-
クエリで出来た表にチェックボ...
-
accessサブフォームでのパラメータ
-
ACCESS──メインフォームでサブ...
-
親・子リンクフィールドの設定...
-
acccess2000 タブコントロール...
-
ACCESSで条件によってサブフォ...
-
アクセスでエラー・・・
-
Access Dsum関数
-
Access VBA には Gridはないで...
-
ACCESSのサブフォームコピーに...
-
ACCESSにて
-
サブフォームのあるフォームか...
-
サブフォームを非表示させる方...
-
Accessで埋め込んだサブフォー...
-
Access サブフォームのレコード...
-
ACCESSサブフォームにデータ反...
-
アクセス2003のサブフォームの...
-
親フォームからサブフォームの...
-
ACCESSのフォームで列固定?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
サブフォームに対してGoToRecor...
-
クエリで出来た表にチェックボ...
-
ACCESS──メインフォームでサブ...
-
サブフォームを非表示させる方...
-
親フォームからサブフォームの...
-
親・子リンクフィールドの設定...
-
ACCESSにて
-
ACCESSのフォームで列固定?
-
Access 登録ボタンからサブフォ...
-
サブフォームのあるフォームか...
-
ACCESSサブフォームにデータ反...
-
Access フォームで条件抽出し...
-
Access メインフォーム サブフ...
-
Accessで埋め込んだサブフォー...
-
ACCESSのサブフォームコピーに...
-
ACCESS VBA メインフォーム及び...
-
Accessでサブフォームのボタン...
-
【Access】サブフォームのソー...
-
Access2007 ラベルの削除がで...
-
サブフォームに変数を代入し、R...
おすすめ情報