Teşekkür ederim.
Yillik_Vize_Bitis_Trh geçmemiş, Diğer bitim tarihlerinden biri mesela AltYapi_Vize_Bitis_Trh geçmiş yapıyorum Form Yeniden Açıldığında Aktif yazıyor Pasif olamsı lazım. Yeni Yazarken Problem yok
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
(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
Merhaba, kodu aşağıdaki ile değiştirin. Farklı tarihler girip F5 ile formu yenileyerek test edin.
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"
Else
Me.Aktif_Pasif = "Aktif"
End If
Üstad İlgilenmeniz için teşekkür ederim.
sayfayı yeniledim mi boş bırakıldığında kapalı oluyor. tarihlerin biri geçmiş ise aktif geliyor. Şaşılacak valla
Benim denemelerimde herhangi bir sorun yok. Ben kodda geçen 4 metin kutusunda deneme yapıyorum. Metin kutularının isimlerini kontrol edin. Ayrıca hatalı olduğunu belirttiğiniz hususları yazın. Benim gözümden kaçan bir yer olabilir.