Formda Bitiş Tarihi Geçenlerin Alan Rengi Değişimi

Formda Bitiş Tarihi Geçenlerin Alan Rengi Değişimi - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Formda Bitiş Tarihi Geçenlerin Alan Rengi Değişimi (/konu-formda-bitis-tarihi-gecenlerin-alan-rengi-degisimi.html)

Formda Bitiş Tarihi Geçenlerin Alan Rengi Değişimi - haziran4 - 30/04/2019

Üstad "ozanakkaya" nın Yardımıyla

tarihi geçenlerin Aktif Pasif Bölümüne Pasif yazdırmayı ağagıdaki gibi yaptık. Bitiş tarihi Tarihi geçen Alanının Arka rengkleri Sarı olmasını Eğer Vize Bitiş Tarihi boş ise Aktif Pasif Kapalı Yazıyor Kapalı yazarsa da Vize bitiş Tarihi kırmızı olması için Aşagıdaki kod'un nerelerine nasıl yazmam gerekir.

Kısaca Özetlemek Gerekirse; Yillik_Vize_Bitis_Trh Boş Bırakıldığında Kapalı Yazdığında Yillik_Vize_Bitis_TrhAlanın Arka Rengi kırmızı,
Diğer Alanların Pasif yazdığında geçen Tarih alan hangisi ise arka alan rengi sarı olmasını nasıl uygulayabilirm.

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

Cvp: Formda Bitiş Tarihi Geçenlerin Alan Rengi Değişimi - ozanakkaya - 30/04/2019

Merhaba, önceki konunuzda son mesajımda gerekli kodları yazmıştım.

Cvp: Formda Bitiş Tarihi Geçenlerin Alan Rengi Değişimi - berduş - 30/04/2019

aslında Ozan hocam son mesajında cevabı da yazmıştı)

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ı"

    Me.AltyapiVizeBitisTrh.BackStyle = 1

    Me.AltyapiVizeBitisTrh.BackColor = vbRed

    Exit Sub

End If



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



    Me.Aktif_Pasif = "Pasif"

    Me.AltyapiVizeBitisTrh.BackStyle = 1

    Me.AltyapiVizeBitisTrh.BackColor = vbYellow



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 = vbYellow





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 = vbYellow

      

ElseIf (G1 < GDate) Then



    Me.Aktif_Pasif = "Pasif"

    Me.Yillik_Vize_Bitis_Trh.BackStyle = 1

    Me.Yillik_Vize_Bitis_Trh.BackColor = vbYellow



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

Cvp: Formda Bitiş Tarihi Geçenlerin Alan Rengi Değişimi - haziran4 - 30/04/2019

Üstad Görmemiştim Çok teşekkür Ederim İyi çalışmalar