اذهب الي المحتوي
أوفيسنا

تعطيل رسائل التأكيد


mr steev
إذهب إلى أفضل إجابة Solved by ابوخليل,

الردود الموصى بها

السلام عليكم

هل هناك كود نقوم بوضعه عند فتح قاعدة البيانات وظيفته تعطيل رسائل التأكيد والتي يمكن تعطيلها من خيارات الاكسس -> خيارات متقدمة -> تأكيد

1- تغييرات السجل

2-حذف المستندات

3-الاستعلامات الإجرائية

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

 
DoCmd.SetWarnings False
الاستعلام الاجرائي
أو ما شابه ذلك
DoCmd.SetWarnings True


 

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

رابط هذا التعليق
شارك

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

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

DoCmd.SetWarnings False

سيتم  تعميم الاجراء  على كافة  قاعدة البيانات  حتى  يتم اغلاقها 

 

رابط هذا التعليق
شارك

سلّمك الله أخي الكريم

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

كما أن قاعدة البيانات لدي تحوي على نماذج عديدة 

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

شاكرين لكم تعاونكم

رابط هذا التعليق
شارك

10 ساعات مضت, mr steev said:

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

اخونا وحبيبنا هي ليست فكرة وليست نجاح  وفشل  

هي حقيقة

الكود يلغي رسائل التحذير  على مستوى قاعدة البيانات مالم  تعكس الكود

ويبدو ان هذا ما يحدث عندك  من خلال النماذج الاخرى

تتبع  هذه العبارة  DoCmd.SetWarnings   بالبحث  في برنامجك  وعطلها

 

 

رابط هذا التعليق
شارك

الان, ابوخليل said:

الكود يلغي رسائل التحذير  على مستوى قاعدة البيانات مالم  تعكس الكود

ويبدو ان هذا ما يحدث عندك  من خلال النماذج الاخرى

تتبع  هذه العبارة  DoCmd.SetWarnings   بالبحث  في برنامجك  وعطلها

هناك ملاحظة
انا عملت التجربة الان و عملت نموذج بها زرين للحذف واحد كتبت في اوله 

DoCmd.SetWarnings False

وزر الاخر لم كتبت ذلك السطر

واولا قمت بالحذف بواسطة زر الاول وبعدين عملت حذف بزر الثاني لم اعاني رسالة تحذير
=======

بعدين عملت نموذج اخر على جدول اخر و عملت عليها زرين واحد استخدمت ماكرو والاخر بالكود

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

ولكن حين عملت الحذف بواسطة كود لم اعطاني رسالة التحذير ... اي يعني الماكرو بيجدد التحذير !!
قمت بتحويل الماكرو الى الكود
وعملت الحذف بواسطته لم يعطاني رسالة التحذير

هذا والله يعلم

 

  • Like 2
رابط هذا التعليق
شارك

  • أفضل إجابة

شكرا استاذنا شيفان

وهذه الاكواد حسب طلبك الغاء من  الخيارات

 Application.SetOption "Confirm Action Queries", 0
   Application.SetOption "Confirm Document Deletions", 0
   Application.SetOption "Confirm Record Changes", 0

اجعلها في حدث تحميل نموذج البداية

وهذه لارجاع التحذير

Application.SetOption "Confirm Action Queries", 1
    Application.SetOption "Confirm Document Deletions", 1
    Application.SetOption "Confirm Record Changes", 1

يمكنك جعلها في حدث اغلاق النموذج ان شئت

  • Like 3
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information