Microsoft Access 掲示板

サブフォームに抽出されているレコードセットを特定する方法についてご教授いただけますでしょうか。

サブフォームのレコードセットは、メインフォームから取得するなら、
Me.サブフォームコントロール名.Form.Recordset
で取得できます。

ただ、あまり使う必要性がある場面は少ないと思いますが、具体的にはどのようなことをしたいのでしょうか。

サブフォームコントロールなので、更に、サブフォームのフィルタからも抽出が可能です。

サブフォームのFilterプロパティを使って抽出したいというのが目的なら、下記のようなコードで可能です。

Me.サブフォームコントロール名.Form.Filter = "抽出条件式"
Me.サブフォームコントロール名.Form.FilterOn = True

お返事遅くなり申し訳ございません。

メインフォームにサブフォーム１があり、サブフォーム２がサブフォームに連動（親/子フォールドで連結）されています。ヘッダにある検索条件でサブフォームのデータを抽出します。その状態で、抽出済みのレコードに対して、
対象フラグというYes/No型のフィールドにチェックをするというコマンドボタンのアクションで、チェックを付すロジックでのご相談です。検索フィールドでの選択の値を拾えばSQLは再現できるのですが、サブフォームコントロール状で、
直接フィルタをされた場合、SQLが生成できないため、一応、このような方法で検討しています。

Private Sub 全て選択_Click()

    CurrentDb.Execute "update Qry_対象者 set 対象フラグ=false", dbFailOnError

    Set rs = Me.Controls("subForm1").Form.Recordset

    Me.Painting = False

    rs.MoveLast
    rs.MoveFirst

    Do Until rs.EOF

        rs.Edit
            rs![対象フラグ] = True
        rs.Update

        rs.MoveNext

    Loop

    Me.Painting = True

    Me.Controls("subForm1").Form.Requery

End Sub

提示のコードで問題なさそうですが、解決済みということでいいでしょうか。

Recordsetの部分を RecordsetClone あるいは Recordset.Clone にした方が高速に処理はできます。詳細は、下記を参照してください。

フォームの Recordset, RecorsetClone, RecordSet.Clone の違いとは？ - hatena chips

検索フィールドでの選択の値を拾えばSQLは再現できるのですが、サブフォームコントロール状で、直接フィルタをされた場合、SQLが生成できないため、このような方法で検討しています。

フィルターがかかっている場合、Filterプロパティに条件式が格納されてますので、それを使えばSQLは生成できると思います。リンクフィールド名が LinkFld で数値型なら、下記のような感じです。

Dim stSQL As String 
With Me.subForm1.Form
    stSQL = "update Qry_対象者 set 対象フラグ=true where LinkFld =" &  !LinkFld & " And (" & .Filter & ");"
End With

hatena様

少し自信が無かったのですが、確認できて本当に助かりました。
なるほどです。Filterがされていた場合でもSQLは取得できるのですね。
勉強になりました。

解決とさせていただきます。
どうもありがとうございました。