الرجاء المساعدة في إغلاق الفورم

بصراحة أنا ما فهمت سؤالك

هل تريد إغلاق النوافذ من خلال زر أمر أم إغلاقه من خلال المشروع نفسه StopRun ?

على العموم وضمن مفهومي البسيط... سأفترض أنك تريد ذلك من خلال زر أمر

في زر الأمرالذي يقوم بإغلاق كل النوافذ

ضع هذا الكود

Call fncReturn

وضع في الـModule

مثل الكود التالي

Function fncReturn()
' إن كنت تريد إظهار الواجهة الرئيسية للبرنامج ولنسميه frmMain
Load frmMain
frmMain.Show
'وهذا للحفاظ على الفورم رقم 7 دون إغلاق
frm7.show
Unload frm1
Unload frm2
Unload frm3
Unload frm4
Unload frm5
Unload frm6
Unload frm8
'up to frm21
End Function

وتقريباً هناك كود أبسط من هذا ... قد يفيدك به أحد الإخوة المحترفين

On Error Resume Next

Dim Frm As Form

For Each Frm In Forms
	Unload Frm
	Set Frm = Nothing
Next

أخي الكريم أريد إغلاق البرنامج من المشروع نفسه والفورم 7 يضل شغال

خلاص أعمل Unload لكل الـ Forms عدا رقم 7 و سيب البرنامج شغال فى الخلفية.

يمكن عمل ذلك كما قال msayed2004 ولكن انت لا تريد اغلاق الفوم رقم 7 اذا امامك امرين

فى الكود الخاص بمحمد

On Error Resume Next

Dim Frm As Form

For Each Frm In Forms
if frm.name="form7" then
form7.visible=false
else
	Unload Frm
end if
	Set Frm = Nothing
Next

او تقوم بتنفيذ اى كود اغلاق حتلى مثل End

وتاتلى عند الحدث unload الخاص بفورم 7 وتكتب الكود التالى

private sub form_unload(cancel as integer)
cancel=1
me.visible=false
end sub

لقد تمت كتابة الاكواد فى صندوق النص الخاص بالرسالة لذا اذا كان هناك اى خطا اخبرنى به