الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

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

مغلق
بدأه محمد حسين في 18 ديسمبر 2002 · 15 رد · 1,460 مشاهدة · في مراجعة المواضيع
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

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

اولا يسعدني كثيرا انضمامي اليكم واتمنا ان تقبلوني عضو واخ بينكم

وهذا يسعدني كثيرا وانا كنت من متتبعي مواضيع المنتدى منذو فتره

ومش غريب كثير عنكم واعرفكم جميعا

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

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

حوار تاكيد الحذف اريد كود يغير نص هذا المربع والتحكم بشكله وحجمه

اذا امكن واين اضع الكود بالضبط الله يسلمكم ويعافيكم لاني ما زلت

في البدايه بالاكسس ومنتداكم وموضيعه الرائعه ومشرفيه واعضائه الاروع

كانو السبب برغبتي بتعلم الاكسس وطبعا حبي الشديد للبرمجه

تقبلو مني كل الشكر والتقدير اخوكم محمد حسين

#2

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

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

#3

السلام عليكم

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

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

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

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

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

#4

أخي الكريم

الأمر

DoCmd.SetWarnings False

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

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

#5

السلام عليكم

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

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

#6

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

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

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

Activex Component Canot Creat Object

ولكم كل الشكر

#7

الأخ ajamy

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

#8

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

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

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

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

#9

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

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

#10

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

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

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

شكرا جزيلا لك

#11

السلام عليكم

اخي الفاضل abohajr

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

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

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

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

#12

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

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

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

تحياتي

#13

السلام عليكم

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

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

#14

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

جزاك الله خيرا على هذه المعلومة القيمة لكن أنا جربت الكود 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

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

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

#15

أخي الكريم

السلام عليكم

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

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

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

#16

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

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

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

ومعذررررررة

هذا الموضوع مغلق.

مواضيع مشابهة