merhabalar

ekli dosyada komut butonuna bağlı olarak formdaki ph, akm, yağ gres ve koi değerlerinin sırası ile 6<ph<10, akm<500, yağ ve gres<100, koi<1000 olduğunda (girilen değerler 4 şartıda sağlaması halinde) 1. denetim sonucu kısmına "uygun", girilen değerlerden birinin bile sağlamadığı durumda ise  "uygun  değil" yazmasını sağlamaya çalıştım ama benim yaptığım çalışmadan girilen değerlerin tamamı verilen şartları sağlamazsa uygun değildir yazıyor. Bu hatayı nasıl düzeltebilirim.

sayın Kardeşpayı,

bahsettiğiniz talebinize yönelik olarak;
bütün 4 şartı da geçerli durumda kabul etmek için her bir şart için If Fonksiyonu ile kriterler yazılırken aralarına AND işaretini yazarak deneyiniz.

ÖRNEK
If Me.Metin1="deneme" And Me.Metin2="deneme2 then...gibi.

son olarak;
naçizane bir de tavsiyede bulunmak adına,lütfen her bir yeni konunuza örnek çalışma eklerken aynı isim ile yazmayınız.bunun yerine,her bir yeni konunuza özgü kısa ve öz farklı isimlendirmede bulununuz.teşekkürler.

bilginize...iyi çalışmalar,saygılar.

Sayın atoz112

Değerlerden yalnızca biri sağlamadigin da uygun değil ifadesini nasıl yapabilirim?

sayın Kardeşpayı,

bahsettiğiniz talebinize yönelik olarak;

ÖRNEK

eğer Metin1 değeri "deneme" ifadesine ya da Metin2 değeri "deneme2" ifadesine eşit değilse
 

bilginize...iyi çalışmalar,saygılar.

hocam
6<ph<10 aralığıdan dolayı sorunu çözemiyorum. Yazdığım kod şu şekilde;

Private Sub Komut5_Click()
If Me.txt_denetim1 And (txt_denetim1_ph = "") And (txt_denetim1_akm = "") And (txt_denetim1_koi = "") And (txt_denetim1_yaggres = "") Then
txt_denetim1_sonuc = "veri girişi yapınız"
ElseIf Me.txt_denetim1 And ((txt_denetim1_ph >= 6) Or (txt_denetim1_ph <= 10)) And (txt_denetim1_akm <= 500) And (txt_denetim1_koi <= 1000) And (txt_denetim1_yaggres <= 100) Then
txt_denetim1_sonuc = "uygun"
Else
txt_denetim1_sonuc = "uygun değil"

End If
End Sub

Kodunuzu aşağıdaki gibi yapınız...

Private Sub Komut5_Click()

If IsDate(Me.txt_denetim1) 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"

End Sub