Just a little bit of programming..after all it pays the bills.
I had setup the option to print different reports, depending on if something is manufactured in house or outsourced. So I came up with this:
The code behind the button on the form:
Private Sub cmdPrintReport_click()
On Error GoTo CatchErrNo
If Me.JobNo > “” Then DoCmd.OpenReport “rptWorkOrder”, acViewPreview, , “JobNo = ” & Me.JobNo
CatchErrNo:
If Err.Number > 0 Then
‘report will not open if there is no data, but throws an error. This will catch that error and print the workorder instead
‘jk – 4/18/2017
If Err.Number = 2501 Then
If Me.JobNo > “” Then DoCmd.OpenReport “rptPickList”, acViewPreview, , “JobNo = ” & Me.JobNo
Else
MsgBox Err.Number & ” – ” & Err.Description
End If
End If
End Sub
In the report design mode, you have to tell it what to do with no data (I never knew this was here)
Report – Event – On No Data
Private Sub Report_NoData(Cancel As Integer)
Cancel = True
End Sub
Are there other ways to do this, yes, probably 100, but this is what works in the environment that I’m working in.