[kapetang]

Καλησπέρα

Σάκη, δοκίμασε τον κώδικα:

Private Sub cmdOpenReport_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, , sinthiki

End Sub