Mega Code Archive

 

Categories / VisualBasic Script / Access

 

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