Ö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.