Show the Report between two dates

[salonikije]

Dear,
I'm almost done with my little app...



But, I have to do one more thing and unfortunatelly, I got stuck....

I have a simple app for managing state of drinks inventory. This app contains only one table, called "Artikal" in which I have some of fields.

Now, I have the form called "Statistika", where I want to present cumulative list using reports... First report is list of all records, second is list of all records grouped by name of drink, and the third should be the report to show only records between two dates, which are selected by user...

My idea is to have two date fields "From Date" and "To Date" on the "Statistika" form and when user chose the date range and click on the button on the right of them, it shows filtered report...

The field in "Artikal" table which contains date is "Datum".


I would appreciate if someone would help me solve this problem.


Thnx in advance!
Aleksandar

[ssanfu]

My idea is to have two date fields "From Date" and "To Date" on the "Statistika" form and when user chose the date range and click on the button

For clarity, you would not have "two date fields", you would have two unbound text boxes" for the dates.
It is better to NOT have spaces in object names.


What is the code in the button click?

[June7]

Review http://allenbrowne.com/ser-62.html

[ssanfu]

Maybe something like this:

Option Compare Database
Option Explicit

Private Sub cmdGetReport_Click()
    On Error GoTo Err_cmdGetReport_Click

    Dim stDocName As String
    Dim StartDate As Date
    Dim EndDate As Date
    Dim ServDate As String
    Const fmtDate = "\#mm\/dd\/yyyy\#"


    stDocName = "Your_Report_Name"  '<<<---change this to your report name

    'are both dates entered?
    If IsNull(tbFromDate) Or IsNull(tbToDate) Then
        MsgBox "You must enter both start and end dates."
        Me.tbFromDate.SetFocus
        Exit Sub
    ElseIf Me.tbFromDate > Me.tbToDate Then
        'is end date after start date?
        'automatic swapping
        StartDate = Me.tbToDate
        EndDate = Me.tbFromDate

        '        MsgBox "End date must be greater than Start date."
        '        Me.tbFromDate.SetFocus
        '        Exit Sub
    Else
        Me.Visible = False  '<<--hides form "Statistika"
        StartDate = Me.tbFromDate
        EndDate = Me.tbToDate
    End If


    ServDate = "[Datum]"   '<<--date field in table "Artikal"
    'open report
    DoCmd.OpenReport stDocName, acPreview, , _
                     Format(ServDate, fmtDate) & " Between " & _
                     Format(StartDate, fmtDate) & " And " & _
                     Format(EndDate, fmtDate)
End If

Exit_cmdGetReport_Click:
Exit Sub

Err_cmdGetReport_Click:
MsgBox Err.Description
Resume Exit_cmdGetReport_Click

End Sub

[salonikije]

Dear ssanfu, that's exactly what I mean... I use two unbound text boxes for the dates... and the code in the button click is now simple, just to open report on click... I'm looking for solution to put some definitions in the field "Where Condition" and here I have stuck

I'll try to import code which you have sent... I'll inform you about results

[salonikije]

Dear ssanfu, it works without any problems thank you so so so much!!!
I appreciate this...

Greetings from Montenegro!

[ssanfu]

Glad to help. Good luck with your project...