ユーザーが任意の条件で抽出したサブフォームコントロールの
レコードに対して、データを一括更新（チェックボッスにチェックON/OFF）したいのですが、
レコードセットの取得はどのようにしたらよいでしょうか？
よろしくお願いします。
Microsoft Access 掲示板
サブフォームコントロールにかかったフィルタからレコードセット取得
3
コメント
views
4
フォロー
通報 ...
一応こんなのでできましたが、問題はないでしょうか。
Dim strSQL As String
Dim rst As DAO.Recordset
Set rst = Me.subForm.Form.RecordsetClone
rst.MoveFirst
Do Until rst.EOF
rst.Edit
rst.Fields(checkItem) = True
rst.Update
rst.MoveNext
Loop
Me.subForm.Form.Requery
問題なと思います。
ただ、下記の変数宣言は、使ってないので不要でしょう。
Dim strSQL As Stringありがとうございます。
ご指摘通り、消し忘れでした。