ACCESS FEED: [MS_AccessPros] Re: Run-time error '2501' OpenReport Action was canceled

Hi Bill, shouldn't
MsgBox strErrMsg, lngErrIconBtn, "Error"
be after End Select?

Giorgio

--- In MS_Access_Professionals@yahoogroups.com, "Bill Mosca" <wrmosca@...> wrote:
>
> Steve
>
> This entire thread must have confused the socks off of Calvin. Finding out that his editor was set to break on all errors didn't help matters any.
>
> I use the Cancel=-1 in most of my reports to the extent that my generic error handle looks like this.
>
>
> Private Sub cmdOpenRpt_Click()
> On Error GoTo err_PROC
>
> DoCmd.OpenReport "MyReport", acViewPreview
>
>
> exit_PROC:
> On Error Resume Next
> Exit Sub
>
> err_PROC:
> Dim strErrMsg As String
> Dim lngErrIconBtn As Long
>
> Select Case Err.Number
> Case 2501
> strErrMsg = "No data for selected filter."
> Case Else
> strErrMsg = "Error " & Err.Number & " (" & Err.Description & ") " _
> & "occurred in procedure cmdOpenRpt_Click of " _
> & "VBA Document Module1"
> lngErrIconBtn = vbOKOnly + vbInformation
>
> MsgBox strErrMsg, lngErrIconBtn, "Error"
>
> End Select
>
> Resume exit_PROC
>
> End Sub
>
>
> Bill
>
> --- In MS_Access_Professionals@yahoogroups.com, Steve Conklin <StephenMConklin@> wrote:
> >
> >
> > Thomas, not to belabor the point, but I apologize as I think the most important point is being missed through all this ...
> >
> >
> >
> > the take-away is when you say "cancel=true" that is when the error is raised. the line "cancel=true" might just as well be
> >
> >
> >
> > "err.raise 2501".
> >
> >
> >
> > so, msgboxs before cancel dont "count" as error handling. if it were my app, i wouldnt say anything to the user in the report's no_data.
> >
> >
> >
> > the report's no data would just have the cancel=true line. then, at that point, i would have my form handle error 2501 (which is what cancel=true raised) with a msgbox, "no data for that selection".
> >
> >
> >
> > I hope that clarifies.
> >
> >
> >
> >
> >
> > Steve
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> > ________________________________
> > > To: MS_Access_Professionals@yahoogroups.com
> > > From: thomas_lam_us@
> > > Date: Tue, 22 May 2012 21:20:24 +0000
> > > Subject: [MS_AccessPros] Re: Run-time error '2501' OpenReport Action
> > > was canceled
> > >
> > >
> > >
> > > Steve,
> > >
> > > Any reasons why the Msgbox can't be run in the error processing? How do
> > > you communicate with the user on the specific error code when the
> > > Cancel is in effect?
> > >
> > > Thomas
> > >
> > > --- In
> > > MS_Access_Professionals@yahoogroups.com<mailto:MS_Access_Professionals%40yahoogroups.com>,
> > > Steve Conklin <StephenMConklin@> wrote:
> > > >
> > > >
> > > > FOR THE 3rd TIME:
> > > >
> > > >
> > > >
> > > > Select Case Err.Number
> > > > Case 2501
> > > > 'Report has no data and is cancelled.
> > > > strErrMsg = "No data available for the report."
> > > > Case Else
> > > > 'All other errors.
> > > > strErrMsg = "Error " & Err.Number & " (" & Err.Description & ") " _
> > > > & "occurred in procedure cmdOpenReport_Click Event"
> > > > End Select
> > > >
> > > > lngErrIconBtn = vbOKOnly + vbInformation
> > > >
> > > >
> > > >
> > > >
> > > > ******
> > > >
> > > > DONT RUN THIS LINE HERE:
> > > >
> > > >
> > > > MsgBox strErrMsg, lngErrIconBtn
> > > >
> > > >
> > > >
> > > >
> > > >
> > > >
> > > > ***********
> > > >
> > > >
> > > >
> > > >
> > > > Exit_Command20_Click:
> > > > Exit Sub
> > > >
> > > >
> > > >
> > > >
> > > >
> > > >
> > > >
> > > >
> > > > ________________________________
> > > > > To:
> > > MS_Access_Professionals@yahoogroups.com<mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > From: thomas_lam_us@
> > > > > Date: Tue, 22 May 2012 20:49:23 +0000
> > > > > Subject: [MS_AccessPros] Re: Run-time error '2501' OpenReport Action
> > > > > was canceled
> > > > >
> > > > >
> > > > >
> > > > > OK. I follow exactly what you told me to do. Put a halt and then step
> > > > > through the execution.
> > > > >
> > > > > Right after the Docmd.RunMacro, the Docmd.Openreport brings me to the
> > > > > No Data event where the CANCEL = TRUE is executed. Then on it's way out
> > > > > to the Docmd.OpenReport command, 2501 error prompt appears. The CANCEL
> > > > > doesn't seem to have an impact in the NoData event at all.
> > > > >
> > > > > Thomas
> > > > >
> > > > > --- In
> > > > >
> > > MS_Access_Professionals@yahoogroups.com<mailto:MS_Access_Professionals%40yahoogroups.com><mailto:MS_Access_Professionals%40yahoogroups.com>,
> > > > > John Viescas <JohnV@> wrote:
> > > > > >
> > > > > > Thomas-
> > > > > >
> > > > > >
> > > > > >
> > > > > > That should work. You should get your "No data available for the
> > > report"
> > > > > > message. If that's not what's happening, put a halt on the stDocName
> > > > > assignment
> > > > > > statement, then single step through the code when it stops.
> > > > > >
> > > > > >
> > > > > >
> > > > > > John Viescas, author
> > > > > >
> > > > > > Microsoft Office Access 2010 Inside Out
> > > > > >
> > > > > > Microsoft Office Access 2007 Inside Out
> > > > > >
> > > > > > Building Microsoft Access Applications
> > > > > >
> > > > > > Microsoft Office Access 2003 Inside Out
> > > > > >
> > > > > > SQL Queries for Mere Mortals
> > > > > >
> > > > > > <http://www.viescas.com/> http://www.viescas.com/
> > > > > >
> > > > > > (Paris, France)
> > > > > >
> > > > > >
> > > > > >
> > > > > >
> > > > > >
> > > > > >
> > > > > >
> > > > > > From:
> > > > >
> > > MS_Access_Professionals@yahoogroups.com<mailto:MS_Access_Professionals%40yahoogroups.com><mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > >
> > > > >
> > > [mailto:MS_Access_Professionals@yahoogroups.com<mailto:MS_Access_Professionals%40yahoogroups.com><mailto:MS_Access_Professionals%40yahoogroups.com>]
> > > > > On Behalf Of Thomas
> > > > > > Sent: Tuesday, May 22, 2012 10:19 PM
> > > > > > To:
> > > > >
> > > MS_Access_Professionals@yahoogroups.com<mailto:MS_Access_Professionals%40yahoogroups.com><mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > Subject: [MS_AccessPros] Re: Run-time error '2501' OpenReport
> > > Action was
> > > > > > canceled
> > > > > >
> > > > > >
> > > > > >
> > > > > >
> > > > > >
> > > > > > Here is my latest code.
> > > > > >
> > > > > > Private Sub Command20_Click()
> > > > > >
> > > > > > On Error GoTo Err_Command20_Click
> > > > > >
> > > > > > Dim stDocName As String
> > > > > >
> > > > > > stDocName = "select codes and dst cntrs"
> > > > > > DoCmd.RunMacro stDocName
> > > > > >
> > > > > > DoCmd.OpenReport "Vendor Report TY VS LY", acViewPreview
> > > > > > GoTo Exit_Command20_Click
> > > > > >
> > > > > > Err_Command20_Click:
> > > > > >
> > > > > > err_Command20_PROC:
> > > > > > Dim strErrMsg As String
> > > > > > Dim lngErrIconBtn As Long
> > > > > >
> > > > > > Select Case Err.Number
> > > > > > Case 2501
> > > > > > 'Report has no data and is cancelled.
> > > > > > strErrMsg = "No data available for the report."
> > > > > > Case Else
> > > > > > 'All other errors.
> > > > > > strErrMsg = "Error " & Err.Number & " (" & Err.Description & ") " _
> > > > > > & "occurred in procedure cmdOpenReport_Click Event"
> > > > > > End Select
> > > > > >
> > > > > > lngErrIconBtn = vbOKOnly + vbInformation
> > > > > >
> > > > > > MsgBox strErrMsg, lngErrIconBtn
> > > > > >
> > > > > > Exit_Command20_Click:
> > > > > > Exit Sub
> > > > > >
> > > > > > 'Err_Command20_Click:
> > > > > > ' MsgBox Err.Description
> > > > > > ' Resume Exit_Command20_Click
> > > > > >
> > > > > > End Sub
> > > > > >
> > > > > > and the On No Data event
> > > > > >
> > > > > > Option Compare Database
> > > > > >
> > > > > > Private Sub Report_NoData(Cancel As Integer)
> > > > > > Cancel = True
> > > > > > End Sub
> > > > > >
> > > > > > --- In
> > > > >
> > > MS_Access_Professionals@yahoogroups.com<mailto:MS_Access_Professionals%40yahoogroups.com><mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com> , John Viescas
> > > <JohnV@>
> > > > > > wrote:
> > > > > > >
> > > > > > > Thomas-
> > > > > > >
> > > > > > >
> > > > > > >
> > > > > > > Please post the code that opens the form as you have it now. The
> > > > > Cancel = True
> > > > > > > needs to be there to stop the form opening. Your OnError must still
> > > > > be in the
> > > > > > > wrong place.
> > > > > > >
> > > > > > >
> > > > > > >
> > > > > > > John Viescas, author
> > > > > > >
> > > > > > > Microsoft Office Access 2010 Inside Out
> > > > > > >
> > > > > > > Microsoft Office Access 2007 Inside Out
> > > > > > >
> > > > > > > Building Microsoft Access Applications
> > > > > > >
> > > > > > > Microsoft Office Access 2003 Inside Out
> > > > > > >
> > > > > > > SQL Queries for Mere Mortals
> > > > > > >
> > > > > > > <http://www.viescas.com/> http://www.viescas.com/
> > > > > > >
> > > > > > > (Paris, France)
> > > > > > >
> > > > > > >
> > > > > > >
> > > > > > >
> > > > > > >
> > > > > > >
> > > > > > >
> > > > > > > From:
> > > > >
> > > MS_Access_Professionals@yahoogroups.com<mailto:MS_Access_Professionals%40yahoogroups.com><mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > >
> > > > >
> > > [mailto:MS_Access_Professionals@yahoogroups.com<mailto:MS_Access_Professionals%40yahoogroups.com><mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com> ] On Behalf Of
> > > Thomas
> > > > > > > Sent: Tuesday, May 22, 2012 9:46 PM
> > > > > > > To:
> > > > >
> > > MS_Access_Professionals@yahoogroups.com<mailto:MS_Access_Professionals%40yahoogroups.com><mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > Subject: [MS_AccessPros] Re: Run-time error '2501' OpenReport
> > > Action was
> > > > > > > canceled
> > > > > > >
> > > > > > >
> > > > > > >
> > > > > > >
> > > > > > >
> > > > > > > The macro contains a series of Openquery which creates the tables
> > > > > to be used
> > > > > > for
> > > > > > > the Report.
> > > > > > >
> > > > > > > As I have indicated, once I removed the CANCEL statement, the 2501
> > > > > disappear
> > > > > > but
> > > > > > > the blank report (with report title) shows up.
> > > > > > >
> > > > > > > Thomas
> > > > > > >
> > > > > > > --- In
> > > > >
> > > MS_Access_Professionals@yahoogroups.com<mailto:MS_Access_Professionals%40yahoogroups.com><mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com> , John Viescas
> > > > > <JohnV@>
> > > > > > > wrote:
> > > > > > > >
> > > > > > > > Thomas-
> > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > > > The Cancel = True needs to be there. What is the macro doing? Is
> > > > > that also
> > > > > > > > opening a report?
> > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > > > John Viescas, author
> > > > > > > >
> > > > > > > > Microsoft Office Access 2010 Inside Out
> > > > > > > >
> > > > > > > > Microsoft Office Access 2007 Inside Out
> > > > > > > >
> > > > > > > > Building Microsoft Access Applications
> > > > > > > >
> > > > > > > > Microsoft Office Access 2003 Inside Out
> > > > > > > >
> > > > > > > > SQL Queries for Mere Mortals
> > > > > > > >
> > > > > > > > <http://www.viescas.com/> http://www.viescas.com/
> > > > > > > >
> > > > > > > > (Paris, France)
> > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > > > From:
> > > > >
> > > MS_Access_Professionals@yahoogroups.com<mailto:MS_Access_Professionals%40yahoogroups.com><mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > >
> > > > >
> > > [mailto:MS_Access_Professionals@yahoogroups.com<mailto:MS_Access_Professionals%40yahoogroups.com><mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com> ] On Behalf
> > > Of Thomas
> > > > > > > > Sent: Tuesday, May 22, 2012 9:18 PM
> > > > > > > > To:
> > > > >
> > > MS_Access_Professionals@yahoogroups.com<mailto:MS_Access_Professionals%40yahoogroups.com><mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > > Subject: [MS_AccessPros] Re: Run-time error '2501' OpenReport
> > > > > Action was
> > > > > > > > canceled
> > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > > > John,
> > > > > > > >
> > > > > > > > It appears the CANCEL = True has no effect.
> > > > > > > >
> > > > > > > > Private Sub Report_NoData(Cancel As Integer)
> > > > > > > > >
> > > > > > > > > > 'MsgBox " There is no records to report.", vbExclamation, "No
> > > > > Records"
> > > > > > > > >
> > > > > > > > > > Cancel = True
> > > > > > > > >
> > > > > > > > > > 'Cancel = -1
> > > > > > > > >
> > > > > > > > > > End Sub
> > > > > > > >
> > > > > > > > When I comment out the CANCEL statement, the On error seems to be
> > > > > taking
> > > > > > it's
> > > > > > > > route properly. No more 2501 error message.
> > > > > > > >
> > > > > > > > Do you need to do something in order for the CANCEL statement
> > > to become
> > > > > > > > 'active'.
> > > > > > > >
> > > > > > > > Thomas
> > > > > > > >
> > > > > > > > --- In
> > > > >
> > > MS_Access_Professionals@yahoogroups.com<mailto:MS_Access_Professionals%40yahoogroups.com><mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com> , John Viescas
> > > > > <JohnV@>
> > > > > > > > wrote:
> > > > > > > > >
> > > > > > > > > Thomas-
> > > > > > > > >
> > > > > > > > > Here's your original code:
> > > > > > > > >
> > > > > > > > > Private Sub Command20_Click()
> > > > > > > > >
> > > > > > > > > On Error GoTo Err_Command20_Click ' <===========
> > > > > > > > >
> > > > > > > > > Dim stDocName As String
> > > > > > > > >
> > > > > > > > > stDocName = "select codes and dst cntrs"
> > > > > > > > > DoCmd.RunMacro stDocName
> > > > > > > > >
> > > > > > > > > On Error GoTo err_Command20_PROC ' <=======
> > > > > > > > >
> > > > > > > > > DoCmd.OpenReport "Vendor Report TY VS LY", acViewPreview
> > > > > > > > >
> > > > > > > > > GoTo Exit_Command20_Click
> > > > > > > > >
> > > > > > > > > err_Command20_PROC:
> > > > > > > > > Dim strErrMsg As String
> > > > > > > > > Dim lngErrIconBtn As Long
> > > > > > > > >
> > > > > > > > > Select Case Err.Number
> > > > > > > > > Case 2501
> > > > > > > > >
> > > > > > > > > 'Report has no data and is cancelled.
> > > > > > > > >
> > > > > > > > > strErrMsg = "No data available for the report."
> > > > > > > > >
> > > > > > > > > Case Else
> > > > > > > > > 'All other errors.
> > > > > > > > > strErrMsg = "Error " & Err.Number & " (" & Err.Description
> > > & ") " _
> > > > > > > > > & "occurred in procedure cmdOpenReport_Click Event"
> > > > > > > > > End Select
> > > > > > > > >
> > > > > > > > > lngErrIconBtn = vbOKOnly + vbInformation
> > > > > > > > >
> > > > > > > > > MsgBox strErrMsg, lngErrIconBtn
> > > > > > > > >
> > > > > > > > > Exit_Command20_Click:
> > > > > > > > > Exit Sub
> > > > > > > > >
> > > > > > > > > Err_Command20_Click:
> > > > > > > > > MsgBox Err.Description
> > > > > > > > > Resume Exit_Command20_Click
> > > > > > > > >
> > > > > > > > > End Sub
> > > > > > > > >
> > > > > > > > > You need ONE OnError statement. What is the macro called
> > > > > "select codes and
> > > > > > > dst
> > > > > > > > > cntrs" doing? I suspect your code needs to look like:
> > > > > > > > >
> > > > > > > > > Private Sub Command20_Click()
> > > > > > > > >
> > > > > > > > > On Error GoTo Err_Command20_Click ' <= ONE error trap
> > > > > > > > >
> > > > > > > > > Dim stDocName As String
> > > > > > > > >
> > > > > > > > > stDocName = "select codes and dst cntrs"
> > > > > > > > > DoCmd.RunMacro stDocName
> > > > > > > > >
> > > > > > > > > DoCmd.OpenReport "Vendor Report TY VS LY", acViewPreview
> > > > > > > > >
> > > > > > > > > Exit_Command20_Click:
> > > > > > > > > Exit Sub
> > > > > > > > >
> > > > > > > > > err_Command20_PROC:
> > > > > > > > > Dim strErrMsg As String
> > > > > > > > > Dim lngErrIconBtn As Long
> > > > > > > > >
> > > > > > > > > Select Case Err.Number
> > > > > > > > > Case 2501
> > > > > > > > >
> > > > > > > > > 'Report has no data and is cancelled.
> > > > > > > > >
> > > > > > > > > strErrMsg = "No data available for the report."
> > > > > > > > >
> > > > > > > > > Case Else
> > > > > > > > > 'All other errors.
> > > > > > > > > strErrMsg = "Error " & Err.Number & " (" & Err.Description
> > > & ") " _
> > > > > > > > > & "occurred in procedure cmdOpenReport_Click Event"
> > > > > > > > > End Select
> > > > > > > > >
> > > > > > > > > lngErrIconBtn = vbOKOnly + vbInformation
> > > > > > > > >
> > > > > > > > > MsgBox strErrMsg, lngErrIconBtn
> > > > > > > > > Resume Exit_Command20_Click
> > > > > > > > >
> > > > > > > > > End Sub
> > > > > > > > >
> > > > > > > > >
> > > > > > > > > John Viescas, author
> > > > > > > > > Microsoft Office Access 2010 Inside Out
> > > > > > > > > Microsoft Office Access 2007 Inside Out
> > > > > > > > > Building Microsoft Access Applications
> > > > > > > > > Microsoft Office Access 2003 Inside Out
> > > > > > > > > SQL Queries for Mere Mortals
> > > > > > > > > http://www.viescas.com/
> > > > > > > > > (Paris, France)
> > > > > > > > >
> > > > > > > > >
> > > > > > > > > ---------------------------------
> > > > > > > > > From:
> > > > >
> > > MS_Access_Professionals@yahoogroups.com<mailto:MS_Access_Professionals%40yahoogroups.com><mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > > >
> > > > >
> > > [mailto:MS_Access_Professionals@yahoogroups.com<mailto:MS_Access_Professionals%40yahoogroups.com><mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com> ] On Behalf Of
> > > > > Thomas
> > > > > > > > > Sent: Tuesday, May 22, 2012 8:11 PM
> > > > > > > > > To:
> > > > >
> > > MS_Access_Professionals@yahoogroups.com<mailto:MS_Access_Professionals%40yahoogroups.com><mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > > > Subject: [MS_AccessPros] Re: Run-time error '2501' OpenReport
> > > > > Action was
> > > > > > > > > canceled
> > > > > > > > >
> > > > > > > > >
> > > > > > > > > Steve,
> > > > > > > > >
> > > > > > > > > Now after I remove both 'On error' statements, it is still
> > > > > giving me the
> > > > > > > 2501
> > > > > > > > > error on the Docmd.OpenReport statement.
> > > > > > > > >
> > > > > > > > > Thomas
> > > > > > > > >
> > > > > > > > > --- In
> > > > >
> > > MS_Access_Professionals@yahoogroups.com<mailto:MS_Access_Professionals%40yahoogroups.com><mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com> , Steve Conklin
> > > > > > > > > <StephenMConklin@> wrote:
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > This looks like one of those test questions where you have to
> > > > > figure out
> > > > > > > > which
> > > > > > > > > error handler is in effect. Please use only one handler per
> > > > > sub/function.
> > > > > > > > _PROC
> > > > > > > > > is in effect when the report generates err 2501. at then
> > > end of the
> > > > > > "select
> > > > > > > > > case" there is a msgbox before your exit statement . Steve
> > > > > > > > > > To:
> > > > >
> > > MS_Access_Professionals@yahoogroups.com<mailto:MS_Access_Professionals%40yahoogroups.com><mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > > > > From: thomas_lam_us@
> > > > > > > > > > Date: Tue, 22 May 2012 17:48:18 +0000
> > > > > > > > > > Subject: Re: [MS_AccessPros] Run-time error '2501' OpenReport
> > > > > Action was
> > > > > > > > > canceled
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > OK. Here is the code that open the report
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > Private Sub Command20_Click()
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > On Error GoTo Err_Command20_Click
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > Dim stDocName As String
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > stDocName = "select codes and dst cntrs"
> > > > > > > > > >
> > > > > > > > > > DoCmd.RunMacro stDocName
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > On Error GoTo err_Command20_PROC
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > DoCmd.OpenReport "Vendor Report TY VS LY", acViewPreview
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > GoTo Exit_Command20_Click
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > err_Command20_PROC:
> > > > > > > > > >
> > > > > > > > > > Dim strErrMsg As String
> > > > > > > > > >
> > > > > > > > > > Dim lngErrIconBtn As Long
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > Select Case Err.Number
> > > > > > > > > >
> > > > > > > > > > Case 2501
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > 'Report has no data and is cancelled.
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > strErrMsg = "No data available for the report."
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > Case Else
> > > > > > > > > >
> > > > > > > > > > 'All other errors.
> > > > > > > > > >
> > > > > > > > > > strErrMsg = "Error " & Err.Number & " (" &
> > > Err.Description & ") " _
> > > > > > > > > >
> > > > > > > > > > & "occurred in procedure cmdOpenReport_Click Event"
> > > > > > > > > >
> > > > > > > > > > End Select
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > lngErrIconBtn = vbOKOnly + vbInformation
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > MsgBox strErrMsg, lngErrIconBtn
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > Exit_Command20_Click:
> > > > > > > > > >
> > > > > > > > > > Exit Sub
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > Err_Command20_Click:
> > > > > > > > > >
> > > > > > > > > > MsgBox Err.Description
> > > > > > > > > >
> > > > > > > > > > Resume Exit_Command20_Click
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > End Sub
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > --- In
> > > > >
> > > MS_Access_Professionals@yahoogroups.com<mailto:MS_Access_Professionals%40yahoogroups.com><mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com> , John Viescas
> > > > > <JohnV@>
> > > > > > > > wrote:
> > > > > > > > > >
> > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > Thomas-
> > > > > > > > > >
> > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > That looks OK. What's critical is the code that opens the
> > > > > report. I
> > > > > > need
> > > > > > > > to
> > > > > > > > > >
> > > > > > > > > > > see that - the entire procedure.
> > > > > > > > > >
> > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > John Viescas, author
> > > > > > > > > >
> > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > Microsoft Office Access 2010 Inside Out
> > > > > > > > > >
> > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > Microsoft Office Access 2007 Inside Out
> > > > > > > > > >
> > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > Building Microsoft Access Applications
> > > > > > > > > >
> > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > Microsoft Office Access 2003 Inside Out
> > > > > > > > > >
> > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > SQL Queries for Mere Mortals
> > > > > > > > > >
> > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > <http://www.viescas.com/> http://www.viescas.com/
> > > > > > > > > >
> > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > (Paris, France)
> > > > > > > > > >
> > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > From:
> > > > >
> > > MS_Access_Professionals@yahoogroups.com<mailto:MS_Access_Professionals%40yahoogroups.com><mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > > > >
> > > > > > > > > > >
> > > > >
> > > [mailto:MS_Access_Professionals@yahoogroups.com<mailto:MS_Access_Professionals%40yahoogroups.com><mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com> ] On Behalf Of
> > > > > Thomas
> > > > > > > > > >
> > > > > > > > > > > Sent: Tuesday, May 22, 2012 7:20 PM
> > > > > > > > > >
> > > > > > > > > > > To:
> > > > >
> > > MS_Access_Professionals@yahoogroups.com<mailto:MS_Access_Professionals%40yahoogroups.com><mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > > > >
> > > > > > > > > > > Subject: Re: [MS_AccessPros] Run-time error '2501'
> > > > > OpenReport Action
> > > > > > was
> > > > > > > > > >
> > > > > > > > > > > canceled
> > > > > > > > > >
> > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > John,
> > > > > > > > > >
> > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > This is what I have in the No Data Event on the report. I
> > > > > have tried
> > > > > > the
> > > > > > > 2
> > > > > > > > > >
> > > > > > > > > > > options and the 2501 error message still appears.
> > > > > > > > > >
> > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > Private Sub Report_NoData(Cancel As Integer)
> > > > > > > > > >
> > > > > > > > > > > 'MsgBox " There is no records to report.", vbExclamation,
> > > > > "No Records"
> > > > > > > > > >
> > > > > > > > > > > Cancel = True
> > > > > > > > > >
> > > > > > > > > > > 'Cancel = -1
> > > > > > > > > >
> > > > > > > > > > > End Sub
> > > > > > > > > >
> > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > Thomas
> > > > > > > > > >
> > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > --- In
> > > > >
> > > MS_Access_Professionals@yahoogroups.com<mailto:MS_Access_Professionals%40yahoogroups.com><mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > > > >
> > > > > > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com> ,
> > > John Viescas
> > > > > > > <JohnV@>
> > > > > > > > > >
> > > > > > > > > > > wrote:
> > > > > > > > > >
> > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > Thomas-
> > > > > > > > > >
> > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > You must have a No Data event procedure that's
> > > setting Cancel =
> > > > > > True.
> > > > > > > Is
> > > > > > > > > that
> > > > > > > > > >
> > > > > > > > > > > > the case?
> > > > > > > > > >
> > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > John Viescas, author
> > > > > > > > > >
> > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > Microsoft Office Access 2010 Inside Out
> > > > > > > > > >
> > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > Microsoft Office Access 2007 Inside Out
> > > > > > > > > >
> > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > Building Microsoft Access Applications
> > > > > > > > > >
> > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > Microsoft Office Access 2003 Inside Out
> > > > > > > > > >
> > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > SQL Queries for Mere Mortals
> > > > > > > > > >
> > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > <http://www.viescas.com/> http://www.viescas.com/
> > > > > > > > > >
> > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > (Paris, France)
> > > > > > > > > >
> > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > From:
> > > > >
> > > MS_Access_Professionals@yahoogroups.com<mailto:MS_Access_Professionals%40yahoogroups.com><mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > > > >
> > > > > > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > > > >
> > > > > > > > > > > >
> > > > >
> > > [mailto:MS_Access_Professionals@yahoogroups.com<mailto:MS_Access_Professionals%40yahoogroups.com><mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > > > >
> > > > > > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com> ] On
> > > Behalf Of
> > > > > > Thomas
> > > > > > > > > >
> > > > > > > > > > > > Sent: Tuesday, May 22, 2012 6:54 PM
> > > > > > > > > >
> > > > > > > > > > > > To:
> > > > >
> > > MS_Access_Professionals@yahoogroups.com<mailto:MS_Access_Professionals%40yahoogroups.com><mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > > > >
> > > > > > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > > > >
> > > > > > > > > > > > Subject: Re: [MS_AccessPros] Run-time error '2501'
> > > > > OpenReport Action
> > > > > > > was
> > > > > > > > > >
> > > > > > > > > > > > canceled
> > > > > > > > > >
> > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > Hi John, Thanks for the quick response. Just want to make
> > > > > sure I
> > > > > > post
> > > > > > > > the
> > > > > > > > > >
> > > > > > > > > > > > correct information you requested. Wondering what do you
> > > > > want me to
> > > > > > > post
> > > > > > > > > >
> > > > > > > > > > > > regarding the report....?
> > > > > > > > > >
> > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > Thomas
> > > > > > > > > >
> > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > --- In
> > > > >
> > > MS_Access_Professionals@yahoogroups.com<mailto:MS_Access_Professionals%40yahoogroups.com><mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > > > >
> > > > > > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > > > >
> > > > > > > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com> , John
> > > > > Viescas
> > > > > > > > <JohnV@>
> > > > > > > > > >
> > > > > > > > > > > > wrote:
> > > > > > > > > >
> > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > > Thomas-
> > > > > > > > > >
> > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > > Can you post the code from both the procedure that
> > > opens the
> > > > > > report
> > > > > > > > and
> > > > > > > > > the
> > > > > > > > > >
> > > > > > > > > > > > > report itself?
> > > > > > > > > >
> > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > > John Viescas, author
> > > > > > > > > >
> > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > > Microsoft Office Access 2010 Inside Out
> > > > > > > > > >
> > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > > Microsoft Office Access 2007 Inside Out
> > > > > > > > > >
> > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > > Building Microsoft Access Applications
> > > > > > > > > >
> > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > > Microsoft Office Access 2003 Inside Out
> > > > > > > > > >
> > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > > SQL Queries for Mere Mortals
> > > > > > > > > >
> > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > > <http://www.viescas.com/> http://www.viescas.com/
> > > > > > > > > >
> > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > > (Paris, France)
> > > > > > > > > >
> > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > > From:
> > > > >
> > > MS_Access_Professionals@yahoogroups.com<mailto:MS_Access_Professionals%40yahoogroups.com><mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > > > >
> > > > > > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > > > >
> > > > > > > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > > > >
> > > > > > > > > > > > >
> > > > >
> > > [mailto:MS_Access_Professionals@yahoogroups.com<mailto:MS_Access_Professionals%40yahoogroups.com><mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > > > >
> > > > > > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > > > >
> > > > > > > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com> ] On
> > > > > Behalf Of
> > > > > > > Thomas
> > > > > > > > > >
> > > > > > > > > > > > > Sent: Tuesday, May 22, 2012 6:05 PM
> > > > > > > > > >
> > > > > > > > > > > > > To:
> > > > >
> > > MS_Access_Professionals@yahoogroups.com<mailto:MS_Access_Professionals%40yahoogroups.com><mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > > > >
> > > > > > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > > > >
> > > > > > > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > > > >
> > > > > > > > > > > > > Subject: Re: [MS_AccessPros] Run-time error '2501'
> > > OpenReport
> > > > > > Action
> > > > > > > > was
> > > > > > > > > >
> > > > > > > > > > > > > canceled
> > > > > > > > > >
> > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > > Hi Clive and Steve,
> > > > > > > > > >
> > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > > I did have the codes in place but the error message
> > > > > still appears.
> > > > > >
> > > > > > > > > >
> > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > > I check my Error checking and the 'enable error
> > > checking' is
> > > > > > > checked.
> > > > > > > > > >
> > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > > What else could I be missing?
> > > > > > > > > >
> > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > > Thomas
> > > > > > > > > >
> > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > > --- In
> > > > >
> > > MS_Access_Professionals@yahoogroups.com<mailto:MS_Access_Professionals%40yahoogroups.com><mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > > > >
> > > > > > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > > > >
> > > > > > > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > > > >
> > > > > > > > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > , "Clive"
> > > > > > > <zctek@>
> > > > > > > > > wrote:
> > > > > > > > > >
> > > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > > > Hi Thomas,
> > > > > > > > > >
> > > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > > > to add to what Steve suggested, it would be a good
> > > > > > > > > >
> > > > > > > > > > > > > > idea to use a MsgBox("Nothing to report") after the
> > > > > > > > > >
> > > > > > > > > > > > > > ' do nothing line, so the user knows what's happening.
> > > > > > > > > >
> > > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > > > Regards, Clive.
> > > > > > > > > >
> > > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > > > --- In
> > > > >
> > > MS_Access_Professionals@yahoogroups.com<mailto:MS_Access_Professionals%40yahoogroups.com><mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > > > >
> > > > > > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > > > >
> > > > > > > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > > > >
> > > > > > > > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com> ,
> > > > > Steve Conklin
> > > > > > > > > >
> > > > > > > > > > > > > <StephenMConklin@> wrote:
> > > > > > > > > >
> > > > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > > > > Add a catch for err #2501:
> > > > > > > > > >
> > > > > > > > > > > > > > > On Error Goto err_Processing
> > > > > > > > > >
> > > > > > > > > > > > > > > Docmd.OpenReport "Report ABC", acViewPreview
> > > > > > > > > >
> > > > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > > > > err_processing:
> > > > > > > > > >
> > > > > > > > > > > > > > > select case err
> > > > > > > > > >
> > > > > > > > > > > > > > > case 0, 2501
> > > > > > > > > >
> > > > > > > > > > > > > > > ' do nothing
> > > > > > > > > >
> > > > > > > > > > > > > > > case else
> > > > > > > > > >
> > > > > > > > > > > > > > > msgbox err.description
> > > > > > > > > >
> > > > > > > > > > > > > > > end select
> > > > > > > > > >
> > > > > > > > > > > > > > > hth
> > > > > > > > > >
> > > > > > > > > > > > > > > Steve
> > > > > > > > > >
> > > > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > > > > ________________________________
> > > > > > > > > >
> > > > > > > > > > > > > > > > To:
> > > > >
> > > MS_Access_Professionals@yahoogroups.com<mailto:MS_Access_Professionals%40yahoogroups.com><mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > > > >
> > > > > > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > > > >
> > > > > > > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > > > >
> > > > > > > > > > > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > > > > > > > > >
> > > > > > > > > > > > > > > > From: thomas_lam_us@
> > > > > > > > > >
> > > > > > > > > > > > > > > > Date: Mon, 21 May 2012 22:39:02 +0000
> > > > > > > > > >
> > > > > > > > > > > > > > > > Subject: [MS_AccessPros] Run-time error '2501'
> > > > > OpenReport
> > > > > > > Action
> > > > > > > > > was
> > > > > > > > > >
> > > > > > > > > > > > > canceled
> > > > > > > > > >
> > > > > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > > > > > Here is what I already did but still failed
> > > with the
> > > > > > run-time
> > > > > > > > > error
> > > > > > > > > >
> > > > > > > > > > > > > > > > message. Appreciate if you can point out where I
> > > > > might have
> > > > > > > made
> > > > > > > > > the
> > > > > > > > > >
> > > > > > > > > > > > > > > > mistakes.
> > > > > > > > > >
> > > > > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > > > > > In my main line processing:
> > > > > > > > > >
> > > > > > > > > > > > > > > > On Error Goto err_Processing
> > > > > > > > > >
> > > > > > > > > > > > > > > > Docmd.OpenReport "Report ABC", acViewPreview
> > > > > > > > > >
> > > > > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > > > > > For Report ABC
> > > > > > > > > >
> > > > > > > > > > > > > > > > On No Data property
> > > > > > > > > >
> > > > > > > > > > > > > > > > Cancel = True
> > > > > > > > > >
> > > > > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > > > > > Thanks,
> > > > > > > > > >
> > > > > > > > > > > > > > > > Thomas
> > > > > > > > > >
> > > > > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > > [Non-text portions of this message have been removed]
> > > > > > > > > >
> > > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > > [Non-text portions of this message have been removed]
> > > > > > > > > >
> > > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > > [Non-text portions of this message have been removed]
> > > > > > > > > >
> > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > [Non-text portions of this message have been removed]
> > > > > > > > > >
> > > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > > > [Non-text portions of this message have been removed]
> > > > > > > >
> > > > > > >
> > > > > > >
> > > > > > >
> > > > > > >
> > > > > > >
> > > > > > > [Non-text portions of this message have been removed]
> > > > > > >
> > > > > >
> > > > > >
> > > > > >
> > > > > >
> > > > > >
> > > > > > [Non-text portions of this message have been removed]
> > > > > >
> > > > >
> > > > >
> > > > >
> > > >
> > >
> > >
> > >
> >
>