حذف من حقل Cmbobox

الاخت الكريمة

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

ضعي الكود ادناه بحدث عند النقر لزر الأمر

DoCmd.SetWarnings False
    DoCmd.RunSQL "DELETE points.work_point FROM points WHERE (((points.work_point)=[forms]![del_work]![نص10]));"
    DoCmd.SetWarnings True
    Me.نص10.Requery
    Me.نص10 = ""

شرح الكود :

السطر الاول : هذا الامر خاص بإلغاء الرسائل التحذيرية للإستعلامات الإجرائية مثل .. الإلحاق .. الحذف .. التحديث

السطر الثاني : جملة اسكيوال الخاصة بعملية الحذف بناء على معيار معين وهو هنا قيمة مربع التحرير والسرد المسمى ( نص10 ) وللمعلومية فهذه الجملة مكافئة تماماً لإستعلام الحذف ( Query1 ) والذي تم تركه لك فقط لتعرفي كيف يتم بناؤه ويمكنك تشغيل الاستعلام بدلاً من الجملة اعلاه وذلك بإستبدال السطر الثاني بالآتي :

Docmd.OpenQuery "Query1"

السطر الثالث : هذا الأمر خاص بإعادة الرسائل التحذيرية للإستعلامات الإجرائية.

السطر الرابع : اعادة تهئية مربع التحرير والسرد .. ولو لم يتم هذا الامر فإن القيمة المحذوفة ستظهر بمربع التحرير والسرد كالآتي : # محذوف ... الى ان يتم اغلاق النموذج واعادة فتحه مرة اخرى.

السطر الاخير ازالة القيمة الحالية والتي تم حذفها ... ولكن معنى الكود تماماً هو اسناد القيمة "" اي فراغ .. الى قيمة مربع التحرير والسرد .. وبذلك تختفي القيمة المحذوفة مباشرة .. ولو لم يتم وضع هذا الكود لبقيت القيمة ظاهرة حتى بعد الحذف مع انها محذوفة اساساً من مصدر مربع التحرير والسرد

اعتذر على الإطالة ولكن وددت ان اشرح لك بإستفاضة حتى تعرفي كيف تتم الأمور بالتفصيل .. ارجو الا يكون مملاً

بالتوفيق

تفضلي المرفق بعد التعديل

بالتوفيق

delete cmbobox.rar

اشكرك اخي العزيز يوسف واقدر مجهودك الرائع في شرح الكود لاني فعلا احتاج لفهم الكود كي استطيع تطوير نفسي في برمجة الاكسس وطبعا لانستغني عن مساعدتكم لنا

شكرا جزيلا