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