ΑΝΑΖΗΤΗΣΗ ΕΓΓΡΑΦΩΝ ΗΜΕΡΟΛΟΓΙΑΚΟΥ ΔΙΑΣΤΗΜΑΤΟΣ

[smasak]

Έχω αυτόν τον κώδικα για εμφάνιση έκθεσης μεταξύ 2 ημερομηνιών.
Dim SDate As Variant
Dim EDate As Variant
SDate = InputBox("ΑΡΧΙΚΗ ΗΜΕΡΟΜΗΝΙΑ", "çç/ìì/åååå")
EDate = InputBox("ΤΕΛΙΚΗ ΗΜΕΡΟΜΗΝΙΑ", "çç/ìì/åååå")

If Not IsDate(SDate) Or Not IsDate(EDate) Then
MsgBox ("Áðáéôïýíôáé êé ïé äõï çìåñïìçíßåò !"), vbInformation, "Åëåã÷ïò"
Exit Sub
End If

Dim sinthiki
sinthiki = "[ΗΜΕΡΟΜΗΝΙΑ ΧΡΕΩΣΗΣ] Between #" & Format(SDate, "mm\/dd\/yyyy") & "#" & _
" and #" & Format(EDate, "mm\/dd\/yyyy") & "#"

DoCmd.OpenReport "rptPliromesHmer", acViewReport, , "[ID]=" & Me.ID & "and " & sinthiki

Έχω προσθέσει και το πεδίο [ΗΜΕΡΟΜΗΝΙΑ ΠΛΗΡΩΜΗΣ] και θέλω να πάρει και αυτές τις εγγραφές πως πρέπει να διαμορφωθεί ο κώδικας;