A
April Slater via AccessMonster.com
I have created a form to filter records for print to a report. Problem is
that when you click the button to preview the report, the "Enter Parameter
Value" msg box appears. I can't see where that is being called in the code.
Private Sub View_Report_Click()
On Error GoTo Err_View_Report_Click
Dim strWhere As String
strWhere = "[Type of Contract]='" & Contract.Column(0) & "' and " & "
[Discipline]='" & Discipline.Column(0) & "' and " & "[Project Name]='" &
ProjectName.Column(0) & "'"
DoCmd.OpenReport "Lessons Learned", acPreview, , strWhere
Exit_View_Report_Click:
Exit Sub
Err_View_Report_Click:
MsgBox Err.Description
Resume Exit_View_Report_Click
End Sub
that when you click the button to preview the report, the "Enter Parameter
Value" msg box appears. I can't see where that is being called in the code.
Private Sub View_Report_Click()
On Error GoTo Err_View_Report_Click
Dim strWhere As String
strWhere = "[Type of Contract]='" & Contract.Column(0) & "' and " & "
[Discipline]='" & Discipline.Column(0) & "' and " & "[Project Name]='" &
ProjectName.Column(0) & "'"
DoCmd.OpenReport "Lessons Learned", acPreview, , strWhere
Exit_View_Report_Click:
Exit Sub
Err_View_Report_Click:
MsgBox Err.Description
Resume Exit_View_Report_Click
End Sub