metin kutusunu Labela cevirip aşağıdaki kodları ekleyerek dener misiniz?

Private Sub Form_Current()

Me.Metin0.Caption = IIf([Alan1] = True, "P", "")

End Sub

ilk kod form current olayına eklenecek böylece form yüklendiğinde ve kayıtlar arasında dolaşırken Label kutusu değişir

Private Sub Metin0_Click()

If Me.Alan1 = -1 Then

Me.Alan1 = 0

Me.Alan1.Requery

Me.Metin0.Caption = ""



ElseIf Me.Alan1 = 0 Then

Me.Alan1 = -1

Me.Metin0.Caption = "P"

End If

'Me.Metin0.Caption = IIf([Alan1] = True, "P", "")

End Sub

---

dilerim işinize yarar

---

aslında metin0 tıklama olayı aşağıdaki gibi de olabilir

Private Sub Metin0_Click()

If Me.Alan1 = -1 Then Me.Alan1 = 0 Else Me.Alan1 = -1

Me.Metin0.Caption = IIf([Alan1] = True, "P", "")

End Sub