Kod:
Private Sub Form_Current()
If Me.sigortabitişi < Date Then
Me.tcno.Enabled = False
Me.adısoyadı.Enabled = False
Me.işebaşlama.Enabled = False
Me.iştenayrılış.Enabled = False
Me.sigortabaşlagıcı.Enabled = False
Me.sigortabitişi.Enabled = False
Else
Me.tcno.Enabled = True
Me.adısoyadı.Enabled = True
Me.işebaşlama.Enabled = True
Me.iştenayrılış.Enabled = True
Me.sigortabaşlagıcı.Enabled = True
Me.sigortabitişi.Enabled = True
End If
End Sub