[ تمت الإجابة ]المساعده في موضوع رسائل الخطاء

للرفع

اخي الفاضل ابو عمر

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

بالنسبة لرسائل الأخطاء التي تظهر عند حدوث خطا ما فإن كل رسالة لها رقم معين يكون في صندوق الرسالة بهذا الشكل مثلا Runtime Err: 2315 وكل رسالة تختلف عن الأخرى من حيث نوعية الخطأ

لهذا فإنه يجب علينا اولا تسجيل رقم رسالة الخطأ وما هو نص الرسالة التي سنقوم بكتابتها .

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

If DataErr = 2315 Then
Response = acDataErrContinue ' هذا الأمر يمنع ظهور رسالة الخطأ الإفتراضية
MsgBox "هنا نضع نص رسالة الخطأ التي نريدها ان تظهر لنا"
Else
MsgBox "Error#: " & DataErr
Response = acDataErrDisplay ' Display Default message
End If

حسنا اعلم انك سوف تسأل هذا السؤال

ماذا لو كان لدينا عدة ارقام من الأخطاء ونريد ان نضع لكل خطأ رسالة معينة ؟

فالجواب : لا يوجد مشكلة ابدا في ذلك طالما استخدمنا قاعدة IF Then.... ElseIf Then..... Else الى مالا نهاية من فسيكون الكود كالتالي :

If DataErr = 2315 Then
Response = acDataErrContinue ' هذا الأمر يمنع ظهور رسالة الخطأ الإفتراضية
MsgBox "هنا نضع نص رسالة الخطأ التي نريدها ان تظهر لنا"

ElseIf  DataErr = 1234 Then
Response = acDataErrContinue ' هذا الأمر يمنع ظهور رسالة الخطأ الإفتراضية
MsgBox "هنا نضع نص رسالة الخطأ التي نريدها ان تظهر لنا

ElseIf  DataErr = 4567 Then
Response = acDataErrContinue ' هذا الأمر يمنع ظهور رسالة الخطأ الإفتراضية
MsgBox "هنا نضع نص رسالة الخطأ التي نريدها ان تظهر لنا

ElseIf  DataErr = 6789 Then
Response = acDataErrContinue ' هذا الأمر يمنع ظهور رسالة الخطأ الإفتراضية
MsgBox "هنا نضع نص رسالة الخطأ التي نريدها ان تظهر لنا

Else
MsgBox "Error#: " & DataErr
Response = acDataErrDisplay ' Display Default message
End If

اعتقد ان الموضوع سهل ولا يوجد به اي صعوبه

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

:hmm:

لا تعليق

بارك الله فيك خبيرتنا ام عهود ورفع قدرك وزادك علما ونورا

بقية جزئيه بسيطه هل يطبق على جميع نماذج البرنامج اذا كانت كثيره واين اجد صندوق رسائل الخطاء

اللهم بحق هذا الشهر الفضيل ان تجزيها الجنه

شكرا على نشرك للعلم بلا حدود

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

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

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