///////////////////////////////////////////////
Kod:
Sub VD()
If Date < Me.Vize_Tarihi Then
Me.Vize_Durumu = "Vizesi Devam Ediyor"
Else
Me.Vize_Durumu = "Vizesi Bitti"
End If
End Sub
Kod:
Private Sub Form_Current()
Call VD
End Sub
en doğrusu örneğine bak görürsün kendin