あくせく
2020/06/09 (火) 16:47:53
fd919@de80a
一応こんなのでできましたが、問題はないでしょうか。
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
通報 ...