Formda If İç İçe Kullanım

1 2 3 4 5
27/04/2019, 18:02

haziran4

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
27/04/2019, 18:51

berduş

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ı"
29/04/2019, 10:47

haziran4

(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.
29/04/2019, 11:16

ozanakkaya

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.
29/04/2019, 11:41

berduş

aktif_pasif alanını tablo ile ilişkilendirdiniz mi?
bazen dikkatten kaçıyor ilişkilendirilmemiş oluyor, kontrol eder misiniz ilişkilendirilmiş mi?
29/04/2019, 11:48

haziran4

Ben yanlış yere yamışım oldu teşekkür ederim.
1 2 3 4 5