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ş