E
eddy via AccessMonster.com
Hi,
I have a form called "OM_ASP_Scan" . User will search by "Tag No", numbers
that created by autonumber and input some information to update. I also have
created two combo box to specify print range between "Tag No" and a command
button to preview a report. In the On Click event I've entered the following
code:
Private Sub Command48_Click()
On Error GoTo Err_Command62_Click
Dim stDocName As String
stDocName = "ASP_Detail" 'report name
DoCmd.OpenReport stDocName, acViewPreview, , "[Tag No] between " & Me!
[Combo44] & " and " & Me![Combo46]
Exit_Command62_Click:
Exit Sub
Err_Command62_Click:
MsgBox Err.Description
Resume Exit_Command62_Click
End Sub
It's working prefectly except when I tried to add more combo box to filter
by user input date that called "Date Send" field. I want the report shows
the chosen date only. It was quite confusing to customize the code, due to
that I really appreciate if anybody could give me some hand.
Thank you.
Regards
eddy
I have a form called "OM_ASP_Scan" . User will search by "Tag No", numbers
that created by autonumber and input some information to update. I also have
created two combo box to specify print range between "Tag No" and a command
button to preview a report. In the On Click event I've entered the following
code:
Private Sub Command48_Click()
On Error GoTo Err_Command62_Click
Dim stDocName As String
stDocName = "ASP_Detail" 'report name
DoCmd.OpenReport stDocName, acViewPreview, , "[Tag No] between " & Me!
[Combo44] & " and " & Me![Combo46]
Exit_Command62_Click:
Exit Sub
Err_Command62_Click:
MsgBox Err.Description
Resume Exit_Command62_Click
End Sub
It's working prefectly except when I tried to add more combo box to filter
by user input date that called "Date Send" field. I want the report shows
the chosen date only. It was quite confusing to customize the code, due to
that I really appreciate if anybody could give me some hand.
Thank you.
Regards
eddy