+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Formda If İç İçe Kullanım (/konu-formda-if-ic-ice-kullanim.html)
Cvp: Formda If İç İçe Kullanım - haziran4 - 29/04/2019
(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
Cvp: Formda If İç İçe Kullanım - berduş - 29/04/2019
mevcut sorun devam ediyorsa şimdi sorular kısmına taşırız
ama yeni soru ise yeni konu açmalısınız?
Cvp: Formda If İç İçe Kullanım - haziran4 - 29/04/2019
mevcut konu ile alakalı ama dosya ekleme kısmı yok
Cvp: Formda If İç İçe Kullanım - berduş - 29/04/2019
ekleyebilirsiniz
Cvp: Formda If İç İçe Kullanım - haziran4 - 29/04/2019
![[Resim: do.php?imgf=fcb6085eb2081.jpg]](https://accesstr.net/resim/do.php?imgf=fcb6085eb2081.jpg)
Cvp: Formda If İç İçe Kullanım - ozanakkaya - 29/04/2019
Ö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 IfResime 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.