Private Sub Report_Error(DataErr As Integer, Response As Integer) If DataErr = 2580 Then MsgBox "Record Source Not Available for this Report" Response = acDataErrContinue End If End Sub