hatena
hatena
2021/05/08 (土) 11:44:53
別案としてフォームのレコードセットを直接更新する方法も提示しておきます。
Yes/No型フィールドの名前は、chk1, chk2, chk3, chk4 と仮定したコードですので実際のものに変更して使用してください。
Private Sub ボタン_Click()
With Me.RecordsetClone
.MoveFirst
Do until .EOF
.Edit
!Chk1 = False
!Chk2 = False
!Chk3 = False
!Chk4 = False
.Update
.MoveNext
Loop
End With
End Sub
通報 ...