هل يمكن تغيير رسالة الخطأ

اخي الفاضل ياسين

يمكن عمل ذلك بهذه الطريقه

1. افتح النموذج في وضع التصميم واختر خصائص النموذج ثم اختر حدث عند الخطأ

الان ضع هذا الكود

Private Sub Form_Error(DataErr As Integer, Response As Integer)
If DataErr = 3022 Then
Response = acDataErrContinue
MsgBox "عذرا اخي ياسين ... يوجد تكرار للبيانات المدخله"
End If
End Sub

وهذا مثال حاول تدخل اسم ياسين او اي اسم موجود مسبقا لأنها مدخله من قبل وانظر النتيجه طبعا لن تسطيع الخروج حتى تقوم بتغيير الاسم الى اسم اخر او تعدل في الاسم المكرر

ERROR.rar

شكراً للافادة

جزاك الله خيراً

كيف يمكن جعل ذلك بصورة عامة على البرنامج بحيث اذا حدث هذا الخظأ فى اى شاشة تظهر هذه الرسالة الجديدة

الحمد لله وصلت للحل

1- انشاء Module1 ونكتب بها هذا الكود

Public Sub AAss(DataErr As Integer, Response As Integer)

Select Case DataErr

Case Is = 3022

Response = acDataErrContinue

MsgBox "عذرا اخي ياسين ... يوجد تكرار للبيانات المدخله"

Case Is = 3101

Response = acDataErrContinue

MsgBox "يوجد بيان اساسى تم ادخاله خطأ او لم يتم ادخاله"

End Select

End Sub

وبعد ذلك نذهب الى حدث On error

ونكتب فيه

Call Module1.AAss(DataErr, Response)

ومن الملاحظ اننى استبدلت if ب select

حتى يمكن معالجة العديد من الاخطاء

وشكرا مرة ثانية للاستاذة زهرة