چگونگی کنترل پیغام های active report 2

[mohsen_iceman2000]

سلام من از Active report استفاده می کنم می خوام قتی که active ریپورت پیغام به کاربر ارسال می کنه
مثلا پیغام شماره 2019 من بگم واسه کاغذه یا پیغام های دیگه ...........

[hrj1981]

Error (ActiveReport)
Description
Occurs only as the result of an ActiveReports error that takes place when no Visual Basic code is being executed.

Note: If you do not code an event procedure for the Error event, Visual Basic will display the error message.

Syntax
Sub Error(Number As Integer, Description As IReturnString, Scode As Long, Source As String, HelpFile As String, HelpContext As Long, CancelDisplay As IReturnBool)

Parameters
Name Description
Number An ActiveReports error number
Description Brief description of the error
Scode Subsystem error code
Source Source of the error
HelpFile Help file name and path
HelpContext Context number of the error help topic
CancelDisplay An action setting corresponding to the action you want to take
Example

Private Sub ActiveReport_Error( _
ByVal Number As Integer, _
ByVal Description As DDActiveReports2.IReturnString, _
ByVal Scode As Long, ByVal Source As String, _
ByVal HelpFile As String, _
ByVal HelpContext As Long, _
ByVal CancelDisplay As DDActiveReports2.IReturnBool)
If Number <> 5007 Then ' Ignore the no printer warning
MsgBox "Error Number: " & Str(Number) & " " & _
Description, vbOKOnly, "Printing Error"
End If
CancelDisplay = True
End Sub

--------------------------------------------------------------------------------

Copyright © 2001-2010 Data Dynamics, Ltd. All rights reserved.