onay kutusu yerine metin kutusu ekle, denetim kaynağına
=IIf([AlanAdi]=Doğru,"P","")
yaz,yazı karakterini "Wingdings 2" olarak değiştir,
metin kutusunun çift tıklandığında olayına
If Me.AlanAdi = -1 Then
Me.AlanAdi = 0
Me.AlanAdi.Requery
ElseIf Me.AlanAdi = 0 Then
Me.AlanAdi = -1
End If
kodu yaz.