Print another report on a OnNoData event

airdata

Hi

I currently have the following code attached to a command button on a switchboard form. This is basic Access 2000.

Expand|Select|Wrap|Line Numbers

 Private Sub Print_daily_reports_button_Click()
 
On Error GoTo NoData
 
    DoCmd.OpenReport "Sales Return (TODAY)", acViewNormal

    DoCmd.OpenReport "Sales/Collections (TODAY)", acViewNormal

    DoCmd.OpenReport "SRV Register (TODAY)", acViewNormal

    DoCmd.OpenReport "STPC Voucher Register (TODAY)", acViewNormal

    DoCmd.OpenReport "FIMs issued (today)", acViewNormal
 
NoData:
 
If Err.Number = 2501 Then

Resume Next

End If
 
End Sub

For the first 2 reports, I have another report that will just print a separate report when there are no items to report. I am trying to work out the code needed.

I have tried setting on the report's NoData event to print the other report but the macro stops. Is there a way to refer to the NoData event in the code builder as above?

Prior to the above code builder I have also tried a macro to print all the same reports with a separate macro in the sales return report on the nodata event but that comes with the error "The function Open Report is not available now".

Any ideas will be greatly appreciated.

Thanks

nico5038

You should check the report's query to return records before triggering the report.

One way is to use a recordset for this, but as I guess you only need to check a specific date, the DLOOKUP() could be an alternative like:

Expand|Select|Wrap|Line Numbers

 
IF IsNull(DLOOKUP("datefieldname","tablename","datefield=Date()")) then
 
else
 
endif

Dlookup() will return Null when nothing is found.

Clear ?

Nic;o)

ADezii

Quote:

Originally Posted by airdata

Hi

I currently have the following code attached to a command button on a switchboard form. This is basic Access 2000.

Private Sub Print_daily_reports_button_Click()

On Error GoTo NoData

DoCmd.OpenReport "Sales Return (TODAY)", acViewNormal
DoCmd.OpenReport "Sales/Collections (TODAY)", acViewNormal
DoCmd.OpenReport "SRV Register (TODAY)", acViewNormal
DoCmd.OpenReport "STPC Voucher Register (TODAY)", acViewNormal
DoCmd.OpenReport "FIMs issued (today)", acViewNormal

NoData:

If Err.Number = 2501 Then
Resume Next
End If

End Sub

For the first 2 reports, I have another report that will just print a separate report when there are no items to report. I am trying to work out the code needed.

I have tried setting on the report's NoData event to print the other report but the macro stops. Is there a way to refer to the NoData event in the code builder as above?

Prior to the above code builder I have also tried a macro to print all the same reports with a separate macro in the sales return report on the nodata event but that comes with the error "The function Open Report is not available now".

Any ideas will be greatly appreciated.

Thanks

Nico has the right idea, just substitute you own Parameters:

Expand|Select|Wrap|Line Numbers

 Private Sub Print_daily_reports_button_Click()

On Error GoTo NoData
 
If IsNull(DLookup("datefieldname", "tablename", "datefield=Date()")) Then

  'Print Report for no Data

Else

  DoCmd.OpenReport "Sales Return (TODAY)", acViewNormal

End If
 
If IsNull(DLookup("datefieldname", "tablename", "datefield=Date()")) Then

  'Print Report for no Data

Else

  DoCmd.OpenReport "Sales/Collections (TODAY)", acViewNormal

End If
 
DoCmd.OpenReport "SRV Register (TODAY)", acViewNormal

DoCmd.OpenReport "STPC Voucher Register (TODAY)", acViewNormal

DoCmd.OpenReport "FIMs issued (today)", acViewNormal
 
NoData:
 
If Err.Number = 2501 Then

  Resume Next

End If

End Sub

Print another report on a OnNoData event

re: Print another report on a OnNoData event

re: Print another report on a OnNoData event

Similar Microsoft Access / VBA bytes

/bytes/development

/bytes/it

/bytes/about