Öncelikle, benim yazdığım kod, konu başlığınızdaki sorunuzda belirttiğiniz iç içe if kullanımına örnek olması için yazıldı. Kod içerisinde eksiklik var ise tamamlamanız gerekli, 

Yazılan kodda vize bitiş tarihinin geçmesi durumunda yapılacak işlem yazılmamış. 

Dim GDate, G1, G2, G3, G4 As Long



GDate = CLng(Date)

G1 = CLng(Nz(Me.Yillik_Vize_Bitis_Trh, Date))

G2 = CLng(Nz(Me.Endustriyel_Donusum_Belgesi_Vize_Bitis_Tarihi, Date))

G3 = CLng(Nz(Me.ic_Tesisat_Belgesi_Vize_Bitis_Tarihi, Date))

G4 = CLng(Nz(Me.AltYapi_Vize_Bitis_Trh, Date))





If Not IsDate(Me.Yillik_Vize_Bitis_Trh) Then

    Me.Aktif_Pasif = "Kapalı"

    Exit Sub

End If



If (G1 > GDate) And (G4 < GDate) Then



    Me.Aktif_Pasif = "Pasif"



ElseIf (G1 > GDate) And (G2 < GDate) Then



    Me.Aktif_Pasif = "Pasif"



ElseIf (G1 > GDate) And (G3 < GDate) Then



    Me.Aktif_Pasif = "Pasif"

    

ElseIf (G1 < GDate) Then



    Me.Aktif_Pasif = "Pasif"



Else



    Me.Aktif_Pasif = "Aktif"



End If