Stop "The open report was cancelled"

[Phil Stanton]

I am opening a report (in Preview) from a menu system

I use the following code if there is no data in a report

Private Sub Report_NoData(C ancel As Integer)

MsgBox "There are no errors in Membership Head of Families",
vbInformation
Cancel = True

End Sub

After this message comes up and is cleared with the OK Button. Access
generates a second annoying message that
"The OpenReport Action was canceled" ( Note Microsoft can't spell
'cancelled' certainly in A2K, but perhaps that is American)

Anyway how do I stop this second message appearing.

Thanks

Phil

[ARC]

Well, in code you would check for the err=2501 in your error routine and
simply exit:

Private Sub Report_NoData(C ancel As Integer)
on error goto ErrRtn
MsgBox "There are no errors in Membership Head of Families",
vbInformation
Cancel = True

Exit Sub
'
ErrRtn:
If Err = 2501 Then 'Open report was cancelled
Exit Function
else
msgbox err.number & " - " & err.description
end if
end sub
"Phil Stanton" <ph**@myfamilyn ame.co.ukwrote in message
news:j8******** *************** *******@posted. plusnet...

>I am opening a report (in Preview) from a menu system

I use the following code if there is no data in a report

Private Sub Report_NoData(C ancel As Integer)

MsgBox "There are no errors in Membership Head of Families",
vbInformation
Cancel = True

End Sub

After this message comes up and is cleared with the OK Button. Access
generates a second annoying message that
"The OpenReport Action was canceled" ( Note Microsoft can't spell
'cancelled' certainly in A2K, but perhaps that is American)

Anyway how do I stop this second message appearing.

Thanks

Phil

[ARC]

Correction to my last:

The error trapping for 2501 really needs to be on the button that launches
the report. The report will cancel fine, but you get the "open report was
cancelled" in the calling function / button.

Hope this helps,

"ARC" <PC*****@PCESof t.invalidwrote in message
news:Wi******** *******@nlpi070 .nbdc.sbc.com.. .

Well, in code you would check for the err=2501 in your error routine and
simply exit:

Private Sub Report_NoData(C ancel As Integer)
on error goto ErrRtn
MsgBox "There are no errors in Membership Head of Families",
vbInformation
Cancel = True

Exit Sub
'
ErrRtn:
If Err = 2501 Then 'Open report was cancelled
Exit Function
else
msgbox err.number & " - " & err.description
end if
end sub
"Phil Stanton" <ph**@myfamilyn ame.co.ukwrote in message
news:j8******** *************** *******@posted. plusnet...

>>I am opening a report (in Preview) from a menu system

I use the following code if there is no data in a report

Private Sub Report_NoData(C ancel As Integer)

MsgBox "There are no errors in Membership Head of Families",
vbInformatio n
Cancel = True

End Sub

After this message comes up and is cleared with the OK Button. Access
generates a second annoying message that
"The OpenReport Action was canceled" ( Note Microsoft can't spell
'cancelled' certainly in A2K, but perhaps that is American)

Anyway how do I stop this second message appearing.

Thanks

Phil

[Phil Stanton]

Thanks "ARC"

Like a clot I checked for error 2501 and insted of exiting. I displayed the
error

Must be going senile

Thanks again

Phil

"ARC" <PC*****@PCESof t.invalidwrote in message
news:8e******** ********@nlpi07 0.nbdc.sbc.com. ..

Correction to my last:

The error trapping for 2501 really needs to be on the button that launches
the report. The report will cancel fine, but you get the "open report was
cancelled" in the calling function / button.

Hope this helps,

"ARC" <PC*****@PCESof t.invalidwrote in message
news:Wi******** *******@nlpi070 .nbdc.sbc.com.. .

>Well, in code you would check for the err=2501 in your error routine and
simply exit:

Private Sub Report_NoData(C ancel As Integer)
on error goto ErrRtn
MsgBox "There are no errors in Membership Head of Families",
vbInformatio n
Cancel = True

Exit Sub
'
ErrRtn:
If Err = 2501 Then 'Open report was cancelled
Exit Function
else
msgbox err.number & " - " & err.description
end if
end sub
"Phil Stanton" <ph**@myfamilyn ame.co.ukwrote in message
news:j8******* *************** ********@posted .plusnet...

>>>I am opening a report (in Preview) from a menu system

I use the following code if there is no data in a report

Private Sub Report_NoData(C ancel As Integer)

MsgBox "There are no errors in Membership Head of Families",
vbInformati on
Cancel = True

End Sub

After this message comes up and is cleared with the OK Button. Access
generates a second annoying message that
"The OpenReport Action was canceled" ( Note Microsoft can't spell
'cancelled' certainly in A2K, but perhaps that is American)

Anyway how do I stop this second message appearing.

Thanks

Phil

[ARC]

No problem. Actually I keep wanting to change the "ARC" that shows when I
post, but then people won't know that I posted under a different name (if
that makes sense). Guess it wouldn't matter if I change it?

I hear ya on the simple mistakes. Usually it's the one's staring right out
at ya that you can't see.

Andy
"Phil Stanton" <ph**@myfamilyn ame.co.ukwrote in message
news:98******** *************** *******@posted. plusnet...

Thanks "ARC"

Like a clot I checked for error 2501 and insted of exiting. I displayed
the error

Must be going senile

Thanks again

Phil

"ARC" <PC*****@PCESof t.invalidwrote in message
news:8e******** ********@nlpi07 0.nbdc.sbc.com. ..

>Correction to my last:

The error trapping for 2501 really needs to be on the button that
launches the report. The report will cancel fine, but you get the "open
report was cancelled" in the calling function / button.

Hope this helps,

"ARC" <PC*****@PCESof t.invalidwrote in message
news:Wi******* ********@nlpi07 0.nbdc.sbc.com. ..

>>Well, in code you would check for the err=2501 in your error routine and
simply exit:

Private Sub Report_NoData(C ancel As Integer)
on error goto ErrRtn
MsgBox "There are no errors in Membership Head of Families",
vbInformati on
Cancel = True

Exit Sub
'
ErrRtn:
If Err = 2501 Then 'Open report was cancelled
Exit Function
else
msgbox err.number & " - " & err.description
end if
end sub
"Phil Stanton" <ph**@myfamilyn ame.co.ukwrote in message
news:j8****** *************** *********@poste d.plusnet...
I am opening a report (in Preview) from a menu system

I use the following code if there is no data in a report

Private Sub Report_NoData(C ancel As Integer)

MsgBox "There are no errors in Membership Head of Families",
vbInformatio n
Cancel = True

End Sub

After this message comes up and is cleared with the OK Button. Access
generates a second annoying message that
"The OpenReport Action was canceled" ( Note Microsoft can't spell
'cancelled ' certainly in A2K, but perhaps that is American)

Anyway how do I stop this second message appearing.

Thanks

Phil