[ تمت الإجابة ]رسائل الخطأ التي تأخذ المستخدم إلى الكود كيف نمنع ظهورها

إستخدم الإجراء التالي :

Sub Error1(DataErr As Integer, Response As Integer)

Select Case DataErr

Case 2113, 2279
    MsgBox "Wrong Format"

Case 3399, 3022
    MsgBox "Duplicates Value"

Case 3201, 3314
    MsgBox "Complete Data"

End Select

Response = -1

End Sub

ثم قم بإستدعاء الإجراء في حدث Form_Error

Private Sub Form_Error(DataErr As Integer, Response As Integer)

Error1 DataErr, Response

End Sub

كما يمكنك تعديل الإجراء و إضافة ارقام الـ Error التي يمكن ان تصادف المستخدم كما تراه مناسباً.

:lol:

شكرا جزيل الغالي، و جزاك الله كل الخير

قبل الكود الخطأ

اكتب ذلك الكود فقط

On Error Resume Next

فقط ولا داعى لكتابة الأكواد الطويلة