القيمة التي أدخلتها غير صالحة لهذا الحقل

من خصائص النموذج حدث " عند الخطأ " في الوحدة النمطية0

أكتب الكود التالي :

  Debug.Print "dataErr="; DataErr
  Debug.Print "dataErr="; DataErr
   Select Case DataErr
Case Is = 2113
 MsgBox "عفواً هذا الحقل رقمي  يقبل الأرقام ", vbCritical + vbMsgBoxRight, "رسالة رفظ "
  Response = acDataErrContinue
Case Is = 2169
 MsgBox "لم يتم حفظ السجل ", vbCritical + vbMsgBoxRight, "رسالة رفظ "
  Response = acDataErrContinue

   Case Else
  Response = acDataErrDisplay
   End Select

فالخطأ رقمه 2113 وهذا السطر

Response = acDataErrContinue يوقف تلك الرسالة والرقم 2169 هو خاص برسالة تظهر عند إغلاق النموذج بعد الرسالة الأولى0

تعديل بسيط على كود الأخ مصلح

If DataErr = 2113 Then

MsgBox "عفواً هذا الحقل رقمي يقبل الأرقام فقط", vbCritical + vbMsgBoxRight, "نوع مختلف"

Response = acDataErrContinue

End If

ضعه كما قال الأخ مصلح في حدث عند الخطأ للنموذج