Run-time error 2501; OpenReport action was cancelled (1 Viewer)

ShanVel said:

Folks,
Need your help. I searched the entire forum and found couple of postings on this, but none of them indicates if there is any fix for this problem.

If there is no data, basically I want to show a message and close the report. I have some code to handle this under no data event like below:
Private Sub Report_NoData(Cancel As Integer)
MsgBox "There is no data for this report. Canceling report..."
Cancel = True
End Sub

But this 2501 always pops up and I couldn't find a way to stop this. I also searched Microsoft knowledgebase, no help.
Here's how my clik event procedure looks like:
Private Sub cmdSearch_Click()
On Error GoTo Err_PreviewRprt
Dim strTbl As String

Dim strSQL As String

Dim strOptItem As String
Dim strOptBlrType As String

Dim strMsg As String, strTitle As String
Dim intStyle As Integer


'Set up SQL statement for report record source
If IsNull(optCriteria) Then optCriteria = 1
strTbl = Me.cboTypeOfGuar.Column(0)
strOptItem = Choose(optCriteria, "memPred", "memGuar", "memRiskLevel", "memLDs")

strOptBlrType = Choose(optBoilerType, "SWUP", "RB", "CFB", "All")



strSQL = "SELECT tblProjts1.chrProjectName, tblProjts1.chrBlrPropNum, tblProjts1.chrBoilerType, " & _
strTbl & ".memGuranItem, " & strTbl & "." & strOptItem & _
" FROM tblProjts1 INNER JOIN " & strTbl & " ON " & _
"tblProjts1.intProjectId = " & strTbl & ".intProjectId" & _
" WHERE (((" & strTbl & ".memGuranItem)" & " IS NOT NULL)" & " AND " & "((tblProjts1.chrBoilerType) = '" & strOptBlrType & "'))"


'Open report in Design view to set the report's record source
'and search item label's caption
DoCmd.Echo False 'suppress the screen updates


DoCmd.OpenReport "rptBlrSrchItem1", acViewDesign
With Reports("rptBlrSrchItem1")
.RecordSource = strSQL
.Controls("strOptItem").ControlSource = Choose(optCriteria, "memPred", "memGuar", "memRiskLevel", "memLDs")

End With

DoCmd.Close , , acSaveYes

'Now show the search results to the user
DoCmd.OpenReport "rptBlrSrchItem1", acViewPreview

DoCmd.Echo True

Exit_PreviewRprt:
Exit Sub

Err_PreviewRprt:
If Err = 2501 Then
Resume Exit_PreviewRprt
Else
MsgBox Err.Description
Resume Exit_PreviewRprt
End If

End Sub

Any help is much appreciated.

Click to expand...

Private Sub Open_Report_Click()

On Error GoTo Err_Report_Click

    DoCmd.OpenReport Me.Report, ac_Preview

Exit_Report_Click:
    Exit Sub

Err_Report_Click:
    If Err.Number = 2501 Then
        Resume Next
    Else

        MsgBox Err.Description
        Resume Exit_Report_Click
    End If
End Sub

Wiz47 said:

Just add an error handler to the code you use to execute the report:

Something like:

Code:Copy to clipboard

Private Sub Open_Report_Click()

On Error GoTo Err_Report_Click

    DoCmd.OpenReport Me.Report, ac_Preview

Exit_Report_Click:
    Exit Sub

Err_Report_Click:
    If Err.Number = 2501 Then
        Resume Next
    Else

        MsgBox Err.Description
        Resume Exit_Report_Click
    End If
End Sub

Click to expand...

ShanVel said:

Wiz47,
I did try this and same err 2501 messgae. Looks like there is no way to trap this error. I tried to trap this on the report's "on close, on error, on open, on no data" and nothing seems to work.

Click to expand...

ShanVel said:

Wiz47,
Can you give me some more detailed explanation? You are talking about load event of a report? I don't see that event listed for a report?

Click to expand...

ShanVel said:

... Any idea why this is happening only on my machine? On some posts from other web sites they have described that print drivers or printer port might cause this problem. Any ref to some postings also might help.

Folks - Thanks, again, for willing to spare some time on my request.

Click to expand...