View Full Version : بستن همه فرمها با هم
ILOVEVB
چهارشنبه 09 اسفند 1385, 11:25 صبح
سلام
دوستان با چه دستوری می شه تمام فرمهایی که در برنامه باز هستند را بست.
ممنون خدانگهدار
MM_Mofidi
چهارشنبه 09 اسفند 1385, 15:46 عصر
'Dim frm As Forms
For Each frm In Access.Forms
MsgBox frm.Name & "iS Open You can close it"
Next
Payam Moradi
چهارشنبه 09 اسفند 1385, 19:22 عصر
توضیحات دوست بزرگوارم آقای مفیدی خیلی کلیه. با اجازه من کاملتر کنم:
در داخل حلقه اگر نام فرم، فرمی باشه که هم اکنون داره دستور بسته شدن تمام فرمها رو میده، اونوقت فرم جاری نیز بسته میشه و حلقه کامل نمیشه. در صورت لزوم دستور بسته شدن فرم جاری بهتره آخر از همه باشه.
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
موفق باشید:چشمک:
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.