If Me.Yillik_Vize_Bitis_Trh < Date Then
Me.Aktif_Pasif = "Pasif"
ElseIf Me.Yillik_Vize_Bitis_Trh >= Date Then
Me.Aktif_Pasif = "Aktif"
ElseIf Not IsDate(Me.Yillik_Vize_Bitis_Trh) Then
Me.Aktif_Pasif = "Kapalı"
End If
şeklinde deneyin. Çalışmaz ise örnek uygulamanızı ekleyin.