I have an option group which opens a report dependent on the use of select case within the option
Group.

Occasionally there will be a report where the function being queried will have no issues associated
with it therefore the on No Data will be true.

I have tried several methods, including the OnNoData event in the report, display a msgbox saying
no data, and then returning to the main form for a different selection.

I have tried setting DoCmd.SetWarnings False, but cannot get rid of the error message, (2501) so
the programme is halting.

I saw one method using a public function but not sure how to call it. That would be the bbest way
I presume, as you could set up the Public Sub and then just put the call function in every report
with a generic message such as "No Data In Currently Selected Report"

The Report is called "AllDeficienciesReport"

Thanks

JBN



--
--------------------------------- --- -- -
Posted with NewsLeecher v3.9 Final
Web @ http://www.newsleecher.com/?usenet
------------------- ----- ---- -- -

divventknaa wrote:
your rountine OnError routine (I assume you have one), it can change it
to look something like
If err.number <> 2501 then msgbox Err.Number & " " & Err.Description
Resume Exit_YourLabelName

Apologies if this has posted twice, Broadband is down and I am one of those singularly pathetic 3G
mobile BB sticks at the moment. Can retrieve mail, cant send, can retrieve headers, sometimes
posts.... very hit and miss..


The subroutine calling the report is as below. I have used the Set warnings false in the OnNoData
event of the report, and tried some of the 2501 msgbox suggestions. But whatever I put in it brings
the error up and highlights the "DoCmd.OpenReport stDocName, acPreview, , stLinkCriteria" line in the
VB Window.

I am sure I have managed to successfully get rid of this in the past, but can only find examples
where it was a subreport I was replacing with a Label, made visible on no data.





Private Sub DeficiencySelect_AfterUpdate()


Select Case Me.DeficiencySelect


Case 1
stDocName = "AllDeficienciesReport"
stLinkCriteria = "[RefinedGroup]= 'A'"
DoCmd.OpenReport stDocName, acPreview, , stLinkCriteria
Me.exitcombut.SetFocus
Case 2
stDocName = "AllDeficienciesReport"
stLinkCriteria = "[RefinedGroup]= 'B'"
DoCmd.OpenReport stDocName, acPreview, , stLinkCriteria
Case 3
stDocName = "AllDeficienciesReport"
stLinkCriteria = "[RefinedGroup]= 'C'"
DoCmd.OpenReport stDocName, acPreview, , stLinkCriteria
Case 4
stDocName = "AllDeficienciesReport"
stLinkCriteria = "[RefinedGroup]= 'D'"
DoCmd.OpenReport stDocName, acPreview, , stLinkCriteria
Case 5
stDocName = "AllDeficienciesReport"
stLinkCriteria = "[RefinedGroup]= 'E'"
DoCmd.OpenReport stDocName, acPreview, , stLinkCriteria

Case 6
stDocName = "AllDeficienciesReport"
stLinkCriteria = "[RefinedGroup]= 'F'"
DoCmd.OpenReport stDocName, acPreview, , stLinkCriteria
Case 7
stDocName = "AllDeficienciesReport"
stLinkCriteria = "[RefinedGroup]= 'G'"
DoCmd.OpenReport stDocName, acPreview, , stLinkCriteria
Case 8
stDocName = "AllDeficienciesReport"
stLinkCriteria = "[RefinedGroup]= 'H'"
DoCmd.OpenReport stDocName, acPreview, , stLinkCriteria



End Select

End Sub




--
--------------------------------- --- -- -
Posted with NewsLeecher v3.9 Final
Web @ http://www.newsleecher.com/?usenet
------------------- ----- ---- -- -

divventknaa wrote:

Why don't you remove the
stDocName = "AllDeficienciesReport"
and the
DoCmd.OpenReport stDocName, acPreview, , stLinkCriteria
lines from the Select statement as it is redundent.

Copy/paste them between your current end select/end sub lines.

You won't need the
Me.exitcombut.SetFocus
line either.

Why don't you add an OnError routine to your code above. You have lots
of unncecessary stuff in your code but not the necessary stuff you need
to make it work.

divventknaa <imat (AT) hotmail (DOT) com> wrote in
news:QqWdnSXPrqg6MdHRnZ2dnUVZ7qOdnZ2d (AT) giganews (DOT) com:

Why not set your option values to the Asc() code of the letter
needed? "A" is 65, so is you set the first one to 65, the second to
66, the third to 67, etc., you could pass:

DoCmd.OpenReport "AllDeficiencieesReport", acPreview, , _
"[RefinedGroup]= '" & Chr(Me!DeficiencySelect) & "'"

....and entirely eliminate the select case.

--
David W. Fenton http://www.dfenton.com/
contact via website only http://www.dfenton.com/DFA/