Πρόβλημα Σε Κώδικα για φόρμα Αναζήτησης

[Dimitriss]

Καλησπέρα στην κοινότητα. θα ήθελα τη βοήθεία σας στο παρακάτω κομμάτι κώδικα, όπου θέλω να εμφανίζεται σε μια υποφόρμα τα αποτελέσματα μερικών ερωτημάτων. Στο συμβάν κλίκ του ποντικιού ελέχει αν κάποια checkbox είναι επιλεγμένα και αν έχει εμφανίζει ένα μήνυμα,καθώς επίσης και κάποια combobox αν είναι κενά και εμφανίζει το ανάλογο μήνυμα. Το πρόβλημα που αντιμετωπίζω είναι ότι αλλάζω επίλογή στο checkbox δεν τρέχει τα sql ερωτήματα στον κώδικα.
Παράδειγμα: οταν επίλεγω το checkbox με όνομα ReplaceDriver και τα combobox cbdriver και DateFrom έχουν πάρει τιμή θέλω να τρέξει το ερώτημα qrReplace. Δοκίμασα σε κάποια σημεία του κώδικα και έβαλα την εντολή exit sub αλλα δεν καταφερα κάτι.
Ευχαριστώ.

Private Sub btSearchReplace_Click()
'===========================================

'===========================================
Dim qrReplace As String
Dim qrNoKtel As String
Dim qrDual As String
If Me.ReplaceDriver.Value = False And Me.DualDriver.Value = False And Me.NoKtelDriver.Value = False Then
MsgBox "Wrong....!", vbInformation, "Access"
    Me.ReplaceDriver.SetFocus
    Else
If Me.ReplaceDriver.Value = True And IsNull(Me.cbdriver.Value) Or Me.cbdriver.Value = "" Or IsNull(Me.DateFrom.Value) Or Me.DateFrom.Value = "" Then
    MsgBox "Wrong!", vbInformation, "Access"
    Me.cbdriver.SetFocus
    Me.DateFrom.SetFocus
    Me.cbdriver.BackColor = vbRed
    Me.DateFrom.BackColor = vbRed
   'Query
   Else
   If Me.ReplaceDriver.Value = True And Not IsNull(Me.cbdriver.Value) Or Me.cbdriver.Value <> "" And Not IsNull(Me.DateFrom.Value) Or Me.DateFrom.Value <> "" Then
qrReplace = "SELECT * FROM tblNoKTEL " _
& "WHERE tblNoKTEL.idDriverKTEL= " & Me.cbdriver.Value & " " _
& " AND tblNoKTEL.idDateKTEL BETWEEN  " & Me.DateFrom.Value & "  AND  " & Me.DateTo.Value & "; "
Me.subNoKTEL.Form.RecordSource = qrReplace
Me.subNoKTEL.Form.Requery
'===========================================

'===========================================
Else
If Me.NoKtelDriver.Value = True And IsNull(Me.cbdriver.Value) Or Me.cbdriver.Value = "" Or IsNull(Me.DateFrom.Value) Or Me.DateFrom.Value = "" Then
    MsgBox "Wrong....!", vbInformation, "Access"
    Me.cbdriver.SetFocus
    Me.DateFrom.SetFocus
    Me.cbdriver.BackColor = vbRed
    Me.DateFrom.BackColor = vbRed
    '///////////////////////////////
   'Query
   '///////////////////////////////
   Else
   If Me.NoKtelDriver.Value = True And Not IsNull(Me.cbdriver.Value) Or Me.cbdriver.Value <> "" And Not IsNull(Me.DateFrom.Value) Or Me.DateFrom.Value <> "" Then
qrNoKtel = "SELECT * FROM tblNoKTEL " _
& "WHERE tblNoKTEL.idDriverNoKTEL= " & Me.cbdriver.Value & " " _
& " AND tblNoKTEL.idDateKTEL BETWEEN  " & Me.DateFrom.Value & "  AND  " & Me.DateTo.Value & "; "
Me.subNoKTEL.Form.RecordSource = qrNoKtel
Me.subNoKTEL.Form.Requery
'=====================================================

'====================================================
Else
If Me.DualDriver.Value = True And IsNull(Me.DateFrom.Value) Or Me.DateFrom.Value = "" Then
    MsgBox "Wrong....!", vbInformation, "Access"
    Me.cbdriver.Locked = True
    Me.DateFrom.SetFocus
    Me.DateFrom.BackColor = vbRed
   'ÔÑÅÎÉÌÏ ÅÑÙÔÇÌÁÔÏÓ
   Else
   If Me.DualDriver.Value = True And Not IsNull(Me.DateFrom.Value) Or Me.DateFrom.Value <> "" Then
qrDual = "SELECT * FROM tblNoKTEL " _
& "WHERE  tblNoKTEL.idDateKTEL BETWEEN  " & Me.DateFrom.Value & "  AND  " & Me.DateTo.Value & "; "
Me.subNoKTEL.Form.RecordSource = qrDual
Me.subNoKTEL.Form.Requery
   End If
   End If
   End If
   End If
   End If
   End If
   End If
End Sub

[Dimitriss]

Τελίκα η λύση βρέθηκε σπάζοντας τον κώδικα στα τρια σε τρια ισάρυθμα κουμπια