AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

Formda If İç İçe Kullanım

1 2 3 4 5
29/04/2019, 13:19

haziran4

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

Dosya ve resimi ekleme kısmı yok yeni konu da mı açayım
29/04/2019, 13:22

berduş

mevcut sorun devam ediyorsa şimdi sorular kısmına taşırız
ama yeni soru ise yeni konu açmalısınız?
29/04/2019, 13:23

haziran4

mevcut konu ile alakalı ama dosya ekleme kısmı yok
29/04/2019, 13:24

berduş

ekleyebilirsiniz
29/04/2019, 13:36

haziran4


29/04/2019, 14:17

ozanakkaya

Ö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.
1 2 3 4 5