AccessVBAでパラメータクエリから取得したRecordsetをデータシートに表示する方法

Question

AccessVBAで、サブフォーム（データシート）を開くときに、パラメータクエリにパラメータ設定で全データ取得したRecordsetを、データシートに表示しようとして、以下のコードで実行してみましたが、データが表示されませんでした。

サンプルコード

Private Sub Form_Load()
    Dim dbs As Database
    Dim qd As QueryDef
    Dim rs As Recordset
    
    Set dbs = CurrentDb
    Set qd = dbs.QueryDefs("Q_ViewData")
    
    With qd
        .Parameters("[名前]") = ""

        Set rs = .OpenRecordset
    End With
        
    Set Me.Recordset = rs
    
    rs.Close
    Set rs = Nothing
    
End Sub

クエリ構造：Q_ViewData

フィールド：ID,名前,性別,年齢
テーブル：m_alldata,m_alldata,s_subdata,m_subdata
並べ替え：昇順
表示：全チェック
抽出条件：,"[名前]"または"[名前] is Null",,

「Set Me.Recordset = rs」時点では、rsにはレコードが入っています。
また、「rs.Close」をブレイクで止めてみたところ、データシートに行自体は作成（値は入っていませんが）されていましたが、その後行は消えて空になりました。

※サブフォームについては、レコードソースを設定していません。
サブフォームのデータは、メインフォームで「パラメータ入力⇒検索ボタンクリック」といった流れで、検索結果データに表示更新します。
レコードソースでパラメータクエリを設定すると、パラメータ入力を示唆されたため、紐づけをしませんでした。

以下の可能性を考えていますが、実際のところどうなのかが判断できていない状況です。
・サブフォーム内でフィールドが設定されていないため。
・Loadイベント後に何かしらのイベントで消されているため。

要変更、処理不足などございましたら、ご教授お願い致します。

Answer 1

「Set Me.Recordset = rs」時点では、rsにはレコードが入っています。
また、「rs.Close」をブレイクで止めてみたところ、データシートに行自体は作成（値は入っていませんが）されていましたが、その後行は消えて空になりました。

フォームに関連付けられたレコードセットを閉じてしまえば、フォームに表示されないのは、当然ですよね。
rs.Close しなくても、rs変数はプロシージャレベルの変数ですので、プロシージャを抜ければ自動で閉じてしまうので、やはり表示されません。

    Dim dbs As Database
    Dim rs As Recordset

の変数宣言は、フォームモジュールの先頭（宣言部）へ移動させてください。
（モジュールレベルの変数になりますの、フォームか開いている間は有効）
そして、rs.Close は、フォームの閉じるときのイベントに移動させてください。

---

ただし、

レコードソースでパラメータクエリを設定すると、パラメータ入力を示唆されたため、紐づけをしませんでした。

を解決するための方法としてはよい方法とは思えません。この方法はいろいろと制限かありますので。

フォームのレコードソースには、テーブル（または抽出条件を設定していないクエリ）を設定しておいて、
抽出はフォームのFilterプロパティで設定する方か自由度が高いです。

Comments

[JanTh1989]

回答ありがとうございました。

フィールド変数に変えてみたところ、思っていた結果にはなりました。
（列は予めデザインビューで作らないといけなさそうですが・・・）

>フォームのレコードソースには、テーブル（または抽出条件を設定していないクエリ）を設定しておいて、
>抽出はフォームのFilterプロパティで設定する方か自由度が高いです。

仰る通りだとは思います。
ただ、質問では挙げていませんでしたが、検索機能以外にも、更新、追加機能の実装も予定しています。
この更新、追加は、データシート内の変更時点では、更新、追加は行わず、登録ボタンをクリックしたら変更箇所を反映という動きが望ましいそうなのです。
そのため、入力はできるが、更新はしない、という構図になる必要が出てきた兼ね合いもあり、データシートは非連結にしなければならないのでは、という考えとなりました。

元々の質問内容からはズレてしまい恐縮なのですが、入力はしないがDBに反映はしない、といった動きをレコードソース設定のFilterプロパティ管理なデータシートで行うことは可能なのでしょうか。

[JanTh1989]

以下のような方法を再検討しましたがいかがでしょうか？

①フォームのレコードソースは非パラメータのクエリ設定で、抽出はフィルタ管理
②更新・追加は随時して、対象レコードを内部で保管と、フィールド変数の変更フラグ立て
③登録ボタンクリックでフィールド変数フラグクリア
④フォーム閉じイベントで変更フラグが立っていたら、保管している対象レコードに戻す

こういったものなら実現性が出てくるだろうか、と思っているのですが、いかがでしょうか。

[hatena19]

連結フォームでは、1レコード単位でしか、更新管理はできません。
1レコード更新して、レコード移動したら、その時点で更新はテーブルに反映されてしまう。
そういう仕様です。（Recorset にレコードセットを設定しても連結には変わりありません。）

サブフォームはデータシートビューとのことなので、やりたいことは、サブフォームに表示されている全レコードに対して、更新ボタンをクリックしたときに、初めてテーブルに反映させたいのだと推測しますが、あってますか。

だとしたら、下記のような運用が一般的です。
ワークテーブルを用意して、フォームはワークテーブルと連結します。
追加クエリで更新対象のレコードをワークテーブルに追加します。
フォームで更新して、更新ボタンを押したときに、更新クエリで元のテーブルを更新します。

[JanTh1989]

>サブフォームはデータシートビューとのことなので、やりたいことは、サブフォームに表示されている全レコードに対して、更新ボタンをクリックしたときに、初めてテーブルに反映させたいのだと推測しますが、あってますか。

⇒その認識であっています。
まさにその動きをしたいと思っています。

>ワークテーブルを用意して、フォームはワークテーブルと連結します。
>追加クエリで更新対象のレコードをワークテーブルに追加します。
>フォームで更新して、更新ボタンを押したときに、更新クエリで元のテーブルを更新します。

⇒追加クエリについては、勉強不足でした。
そういった方法もあるのですね。
運用が一般的、とのことですので、その方法で検討してみます。

[JanTh1989]

別業務などもあり、時間がかかってしまいましたが、挙げられたワークテーブル作成の方法で対応ができました。
ありがとうございました。