(29/04/2019, 11:16)ozanakkaya yazdı: Merhaba,

If Me.Yillik_Vize_Bitis_Trh < Date Then

    Me.Aktif_Pasif = "Pasif"

ElseIf Me.Yillik_Vize_Bitis_Trh >= Date Then

    Me.Aktif_Pasif = "Aktif"

ElseIf Not IsDate(Me.Yillik_Vize_Bitis_Trh) Then

    Me.Aktif_Pasif = "Kapalı"

End If

şeklinde deneyin. Çalışmaz ise örnek uygulamanızı ekleyin.

Dosya ve resimi ekleme kısmı yok yeni konu da mı açayım

mevcut sorun devam ediyorsa şimdi sorular kısmına taşırız
ama yeni soru ise yeni konu açmalısınız?

mevcut konu ile alakalı ama dosya ekleme kısmı yok

ekleyebilirsiniz

Örnek uygulamanızda, formun geçerli olduğunda olayındaki kodun düzenlenmiş hali;

If Me.Yillik_Vize_Bitis_Trh < Date Then

Me.Aktif_Pasif = "Pasif"

ElseIf Me.Yillik_Vize_Bitis_Trh > Date Then

Me.Aktif_Pasif = "Aktif"

ElseIf Not IsDate(Me.Yillik_Vize_Bitis_Trh) Then

Me.Aktif_Pasif = "Kapalı"



ElseIf Me.AltYapi_Vize_Bitis_Trh < Date Then

Me.Aktif_Pasif = "Pasif"

ElseIf Me.AltYapi_Vize_Bitis_Trh > Date Then

Me.Aktif_Pasif = "Aktif"

ElseIf Me.Endustriyel_Donusum_Belgesi_Vize_Bitis_Tarihi < Date Then

Me.Aktif_Pasif = "Pasif"

ElseIf Me.Endustriyel_Donusum_Belgesi_Vize_Bitis_Tarihi > Date Then

Me.Aktif_Pasif = "Aktif"

ElseIf Me.ic_Tesisat_Belgesi_Vize_Bitis_Tarihi < Date Then

Me.Aktif_Pasif = "Pasif"

ElseIf Me.ic_Tesisat_Belgesi_Vize_Bitis_Tarihi > Date Then

Me.Aktif_Pasif = "Aktif"



End If

Resime yazdığınız metindeki verilere göre if kodundaki eksik kısımları tamamlamanız gerekiyor.

Ayrıca, örnek uygulamalarınızı lütfen sıkıştırıp onararak ekleyin.