Kod:
Private Sub durumu_AfterUpdate()
Refresh
Forms!personel!Etiket10.Caption = IIf(DCount("durumu", "istihkakSorgu", "durumu='aldı'") >= 4, "hakkı yok", "alabilir")
End Sub
Private Sub durumu_AfterUpdate()
Refresh
Forms!personel!Etiket10.Caption = IIf(DCount("durumu", "istihkakSorgu", "durumu='aldı'") >= 4, "hakkı yok", "alabilir")
End Sub
Private Sub durumu_Exit(Cancel As Integer)
Forms![personel]!Etiket10.Caption = IIf(DCount("durumu", "istihkakSorgu", "durumu='aldı'") >= 4, "hakkı yok", "alabilir")