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