تحويل كود VBA الي ماكرو

[Zooro1]

الأخوة الافاضل أريد تحويل كود VBA عبارة عن جزئين الي ماكرو 

هذا الكود لإغلاق نموذج المفتوح

    DoCmd.OpenForm "main"

    DoCmd.Close acForm, Me.Name

وأريد اضافة  الكود لإغلاق التقرير المفتوح

DoCmd.OpenForm "main"

DoCmd.Close report, Me.Name

واذا أمكن عملهم في ماكرو واحد لإغلاق سواء نموذج او تقرير 

وشكرا لكم جميعا 

[jjafferr]

اخي الفاضل 🙂

هل حاولت عمل ماكرو ؟

في الواقع اللي انت تريده يمكن لأي هاوي عمله ، فشد حيلك وحاول ، واحنا نساعدك لما تحصل على صعوبة 🙂

 

جعفر

[Zooro1]

3 ساعات مضت, jjafferr said:

اخي الفاضل 🙂

هل حاولت عمل ماكرو ؟

في الواقع اللي انت تريده يمكن لأي هاوي عمله ، فشد حيلك وحاول ، واحنا نساعدك لما تحصل على صعوبة 🙂

 

جعفر

عملت الماكرو، وبينفذ الأمر بس مش بيقفل النموذج اللي مفتوح 

Close

Me

[jjafferr]

جرب تقلب الكود ، كالتالي

DoCmd.Close acForm, Me.Name
DoCmd.OpenForm "main"

وأريد اضافة  الكود لإغلاق التقرير المفتوح

DoCmd.Close report, Me.Name
DoCmd.OpenForm "main"

.

او خلينا نشوف اللي عملته ، نشوف وين الخطأ

[Zooro1]

1 دقيقه مضت, jjafferr said:

جرب تقلب الكود ، كالتالي

DoCmd.Close acForm, Me.Name
DoCmd.OpenForm "main"

وأريد اضافة  الكود لإغلاق التقرير المفتوح

DoCmd.Close report, Me.Name
DoCmd.OpenForm "main"

.

او خلينا نشوف اللي عملته ، نشوف وين الخطأ

اخي الغالي، عندي مجموعة ازارا كثيرة في قاعدة البيانات لنماذج كثيرة ، وكنت عاوز بدل ما اكتب vba اعمله ماكرو.

بدل ما اعمل close لنموذج معين ، يبقي me بس ماكرو 

[jjafferr]

تفضل يا سيدي

 

اعمل اغلق النموذج/التقرير اولا (لاحظ مافيه اسم النموذج) ، ثم افتح النموذج الآخر لاحقا 

.

لماذا ؟

شوف المقطع التالي:

 

.

جعفر

[kkhalifa1960]

مشاركة مع استاذي ومعلمي @jjafferr تفضل المرفق حسب مافهمت .

MacroClose rpt_Form.rar

[Zooro1]

26 دقائق مضت, jjafferr said:

تفضل يا سيدي

 

اعمل اغلق النموذج/التقرير اولا (لاحظ مافيه اسم النموذج) ، ثم افتح النموذج الآخر لاحقا 

.

لماذا ؟

شوف المقطع التالي:

 

.

جعفر

شكرا استاذنا جعفر وجزاك الله خير 

16 دقائق مضت, kkhalifa1960 said:

مشاركة مع استاذي ومعلمي @jjafferr تفضل المرفق حسب مافهمت .

MacroClose rpt_Form.rar 32.25 kB · 1 download

شكرا ليك اوي استاذنا خليفة الغالي.

وجزاك الله وجزاكم كل الخير