(29/04/2019, 17:57)ozanakkaya yazdı: Merhaba, elseif kısmı aşağıdaki gibi olmalı

If Not IsDate(Me.Yillik_Vize_Bitis_Trh) Then

    Me.Aktif_Pasif = "Kapalı"

    Exit Sub

End If





If Me.Yillik_Vize_Bitis_Trh < Date And Me.AltYapi_Vize_Bitis_Trh > Date Then



Me.Aktif_Pasif = "Pasif"



ElseIf Me.Yillik_Vize_Bitis_Trh < Date And Me.Endustriyel_Donusum_Belgesi_Vize_Bitis_Tarihi > Date Then



Me.Aktif_Pasif = "Pasif"



ElseIf Me.Yillik_Vize_Bitis_Trh < Date And Me.ic_Tesisat_Belgesi_Vize_Bitis_Tarihi > Date Then



Me.Aktif_Pasif = "Pasif"



Else



Me.Aktif_Pasif = "Aktif"



End If

Vize bitiş tarihi yok ise kapalı,
Herhangi biri geçmiş ise pasif.
Hiç biri değil ise aktif 

aynen boş iken Kapalı yazıyor Çıkıp Girdiğimde Kapalı Duruyor. Ama Diğertarihler geçmiş ise Pasif yazıyor. formdan çıkıp yeniden o kaydı açtığımda aktif yazıyor şaşılacak valla nerde yanlış yapıyorum bilemedim üstad