AccessTr.neT

Tam Versiyon: Formda If İç İçe Kullanım
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3 4 5
Yillik_Vize_Bitis_Trh Alanı Tarih Geçmiş ise Aktif_Pasif Alanı Pasif Yazsın Değil ise Aktif_Pasif Alanı Aktif Yazsın buraya kadar oluyor. Vize_Bitis_Trh Alanı Boş ises de Aktif_Pasif Alanı Kapalı Yazsın nasıl yapabilirim

If Me.Yillik_Vize_Bitis_Trh < Date Then

Me.Aktif_Pasif = "Pasif"
 
Else
Me.Aktif_Pasif = "Aktif" (Kalın Yeler Oluyor)

Else

If Me.Yillik_Vize_Bitis_Trh ="" Then
Me.Aktif_Pasif = "Kapalı"

End If
End İf
If Me.Yillik_Vize_Bitis_Trh < Date Then Me.Aktif_Pasif = "Pasif"
If Me.Yillik_Vize_Bitis_Trh >= Date Then Me.Aktif_Pasif = "Aktif"
If Not IsDate(Me.Yillik_Vize_Bitis_Trh) Then Me.Aktif_Pasif = "Kapalı"
(27/04/2019, 18:51)haliliyas yazdı: [ -> ]
If Me.Yillik_Vize_Bitis_Trh < Date Then Me.Aktif_Pasif = "Pasif"
If Me.Yillik_Vize_Bitis_Trh >= Date Then Me.Aktif_Pasif = "Aktif"
If Not IsDate(Me.Yillik_Vize_Bitis_Trh) Then Me.Aktif_Pasif = "Kapalı"

Teşekkür Ederim anlık oluyor kaydedip tekrar açtığımda olmuyor.
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.
aktif_pasif alanını tablo ile ilişkilendirdiniz mi?
bazen dikkatten kaçıyor ilişkilendirilmemiş oluyor, kontrol eder misiniz ilişkilendirilmiş mi?
Ben yanlış yere yamışım oldu teşekkür ederim.
Sayfalar: 1 2 3 4 5