dilerim çalışır
Kod:
Dim Deger As Integer
If Me.sigortabitişi < Date Then Deger = 0 Else Deger = -1
Me.tcno.Enabled = Deger
Me.adısoyadı.Enabled = Deger
Me.işebaşlama.Enabled = Deger
Me.iştenayrılış.Enabled = Deger
Me.sigortabaşlagıcı.Enabled = Deger
Me.sigortabitişi.Enabled = Deger