طريقة تنفيذ حدث موجود في نموذج آخر

اخواني ادارة وأعضاء وزوار هذا المنتدى الغالي

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

احببت أن أضع بين أيديكم هذا الموضوع ولا أدري إن كان قد سبقني إاليه أحد أم لا

المهم سأضعه للفائدة :

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

Dim RunEven As New Form_Form1
    RunEven.Button1_Click

حيث أن Form1 هو اسم النموذج الذي به الحدث

و Button1_Click هو اسم الحدث

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

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

DoCmd.Close

فقط لأنه سوف يغلق النموذج الذي يحوي الحدث

لذلك لا بد من نقل التركز باي طريقه مثلا

DoCmd.Close acForm, "اسم النوذج المنبثق", acSaveYes

ولا تنسى : تغيير ال Scope للحدث اذا كان Private خاص فانه يجب تغييره الى عام Public

وبالتوفيق