else olayını kaçırmışım çok teşekkür ederim sorun çözüldü
aşağıdaki kodu da deneyebilirsiniz daha sade)
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