كيفية استخدام SetOption لتعطيل رسائل تحذير في تطبيق Access

متوسطة: يتطلب ماكرو الأساسية ترميز والمهارات إمكانية التشغيل المتداخل.


تنطبق هذه المقالة فقط على قاعدة بيانات Microsoft Access (.mdb أو.accdb).

ملخص

يوضح هذا المقال كيفية استخدام أسلوب Application.SetOption لتعطيل رسائل تحذير في تطبيق Access.

مزيد من المعلومات

توفر Microsoft أمثلة برمجية للتوضيح فقط، دون أي ضمان صريح أو ضمني. هذا يتضمن، على سبيل المثال لا الحصر، الضمانات الضمنية الخاصة بالتسويق أو الملاءمة لغرض معين. تفترض هذه المقالة أنك معتاد على لغة البرمجة التي يتم شرحها والأدوات المستخدمة لإنشاء الإجراءات وتصحيحها. يساعد مهندسو الدعم لدى Microsoft في شرح وظيفة إجراء محدد، لكنهم لن يقوموا بتعديل هذه الأمثلة لتقديم وظيفة إضافية أو إنشاء إجراءات تستوفي متطلبات محددة. الاستعلامات الإجرائية والعمليات الأخرى التي إضافة أو حذف أو تعديل البيانات عادة تقديم المستخدم رسالة تحذير البيانات على وشك يمكن تعديلها. في تطبيقات في وقت التشغيل، ومع ذلك، من المستصوب غالباً لتعطيل التحذيرات لأن الشيكات والاحتياطات عادة خارج عنصر تحكم المستخدم.

يمكنك إنجاز هذا باستخدام الأسلوب SetWarnings الكائن DoCmd ، ولكن يفضل تعطيل التحذيرات للتطبيق بأكمله. للقيام بذلك، يمكنك استخدام الأسلوب SetOption كائن Application . ومع ذلك، إذا قمت بذلك، يجب أيضا تشغيل التحذيرات مرة أخرى على ما يتم إنهاء التطبيق.


للقيام بذلك في تطبيق بسيط، نموذج واحد، اتبع الخطوات التالية:

  1. ابدأ تشغيل Access ثم قم بإنشاء قاعدة بيانات فارغة تسمى تيسترون.

  2. استيراد جدول "العملاء" من نموذج قاعدة البيانات Northwind.mdb.

  3. إنشاء نموذج جديد في طريقة عرض التصميم، ومن ثم إضافة مربع تحرير وسرد غير منضم إلى مقطع التفاصيل.

  4. قم بتعيين الخصائص التالية لمربع التحرير والسرد:
    Name: cboCountry
    Row Source: SELECT DISTINCT Customers.Country FROM Customers ORDER BY Customers.Country;

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

  6. تعيين الخاصية عند _ النقر لزر الأمر إلى إجراء الحدث التالي:

    DoCmd.OpenQuery "qryDeleteCustomers"
  7. قم بإغلاق "محرر Visual Basic".

  8. قم بحفظ النموذج ديليتيكوستوميرس ومن ثم إغلاقه.

  9. إنشاء استعلام جديد في طريقة عرض التصميم ثم قم بإضافة جدول "العملاء".

  10. في Access 2002 أو في Access 2003، انقر فوق استعلام حذف في قائمة الاستعلام .

    في Access 2007، انقر فوق حذف في المجموعة نوع الاستعلام ضمن علامة التبويب تصميم .

  11. اسحب العلامة النجمية (*) من قائمة الحقول إلى العمود الأول في شبكة تصميم الاستعلام، ومن ثم اسحب حقل البلد/المنطقة إلى العمود الثاني.

  12. في صف معايير البلد العمود، اكتب ما يلي:
    Forms![DeleteCustomers]![cboCountry]

  13. حفظ الاستعلام قريديليتيكوستوميرس ومن ثم إغلاقه.

  14. افتح نموذج ديليتيكوستوميرس في طريقة عرض النموذج.

  15. اختر بلدا من مربع التحرير والسرد وانقر فوق زر الأمر ولاحظ التحذير الذي يظهر. انقر فوق لا في مربع الحوار تحذير.

  16. فتح النموذج في طريقة عرض التصميم، ومن ثم على شريط الأدوات، انقر فوق الزر تعليمات برمجية .

  17. في الإطار "تعليمات برمجية"، اكتب أو الصق الإجراءات التالية:

    Private Sub Form_Load()

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

    End Sub

    Private Sub Form_Unload(Cancel As Integer)

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

    End Sub
  18. قم بإغلاق "محرر Visual Basic"، ثم احفظ وأغلق النموذج.

  19. فتح النموذج ديليتيكوستوميرس وتحديد بلد ثم انقر فوق زر الأمر.


    لاحظ أن يظهر لا مربع حوار تحذير.

في هذا المثال، تأكيد التطبيق يتم تعطيل الخيارات عند تحميل النموذج ديليتيكوستوميرس وإعادة تمكين عندما يتم إلغاء تحميلها. في تطبيق أكثر تفصيلاً، قد تنفيذ نفس الإجراءات في نموذج بدء التشغيل أو لوحة التبديل.

هل تحتاج إلى مزيد من المساعدة؟

توسيع المهارات
استكشاف التدريب
الحصول على الميزات الجديدة أولاً
الانضمام إلى Microsoft Insider

هل كانت المعلومات مفيدة؟

نشكرك على ملاحظاتك!

شكراً لك على الملاحظات! يبدو أنه من المفيد إيصالك بأحد وكلاء دعم Office لدينا.

×