رسالة خطأ أريد إخفاءها

[الشاعر]

السلام عليكم أيها أحبة في هذا المنتدى الجميل

 

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

وتظهر الرسالة بشكل عادي ، ويعمل البرنامج بشكل طبيعي في حال تم اختيار رقم الموظف والضغط على زر (موافق)

 

أما إذا تم الضغط على زر إلقاء الأمر فتظهر لي رسالة ( المرفق الثاني في هذه المشاركة)

 

ما أحتاجه أيها الأحية أنه في حالتم اختيار (إلغاء الأمر) عدم ظهور هذه الرسالة نهائيا

 

بارك الله بكم أيها الأحبة

وكل عام وأنتم بألف ألف خير

 

[رمهان]

يبدو ان التعامل مع الاستعلام من خلال كود معين

هات الكود او المرفق للتعديل

بالتوفيق

[jjafferr]

وعليكم السلام 

 

تفضل:

Private sub ....
on error goto err_No_2001

.....
.....

Exit_N0_2001:
exit sub
err_No_2001:

	if err.number=2001 then
		Resume Exit_N0_2001
	else
		msgbox err.number & vbcrlf & err.description
	endif

end sub

 

جعفر

[الشاعر]

جزاكم الله خيرا

جاري التجربة

 

تحياتي

( الشاعر )

[صالح حمادي]

يمكنك وضع الكود التالي في زر تشغيل الاستعلام:

DoCmd.SetWarnings False
DoCmd.OpenQuery "namequery"
DoCmd.SetWarnings True

بحيث namequery هو اسم الاستعلام

السطر الأول سيقوم بإيقاف رسائل التحذير لجميع انواع الإستعلامات

السطر الثالث سيقوم بإعادة تشغيل رسائل التحذير لجميع انواع الإستعلامات

[الشاعر]

بااااااارك الله فيكما أساتذتي الكرام

الحل 100 %

 

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

جزاكم الله خيرا أستاذ جعفر وأستاذ صالح

وكل المعطائين في هذا المنتدى

 

تحياتي

( الشاعر )

[jjafferr]

12 ساعات مضت, صالح حمادي said:

يمكنك وضع الكود التالي في زر تشغيل الاستعلام:

DoCmd.SetWarnings False
DoCmd.OpenQuery "namequery"
DoCmd.SetWarnings True

بحيث namequery هو اسم الاستعلام

السطر الأول سيقوم بإيقاف رسائل التحذير لجميع انواع الإستعلامات

السطر الثالث سيقوم بإعادة تشغيل رسائل التحذير لجميع انواع الإستعلامات

السلام عليكم أخي صالح 

 

جربت الطريقة وما نفعت ، رسالة الخطأ لازلت تظهر 

 

 

48 دقائق مضت, الشاعر said:

بااااااارك الله فيكما أساتذتي الكرام

الحل 100 %

 

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

 

حياك الله أخي الشاعر 

 

 

جعفر

[صالح حمادي]

تفضل أخي هذا مثال بإمكانك أن تجربه و سوف تلاحظ النتيجة.

لا وجود لتلك الرسائل أبدا.

اخفاء الرسائل.rar

[jjafferr]

السلام عليكم أخي صالح 

 

لم ارد الرد ، ولكن بما انك ارسلت لي رسالة على الخاص ، فهذا دلوي  :

الاستعلام الذي عملته انت ، يأخذ معياره من قيمة موجودة (مثله مثل لو طلعت لك رسالة تطالب بالقيمة ، وانت ادخلت القيمة ، فلن تظهر لك الرسالة) ،

ولكن ، غير المعيار (مثلا) :

من
[جدول2]![id]

الى
[جدول2]![id2]

واضغط على زر الامر في النموذج ،

فاذا ادخلت رقم صح ، مثلا 1 ، فلن تظهر لك الرسالة (كما هو الحاصل مع الاخ الشاعر) ،

ولكن عندما تنقر على الزر cancel ، فستظهر لك رسالة الخطأ  (كما هو الحاصل مع الاخ الشاعر) ، وهنا بيت القصيد 

 

 

جعفر

[صالح حمادي]

يا ريت دائما ترد علينا أستاذ جعفر كي نستفيد من خبرتك الواسعة.

أنا الآن طلعت مو فاهم الموضوع. شكرا أخي جعفر على التوضيح

 

[jjafferr]

26 دقائق مضت, صالح حمادي said:

أنا الآن طلعت مو فاهم الموضوع.

وهل اصبح الموضوع واضح الان ، ام تحتاج لمزيد من التوضيح ؟ 

 

جعفر

[صالح حمادي]

شكرا أستاذ جعفر وصلت الفكرة

[فقير ومشتري الدنيه بضحكتي]

ضع قبل الكود السابق او العملية السابقة الكود التالي 

on error resume next