Merhaba, elseif kısmı aşağıdaki gibi olmalı

If Not IsDate(Me.Yillik_Vize_Bitis_Trh) Then

    Me.Aktif_Pasif = "Kapalı"

    Exit Sub

End If





If Me.Yillik_Vize_Bitis_Trh < Date And Me.AltYapi_Vize_Bitis_Trh > Date Then



Me.Aktif_Pasif = "Pasif"



ElseIf Me.Yillik_Vize_Bitis_Trh < Date And Me.Endustriyel_Donusum_Belgesi_Vize_Bitis_Tarihi > Date Then



Me.Aktif_Pasif = "Pasif"



ElseIf Me.Yillik_Vize_Bitis_Trh < Date And Me.ic_Tesisat_Belgesi_Vize_Bitis_Tarihi > Date Then



Me.Aktif_Pasif = "Pasif"



Else



Me.Aktif_Pasif = "Aktif"



End If

Vize bitiş tarihi yok ise kapalı,
Herhangi biri geçmiş ise pasif.
Hiç biri değil ise aktif