مربع حوار تاكيد الحذف

استخدم الكود التالي للحذف

Dim a As Integer

Beep

a = MsgBox("هل أنت متأكد من رغبتك في حذف هذا السجل ؟", vbYesNo + vbDefaultButton2 + vbExclamation + vbMsgBoxRight, "تأكيد الحذف")

If a = vbyes Then

    DoCmd.SetWarnings False

    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70



    End

If

السلام عليكم

اخي الفاضل abohajr ما شاء الله عليك لم اتوقع الرد بهذه السرعه

شو اقولك الله يجزيك كل الخير وانا من اشد المعجبين بمواضيعك ومشاركاتك

القيمه من خلال تتبعي لمواضيع المنتدى اذا تكرمت بسؤال هل هذا الكود

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

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

أخي الكريم

الأمر

DoCmd.SetWarnings False

يقوم بإيقاف الرسائل التحذيرية للأكسس

وهذا الكود يوضع في حدث عند النقر لزر الحذف

السلام عليكم

اخي الكريم abohajr الف الف شكر لك على ما قدمته لي من مساعده

والله لا يحرمنا من الطيبين امثالك تقبل تحياتي وشكري وتقديري

عضو جديد وإستفسار جديد

الإخوة الزملاء السلام عليكم ورحمة الله وبركاتة

لى إستفسار هو عند إنشاء زر أمر جديد داخل نموذج تظهر لى رسالة مفادها

Activex Component Canot Creat Object

ولكم كل الشكر

الأخ ajamy

هناك مشكلة في تثبيت الأوفيس أعد تثبيته وسوف تحل المشكلة بإن الله

الإخ العزيز /abohajr حفظك الله

شكرا للإستجابة والرد

فقد حاولت وعملت unistall للأوفيس بالكامل وأعدت تنزيلة فى دريف آخر وغيرت إسم الدليل الجديد وبع التشعيل ظلت نفس المشكلة

وشكرا مرة أخرى

معنى ذلك أن المشكلة في نظام التشغيل

لماذا لا تحاول تجربة إصدار آخر من أوفيس حتى تتأكد إن كانت المشكلة في نظام التشغيل أم لا

الأخ العزيز/abohajr حفظك الله

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

إنتهت مشكلة الرسالة عند انشاء زر أمر بالنموذج وذلك بعد إعادة تثبيت الويندوز من جديد

شكرا جزيلا لك

السلام عليكم

اخي الفاضل abohajr

الله يوفقك تكمل معروفك معي وتدلني وين اضع الكود الاول الذي اعطيتني اياه

لتغيير مربع حوار الحذف برساله من عندي بدل رسالة الاكسس

انت اعطيتني الكود اعلاه وانا عم اضعه في خصائص النموذج في حدث عند الحذف ولكن عندما عم احذف سجل تظهر خطاء ويفتح مكان وضع الكود ويعطيني السطر الاول معلم باللون الاصفر مع اني نسخته كاملا ولصقته

ارجوك المساعدة ولك مني كل التحية والتقدير

الأخ محمد حفظه الله

هذا ماقلته لك في ردي السابق عليك

اقتباس

وهذا الكود يوضع في حدث عند النقر لزر الحذف

تحياتي

السلام عليكم

اخي العزيز abohajr الله يعطيك الف الف عافيه مش عارف وين اودي جمايلك

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

أخي الفاضل :- أبو هاجر

جزاك الله خيرا على هذه المعلومة القيمة لكن أنا جربت الكود Dim a As Integer

Beep

a = MsgBox("هل أنت متأكد من رغبتك في حذف هذا السجل ؟", vbYesNo + vbDefaultButton2 + vbExclamation + vbMsgBoxRight, "تأكيد الحذف")

If a = vbYes Then

DoCmd.SetWarnings False

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

End If

لكن بعد ظهور هذه الرسالة تظهر مباشرة الرسالة التحذيرية الخاصة بأكسس ، " أنت على وشك .............." وأنا أريد إلغاء هذه الرسالة التحذيرية التي تظهر الخاصة بأكسس .

ماهو توجيهك لحل هذه المشكلة ومعذرة على الإثقال .

أخي الكريم

السلام عليكم

ما تقوله غريب جداً آمل التأكد من كتابتك للكود بشكل صحيح وبأنك ضبطت الأمر DoCmd.SetWarnings إلى False

هناك طريقة أخرى لإيقاف الرسائل التحذيرية بشكل عام من خيارات الأكسس في علامة التبويب تحرير/بحث وفي خانة تأكيد

أخوك / أبو هاجر

:eek:مشكوووووووووووور وماقصرت ، بالفعل كان هناك خطأ في كتابة الكود ، وتم تعديله وهو شغال الآن من أروع مايكون .

ولكن معذرة على الإثقال فلدي سؤال وهو مكرر ولكن أسأل الله تعالى أن يعطيك طيلة البال على أسئلة الثقلاء من أمثالي .

السؤال :- هو كيف أضع كود لوضع كلمة سر بعد هذه الرسالة التي تظهر لتأكيد الحذف .

ومعذررررررة