شرح طريقة إنشاء الرسائل التنبيهية في الأكسس

أخي الكريم

يوجد في المنتدى مشاركة تحتوي على جدول كامل برسائل الأكسيس

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

DoCmd.SetWarnings = Fale

واستبدالها برسالة خاصة

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

أولاً نكتب الأمرالتالي في بداية الكود

On Error GoTo Errnum

ثم نهاية الكود نكتب التالي

Errnum:

وبعد السطر التالي نعالج الأخطاء كما في السطر التالي

Select Case Err.num

وهكذا مع بقية الأخطاء

بالنسبة للأزرار التي تظهر على مربع الرسائل – فأن الدالة MsgBox تحتوي على وسائط تستطيع من خلالها تحديد قيمة الوسيطة حسب ما يظهر لك أثناء كتابة الكود كما أن لهذه الوسائط قيم تتعرف عليها الدالة وهي كما في الجداول التالية.

والكود التالي يوضح استخدام القيم الموجودة في الجدول

Select Case MsgBox("مضمون الرسالة", 1 + 0 + vbMsgBoxRight, "عنوان الرسالة")

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