[ تمت الإجابة ]إلى أصحاب الخبرة ..

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

الاخت tune

انظري الكود في حدث عند الخطأ للنموذج حيث تمت المعالجة بناءً على رقم الخطأ

اليك المثال

بالتوفيق

dbChangeSystemError.rar

الاخ الغالي يوسف أحمد

بارك الله بك علي المثال الرائع

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

لو لاحظنا ان رقم الخطأ هو 2113

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

قم بكتابة هذا الكود لكي يظهر لك رقم الخطأ كما يلي

 Private Sub form_Error(DataErr As Integer, Response As Integer)
Debug.Print "DataErr = "; DataErr

ثم من القائمة View

داخل محرر الفيجوال بيسك نختار Immediate window كما في الصورة الموضحة

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

يمكننا الان اظهار رسالة اخري غير رسالة الاكسس عن طريق هذا الكود البسيط

 Private Sub form_Error(DataErr As Integer, Response As Integer)

If DataErr = 2113 Then

MsgBox "فضلاً تأكد من ادخال رقم"

End If
Response = acDataErrContinue
End Sub

لا شكر علي واجب لكن برجاء في المرات القادمة كتابة عنوان مناسب للموضوع ولا داعي لهذه الامثلة من العناوين

اقتباس

إلى أصحاب الخبرة

بسم الله الرحمن الرحيم

تمت الإجابة على الموضوع

إدارة الفريق العربي للبرمجة