2 reports based on available data

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have 2 possible reports (reportA and reportB) that I want to preview using
a button on a form. If there is data available for reportA I would like to
then be able to preview reportA and only reportA. If there is no data
available for reportA I would like to be able to preview reportB and only
reportB. Finally if there is no data available for either I would like to
get a message telling the user that there is no data available. Is this
possible and if it is, how can I make it happen? Thank you.
 
It wasn't tested, but it may help:

in your preview buton, put:
Private Sub Command0_Click()
Dim intAux As Integer

intAux = 1 ' Meaning: Report A
DoCmd.OpenReport "Report A Name", acViewPreview

Exit Sub

Print_ReportB:
intAux = 2 ' Meaning: Report B
DoCmd.OpenReport "Report B Name", acViewPreview

Exit Sub

ErrorHandler:
If Err.Number = 2501 Then
If intAux = 1 Then
Resume Print_ReportB
Else
MsgBox "No data to be printed", vbOKOnly + vbExclamation
End If
Else
MsgBox Err.Description, vbOKOnly + vbExclamation
End If

End Sub


in your reports, put in the OnNoData Event:
Cancel = true
 
Not testes, but it may help:

In your button_Click event:

Private Sub Command0_Click()
Dim intAux As Integer

intAux = 1 ' Meaning: Report A
DoCmd.OpenReport "Report A Name", acViewPreview

Exit Sub

Print_ReportB:
intAux = 2 ' Meaning: Report B
DoCmd.OpenReport "Report B Name", acViewPreview

Exit Sub

ErrorHandler:
If Err.Number = 2501 Then
If intAux = 1 Then
Resume Print_ReportB
Else
MsgBox "No data to be printed", vbOKOnly + vbExclamation
End If
Else
MsgBox Err.Description, vbOKOnly + vbExclamation
End If

End Sub

in your reports, put in the OnNoData event:
 
Back
Top