استدعاء كود من نموذج لتشغيلة في نموذج اخري

عزيزي إستخدم إستعلام حذف.

شكرا لك اخي الغالي ,

كلامك صحيح ولكن العبرة من السؤال و المثال هي للتوضيح الفكرة حول موضوع الاستدعاء وتشغيل الكود .

طبعا الكود الموجود عندي مختلف تماما و المثال المرفق هو للتوضيح فقط ,

ارجو المساعدة وشكرا للجميع ,,,,

السلام عليكم

خلال اليومين حاولت الاعتماد علي نفسي وجرات الكود التالي

call forms[ab].form![bu100_click]

حين ab تعني النموذج و bu100 تعني الزر المراد تشغيلة . ولكن للاسف الكود لم ينجح معي

ارجو المساعدة ولكم جزيل الشكر و الامتنان

ممتاز أخي ماجد أنت وصلت لنصف الحل،

والنصف الثاني سيكون علي. :)

الـ Code كالتالي:

DoCmd.OpenForm "ab", , , , , acHidden
Call Forms("ab").bu100_Click
DoCmd.Close acForm, "ab"

هذه الخطوة الأولى، أما الخطوة الثانية،

فهي الذهاب لـ Code أمر نفسه

وتغييره من:

Private Sub

إلى:

Public Sub

مرفق مثال.

Kuwait10.rar

بسم الله الرحمن الرحيم

بارك الله فيكم اخواني

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

شكرا جزيلا لك اخي kuwati10

لقد نجح الكود في القيام بالعمل , شكرا جزيلا لك واتمني لك دوما التفوق و النجاح ,,,,

بس في معلومة احبيت اضافتها , بالنسبة لتشغيل الكود للقيام بالحذف لا بد ان يكون النموذج مفتوح في الوضعية العادية ولم ينجح في وضعية الاخفاء ......

الشكر الجزيل لك فلولاك لما وصلت للنصف الثاني من الحل. :)

اقتباس

بالنسبة لتشغيل الكود للقيام بالحذف لا بد ان يكون النموذج مفتوح في الوضعية العادية

هذا ينسجم مع إجراء الحذف، فالـ Access يريد أن يعرف يحذف أي سجل.

تحياتي وتقديري ولا ينقطع عذا التواصل.