Yillik_Vize_Bitis_Trh Alanı Tarih Geçmiş ise Aktif_Pasif Alanı Pasif Yazsın Değil ise Aktif_Pasif Alanı Aktif Yazsın buraya kadar oluyor. Vize_Bitis_Trh Alanı Boş ises de Aktif_Pasif Alanı Kapalı Yazsın nasıl yapabilirim

If Me.Yillik_Vize_Bitis_Trh < Date Then

Me.Aktif_Pasif = "Pasif"
 
Else
Me.Aktif_Pasif = "Aktif" (Kalın Yeler Oluyor)

Else

If Me.Yillik_Vize_Bitis_Trh ="" Then
Me.Aktif_Pasif = "Kapalı"

End If
End İf