معالجة رسائل الاخطاء في اكسيس و بالماكرو حصراً

بدأه aboShoraih في 1 مارس 2008 · 5 رد · 1,841 مشاهدة · في قواعد بيانات Microsoft Access

#11 مارس 2008 في 22:08 صاحب الموضوع

السلام عليكم ,,

احبائي

رسالتي خطأ من رسائل الأكسيس القياسية , اريد لهما الازالة و وضع رسالتي الخاصة مكانهما ..

وهما :

-الاولى : رسالة الخطأ في النماذج و التي سببها ادخال قيمة مكررة في حقل المفتاح الرئيسي ,

-الثانية : في النماذج أيضاً , فعندما اضع قائمة Combo list ( او قائمة منسدلة ) واريد ان يختار المستخدم احد عناصرها حصراً وفقط وان لا يستطيع ان يضيف عنصراً جديداً اليها من خلال الكتابة فيها .. فاذا دخلت الى خصائص القائمة المنسدلة و في تبويب (Data ) وفي الخاصية ( Limit to list ) وضعت القيمة No ,, فهذا يعني عدم امكانية الاضافة و تحقق ما أريده ..

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

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

و الملاحظة الثانية و المهمة جداً هي اني اريد الحل بالماكرو فقط و بدون الكود الخاص بـ VBA ,فهل هذا ممكن ؟

db1.rar

تم تعديل هذه المشاركة بواسطة aboShoraih في 1 مارس 2008 في 22:12

#23 مارس 2008 في 13:45

أرفع الموضوع للانتباه مشكروين ..

#36 مارس 2008 في 13:29

نعيد الرفع مرة أخرى .. و لكم جزيل الشكر .

#46 مارس 2008 في 14:22

أخي الغالي

اعتقد ان الماكرو سيقف عاجزاً عن عمل اجراءت معينة يجب ان يتم انجازها من خلال الكود

لذلك قد تم التعديل علي مرفقك من خلال كود

Keycode = 0

في حدث keydown وذلك لمنع المستخدم من الكتابة داخل الكمبو بوكس

ايضا يمكنك من خلال هذا الكود اجبار المستخدم علي عدم تكرار اي بيان من خلال هذا الكود الذي يلغي لك رسائل الاكسس ويستعيض بدالها برسائل التنبية المطلوبة كما ذكرت

documentnofield = Me.documentno
Dim a
a = DLookup("[documentno]", "table1", "[documentno]='" & Me.documentno & "'")
If Not (IsNull(a)) Then
MsgBox "رقم مستند مكرر", vbCritical, "رسالة تحذيرية"
Cancel = True
Me.Undo
DoCmd.FindRecord documentnofield
End If

عموما جرب المرفق

وان شاء الله يكون فية الفائدة

no_for_duplicated_and_type_into_combo_box.rar

تم تعديل هذه المشاركة بواسطة محمد فؤاد تركي في 6 مارس 2008 في 14:25