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

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

اولا عند حدث الخطاء فى النموذج ضع هذا الكود

MsgBox "Error#: " & DataErr ' Display the error number
Response = acDataErrDisplay ' Display Default message
وبعدها نفذ الخطاء واكتب حروف ستظهر رسالة بها رقم الخطاء وهو 2113 
وبعدها غير الكود فى حدث عند الخطاء الى التالى 
If DataErr = 2113 Then
Response = acDataErrContinue ' Don't display the default message
MsgBox "Please enter data in all required fields."
Else
MsgBox "Error#: " & DataErr
Response = acDataErrDisplay ' Display Default message
End If

ويمكت تغيير رقم 2113 حسب الخطاء وبهذة الطريقة تكتشف كافة الاخطاء وتغيرها من خلال معرفة رقم الخطاء