Meselasizin Gönderdiğiniz yapılmış örneği indirdim alo tekniki açtım viz bitiş tarihi geçmiş olmasına rağmen Aktif yazıyor. Vize bitişi geçen tarih yazıyorum Aktif yazıyor ben değiştiğinde ve güncelleştirme sonralarınada yazmışım oralar doğrumu veya ikisinede gerek var mı oralarda da  mı hata var bilemedim. Güncelleştirme sonraları sayfayı yenile yeterli olurmu .

Ö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

Üstad Teşekkürler Şimdi oldu. 

kodların içine yazılacağı için Yeni konu mu açıp sormam lazımdı bilemedim  Geçen tarih olursa Geçen Alanın Arka Alan Rengi kırmızı olmasını nerelerine yazmak gerekir.

(30/04/2019, 11:46)haziran4 yazdı: Geçen tarih olursa Geçen Alanın Arka Alan Rengi kırmızı olmasını nerelerine yazmak gerekir.

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"

    Me.AltyapiVizeBitisTrh.BackStyle = 1

    Me.AltyapiVizeBitisTrh.BackColor = vbRed



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



    Me.Aktif_Pasif = "Pasif"

    Me.Endustriyel_Donusum_Belgesi_Vize_Bitis_Tarihi.BackStyle = 1

    Me.Endustriyel_Donusum_Belgesi_Vize_Bitis_Tarihi.BackColor = vbRed





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



    Me.Aktif_Pasif = "Pasif"

    ic_Tesisat_Belgesi_Vize_Bitis_Tarihi.BackStyle = 1

    ic_Tesisat_Belgesi_Vize_Bitis_Tarihi.BackColor = vbRed

      

ElseIf (G1 < GDate) Then



    Me.Aktif_Pasif = "Pasif"

    Me.Yillik_Vize_Bitis_Trh.BackStyle = 1

    Me.Yillik_Vize_Bitis_Trh.BackColor = vbRed



Else

    

    Me.Aktif_Pasif = "Aktif"

    Yillik_Vize_Bitis_Trh.BackStyle = 0

    Me.AltyapiVizeBitisTrh.BackStyle = 0

    Me.Endustriyel_Donusum_Belgesi_Vize_Bitis_Tarihi.BackStyle = 0

    Me.Yillik_Vize_Bitis_Trh.BackStyle = 0

End If

İç içe if kullanımı ile ilgili sorunuz cevaplandıysa belirtin, konunuzu taşıyalım.

Taşıyabilirz Çok teşekkür ederim Üstad. olmuş