بستن همه فرمها با هم

[ILOVEVB]

سلام
دوستان با چه دستوری می شه تمام فرمهایی که در برنامه باز هستند را بست.
ممنون خدانگهدار

[MM_Mofidi]

'Dim frm As Forms
For Each frm In Access.Forms
MsgBox frm.Name & "iS Open You can close it"
Next

[Payam Moradi]

توضیحات دوست بزرگوارم آقای مفیدی خیلی کلیه. با اجازه من کاملتر کنم:

در داخل حلقه اگر نام فرم، فرمی باشه که هم اکنون داره دستور بسته شدن تمام فرمها رو میده، اونوقت فرم جاری نیز بسته میشه و حلقه کامل نمیشه. در صورت لزوم دستور بسته شدن فرم جاری بهتره آخر از همه باشه.



Dim frm As Access.Form
For Each frm In Access.Forms
If frm.Name <> Me.Name Then DoCmd.Close acForm, frm.Name
Next
DoCmd.Close acForm, Me.Name

موفق باشید:چشمک: