Microsoft Access 掲示板

Microsoft Access 掲示板

サブフォームで抽出されたレコードセットを取得 / 4
4
hatena 2022/12/11 (日) 17:04:32

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

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
通報 ...