+- 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ığı: metin kutusunun dolu boş durumu (/konu-metin-kutusunun-dolu-bos-durumu.html)
metin kutusunun dolu boş durumu - Kardeşpayı - 28/04/2016
merhabalar,
ekte gönderdiğim dosya komut butonuna bağlı olarak çalışıyor. 1.denetim sonucu uygun değil iken 1.2. denetime tarih girdiğimde , denetime kalan süre yazan bölgede hata yazısının çıkmasını istiyorum.bir çok kere denedim ama hata mı bulamadım.Yardımcı olabilirseniz sevinirim.
Cvp: metin kutusunun dolu boş durumu - POWER - 28/04/2016
Daha önce açtığınız konuyu sonlandırınız...
Cvp: metin kutusunun dolu boş durumu - atoz112 - 29/04/2016
Sayın Kardeşpayı,
Bahsettiğiniz talebinize yönelik olarak;
Komut204 adlı butonun içeriği incelendiğinde,aşağıdaki açıklamaların yapılması uygun görülmüştür.
1)
Kod:
If IsNull(Me.txt_ruhsattarihi) Or Me.txt_ruhsattarihi = "" Or IsNull(Me.cb_denetimsuresi) Or Me.cb_denetimsuresi = "" And (Me.txt_denetim1) Or Me.txt_denetim1 = "" ThenAlıntı:“gerçekleşmesi için ruhsat tarihi ve atıksu denetim süresinin girilmiş olması gerekmektedir.”diye yazdığınız için, Or IsNull(Me.cb_denetimsuresi) kodundaki 2. OR ifadesi And olmalı.çünkü;bu mesajda yazdığı gibi iki denetime de bilgi girişlerinin yapılmasını şart koşuyorsunuz.birinden biri değil,ikisi de girilmeli diye.bunu düzeltmelisiniz.
2)
Kod:
ElseIf (txt_ruhsattarihi <> "") And (cb_denetimsuresi <> "") And IsNull(txt_denetim1 = "") ThenAnd IsNull(txt_denetim1 = "") ifadesinde zaten Isnull ile belirtmişsiniz,tekrar =”” denemeniz geçersiz kalmaktadır.
Kod:
ElseIf Not IsNull(txt_ruhsattarihi.Value) And Not IsNull(cb_denetimsuresi.Value) And IsNull(txt_denetim1)3)
Kod:
ElseIf (txt_denetim1 <> "") And IsNull(txt_denetim1_ph = "") And IsNull(txt_denetim1_akm = "") And IsNull(txt_denetim1_koi = "") And IsNull(txt_denetim1_yaggres = "") ThenYine yazım hataları nedeni ile,bu kodları aşağıdaki gibi düzeltebilirsiniz.
Kod:
ElseIf Not IsNull(txt_denetim1.Value) And IsNull(txt_denetim1_ph) And IsNull(txt_denetim1_akm) And IsNull(txt_denetim1_koi) And IsNull(txt_denetim1_yaggres) ThenKod:
ElseIf (txt_denetim1 <> "") And Me.txt_denetim1_ph >= 6 And Me.txt_denetim1_ph <= 10 And (txt_denetim1_akm <= 500) And (txt_denetim1_yaggres <= 100) And (txt_denetim1_koi <= 1000) And IsNull(txt_denetim1_2 = "") ThenSayın power tarafından aşağıda bağlantısı yazılı konunuzda paylaştıkları kodları kullanmak sureti ile çözüm elde edebilirsiniz.o kodlardan uyarlanmış olarak kodları aşağıdaki ile değiştirebilirsiniz.
Kod:
elseIf IsDate(Me.txt_denetim1) And IsNull(txt_denetim1_2) Then
If Me.txt_denetim1_ph >= 6 And Me.txt_denetim1_ph <= 10 Then
If Me.txt_denetim1_akm <= 500 Then
If Me.txt_denetim1_yaggres <= 100 Then
If Me.txt_denetim1_koi <= 1000 Then
Me.txt_denetim1_sonuc = "Uygun"
Exit Sub
End If
End If
End If
End If
End If
Me.txt_denetim1_sonuc = "Uygun değil"
Exit subKod:
ElseIf (txt_denetim1 <> "") And IsNull(txt_denetim1_2 = "") And Me.txt_denetim1_ph < 6 Or Me.txt_denetim1_ph > 10 Or (txt_denetim1_akm > 500) Or (txt_denetim1_yaggres > 100) Or (txt_denetim1_koi > 1000) ThenYine sayın power’ın kodlarından uyarlamak sureti ile,aşağıdaki gibi kullanabilirsiniz.
Kod:
elseIf IsDate(Me.txt_denetim1) And IsNull(txt_denetim1_2) Then
If Me.txt_denetim1_ph < 6 And Me.txt_denetim1_ph > 10 Then
If Me.txt_denetim1_akm > 500 Then
If Me.txt_denetim1_yaggres > 100 Then
If Me.txt_denetim1_koi > 1000 Then
Me.txt_denetim1_sonuc = "Uygun değil"
Exit Sub
End If
End If
End If
End If
End If
Me.txt_denetim1_sonuc = "Uygun"
Exit sub