بســم الله الـرحمــن الرحيــم
بعد التحية والسلام على جميع أعضاء المنتدى الأعزاء
ماهو رقم رسالة الخطأ كما في الصورة المرفقة لكي أستخدمه في الكود التالي:
On Error GoTo Errsub Errsub: If Err.number = (رقم رسالة الخطأ) Then MsgBox "========= " & vbCrLf & _ " =============", _ vbCritical + vbOKOnly, _ " خطــــــــــأ " DoCmd.Quit
