Skip to main content

AccessTr.neT


metin kutusunun dolu boş durumu

Kardeşpayı
Kardeşpayı
2
1133

metin kutusunun dolu boş durumu

#1
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.
.rar dolu boş.rar (Dosya Boyutu: 942,25 KB | İndirme Sayısı: 3)
Cevapla
#2
Daha önce açtığınız konuyu sonlandırınız...
Please return your positive or negative ...
Cevapla
#3
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 = "" Then
Komutlarına dair;
Alı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 = "") Then
Komutlarına dair;

And 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)
şeklinde yazabilirsiniz,bu kod satırını.

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 = "") Then
Komutlarına dair;

Yine 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) Then
4)
Kod:
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 = "") Then
Komutlarına dair;

Sayı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 sub

5)
Kod:
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) Then
Komutlarına dair;

Yine 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

Düzeltilmesi gereken kodlar bunlardan ibaret.zaman ve imkan sorunu nedeni ile şimdilik olmak üzere,bunları paylaşmayı uygun görmekteyim.kodları deneme imkanım olmadığı için de sonuçlarının ne olabileceğini de bilmiyorum.siz deneyiniz ve olumsuz durumda bilgilendirmede bulunabilirsiniz.Bilginize…iyi çalışmalar,saygılar.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task