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
Kod:
If Me.Metin1<>"deneme" Or Me.Metin2<>"deneme2" then
MsgBox("Uygun değil")
Else
'...diğer işlemler ne ise onlar yazılır...
End If
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