Access VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Access
  4. Report Error Event
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