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
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
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)
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
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
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
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
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
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