رسائل تحذيرية للاستعلام

[عادلصباح]

الإخوة أعضاء المنتدى الكرام

السلام عليكم ورحمة الله

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

المطلوب : عند الضغط على زر الأمر لتشغيل الاستعلام لا تظهر لي هذه الرسائل الموجودة ، وأن تظهر لي رسالة تحذير خاصة بالاستعلام التحديث  مثل "هل أنت متأكد من تحديث البيانات من 0000 إلى 0000 " ( نعم ـــ لا )

وظهور رسالة تأكيد عند الحذف "هل أنت متأكد من حذف بيانات ..... "  ( نعم ـــ لا )

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

تم تعديل ديسمبر 13, 2013 بواسطه عادلصباح

[أبا عمر]

السلام عليكم ورحمة _الله_ وبركاته
تفضل أخي 

 

If MsgBox("أنت على وشك حذف أو تحديث سجل سجلات " & vbCrLf & _
    "لتأكيد الأمر أضغط على زر موافق ، ولإلغائه أضغط على زر إلغاء", _
    vbInformation + vbOKCancel + vbMsgBoxRight, _
    "تأكيد تنفيذ الأمر") = vbOK Then
   
    DoCmd.SetWarnings False

    DoCmd.OpenQuery "اسم الاستعلام"

  DoCmd.SetWarnings True

 

تم تعديل ديسمبر 13, 2013 بواسطه أبا عمر

[عادلصباح]

جزاكم الله خيرا أخي ابا عمر هذا هو المطلوب