How to print all the records after each working day (1 Viewer)

[arnelgp]

can you show a snapshot of form frmPrintFilter.

 

[113hans]

Is it what you mean

 

[arnelgp]

try this, select a date to print and it will show the WhereCondition on the screen (but will not print). Capture the Message window and post it here for us to see.

 

[113hans]

Here the message

 

[arnelgp]

what country do you reside, i will try to use same date regional setting to test.

 

[113hans]

I'm from Vietnam, have you ever heard about my country, just a small one

 

[arnelgp]

try again, and post if the dot(.) has changed to slash(/).

BTW, i did not change my region. I don't want to mess things, you know.

 

[113hans]

Anything convenient for you, I'll follow. Here the dot(.) has changed to the slash(/)

 

[arnelgp]

Ok, I think you are OK now.
Open from frmPrintFilter in Design view and Modify the Click Event of the Print button.
Change it to:

Private Sub cmdPrint_Click()
Dim sWhere As String
sWhere = IIf(Me.lstDayToPrint <> "All", "TransDate=#" & Me.lstDayToPrint & "#", "(1=1)")
sWhere = Replace$(sWhere, ".", "/")
'MsgBox "WhereCondition: " & sWhere
'Exit Sub
Me.Visible = False
DoCmd.OpenReport _
        reportName:="Report1", _
        View:=acViewPreview, _
        WhereCondition:=sWhere
End Sub

 

[113hans]

Yeah, everything is OK now.
Having helped me to solve the problem from the beginning till the end,
thanks for your patience of a saint @arnelgp