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.
dolu boş.rar
(Dosya Boyutu: 942,25 KB | İndirme Sayısı: 3)
