Kod:
Private Sub Komut1_Click()
Forms![Form1]![Onay1].Value = "-1"
End Sub
Kod:
Private Sub Komut1_Click()
Forms![Form1]![Onay1].Value = "0"
End Sub
Eğer aynı düğme ile hem işaretlemek hem de işareti kaldırmak isterseniz de aşağıdaki kodu kullanabilirsiniz.
Kod:
Private Sub Komut1_Click()
If Forms![Form1]![Onay1].Value = "0" Then
Forms![Form1]![Onay1].Value = "-1"
ElseIf Forms![Form1]![Onay1].Value = "-1" Then
Forms![Form1]![Onay1].Value = "0"
End If
End Sub