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