Φίλτράρισμα εγγραφών Φόρμας Μέσω Πολλών ComboBox

[nasos23]

Αρχική Δημοσίευση από Χρήστος

(Στην 11 γραμμή απ' το τέλος όπου Complet-->Complete)
Δουλεύει άψογα, σ' ευχαριστώ πάρα πολύ.

Νά είσαι καλά
Τα προβλήματα ήταν τα εξής:
Στο κουμπί ανοίγματος της Έκθεσης.

Private Sub cmdOpenRPT_Click()
DoFilter True
End Sub

Για ComboBox Ημερομηνία από και Ημερομηνία εώς

'StrSQL = StrSQL & strAnd & "[OrderDate] Between #" & Format(Me.DateFrom, "yyyy-m-d") & "# OR #" & Format(Me.DateΤο, "yyyy-m-d") & "#"

Το πρόβλημα ήταν η απόστροφος μπροστά απ' 'StrSQL και έτσι το θεωρούσε σαν κείμενο
και το OR αντί του AND.
Το σωστό είναι:

StrSQL = StrSQL & strAnd & "[OrderDate] Between #" & Format(Me.DateFrom, "yyyy-m-d") & "# AND #" & Format(Me.DateTo, "yyyy-m-d") & "#"