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.
![[Resim: 13239144241.png]](https://resim.accesstr.net/uploads/13239144241.png)