Kod:
Dim strSQL As String
If Me.Onay10 Then
DoCmd.SetWarnings False
strSQL = "UPDATE Tablo1 SET Tablo1.Eklem = True"
DoCmd.RunSQL (strSQL)
Me.Form.Requery
Else
strSQL = "UPDATE Tablo1 SET Tablo1.Eklem = False"
DoCmd.RunSQL (strSQL)
Me.Form.Requery
DoCmd.SetWarnings True
End If