(تمت الفائدة) تعديل رسائل خطأ

[lordring]

السلام عليكم ورحمة الله وبركاته

في المرفق التالي يوجد مربع بحث برقم السجل كالتالي

عندما اقوم بكتابة رقم السجل والضغط على انتر او على مربع find record يقو بالانتقال الى السجل المطلوب

لكن هناك بعض العيوب كالتالي

عندما يكون الرقم غير موجود

فلايحدث شي عند الضغط على الزر او استخدام انتر فالمطلوب اضهار رسالة خطاء بعدم وجود هذا السجل

عندما يكون المربع فارغ وبالخطاء مثلا يتم الضغط على الزر تظهر الرسالة الخطاء التالية

عند كتابة شي غير الرقم بطريق الخطاء والضغط على الزر تظهر رسالة الخطاء التالية

عند الضغط مرتين لزر انتر في داخل المربع تظهر رسالة الخطاء التالية

كيف اتخلص من كل هذه الرسائل واستبدالها برسالةخطاء موحدة انيقة بدل هذه الرسائل المرعبة

وشكرا

http://dl.dropbox.com/u/9352509/access/accessleson/2003.rar

[lordring]

تم التعديل بواسطة الكود التالي

On Error Resume Next

Dim X As String

If Not IsNumeric(Bah) Then

MsgBox "please Insert Number"

Exit Sub

End If

X = Me.Bah.Text

Me.Bahtext.Value = X

Me.Requery

If IsNull(Me.ID.Value) = True Then

Bahtext = Null

Me.Requery

Me.Bah.SetFocus

MsgBox "No Record for this Number"

End If

وشكرا

[أبو آدم]

أخي العزيز lordring

يفضل دائماً تضمين معالج أخطاء للكود ، وأثناء التطبيق و التجربة حلّ الأخطاء والتعامل معها بموجب رسائل واضحه و إجراءات منظمة.

والأمر لكم

والله من وراء القصد ... وهو حسبي

.....