التخلص من رسائل الخطاء

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

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

12-04-2012%2020-24-43.jpg

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

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

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

12-04-2012%2020-25-29.jpg

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

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

12-04-2012%2020-28-49.jpg

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

12-04-2012%2020-25-08.jpg

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

12-04-2012%2020-25-53.jpg

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

وشكرا

الرابط الخاص بي

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

التخلص من رسائل الخطاء

مواضيع مشابهة