كيف أستطيع تغير رسالة الخطأ؟

لو وضعتي مثالا من ملفك لسهل الأمر.

مرحبا

ممكن تفحصين (طول الارقام) في المكان المخصص للتاريخ و ذلك في حدث (قبل التحديث) معروف ان التاريخ يحتوي على 8 ارقام بدون فواصل التاريخ اختبري طول الارقام هل هي 8 و الا تظهر رسالة الخطأ المطلوبة غير الافتراضية

جربي هذا الكود في خاصية النموذج الموجود عليه حقل التاريخ عند الخطأ:

Private Sub Form_Error(DataErr As Integer, Response As Integer)
On Error Resume Next
If DataErr Then
MsgBox " تأكد من أنك أدخلت التاريخ بشكل صحيح"
End If
End Sub

السلام عليكم

الاخ سوالف ليل

أتعمد ادخال الرقم خطأ ...... لكي تظهر الرسالة ؟

لاني أعرف عدد الارقام التي يجب ادخالة لان صممت الجدول

لكن لو استخدمه غير ي سيكون صعب علية معرفة الخطأ فرسالة الخطأ غير مفهومه وأريد تغيرها لهذا المكان فقط ؟

شكرا لردك أخي ...

الأخ biskra

شكرا جزيلا لتعاونك وجزاك الله خير ,,

المشكلة ان الملف جدا كبير وياخذ وقت كثير في تحميلة

لقد استعلمت الكود الذي وضعته وبالفعل تغيرت المسج

لكني واجهت مشكلة اخرى وهي عند حدوث اي خطأ تطلع هذه المسج ايضا

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

يقول تاكد من ادخال التاريخ .... ؟

وهكذا عند حدوث اي خطأ فإن هذه الرسالة تظهر ايضا

مالحل ؟؟؟؟

الأخت حنان هذا الكود عام خاص بكامل الأخطاء التي تظهر في النموذج عند الادخال , جربي نفس الكود على الحقل المحدد من خلال خاصية فقدان التركيز.

الاخ الفاضل / biskra

شكرا لتواصلك وجزاك الله خير ,,

حاولت وماعرفت ....

غيرت اسم الفورم الى اسم المكان المحدد

لكن هذه المرة اذا ادخلت رقم خطأ لاتظهر الرسالة الجديدة اطلاقاً

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

On Error Resume Next

If DataErr Then

MsgBox " تأكد من أنك أدخلت التاريخ بشكل صحيح"

End If

End Sub

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

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

' If DataErr = 3314 Or DataErr = 2113 Then

If DataErr = 2113 Then

Response = acDataErrContinue

MsgBox "التاريخ الذي تم اٍدخاله خاطىء", vbOKOnly

Me.Undo

End If

End Sub

مشاء الله تبارك الله عليك

انحلت المشكلة

شكرا لك نفعك الله بعلمك ونفع بك ,,

الحمد لله و شكرا على ردك الجميل.