[kapetang]

Δοκίμασε τον κώδικα:

Private Sub Εντολή26_Click()
Dim sinthiki As String, SDate As Variant, EDate As Variant
    Do
        SDate = InputBox("Ημερομηνία έναρξης", "η/μ/εεεε")
    Loop Until IsDate(SDate)
    Do
        EDate = InputBox("Ημερομηνία λήξης", "η/μ/εεεε")
    Loop Until IsDate(EDate)

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

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

End Sub