how to close all forms when closing the application?

[hugo123]

I have a main form on my application and I want to close all forms when I exit the main dialog.
How can I do that?

private Sub closeAllForms()
Dim i as Integer
for i = 0 to Forms.Count - 1
If Forms(i).Name <> "Wnd_Main" then
' close form(i)??
End If
next
End Sub

[andyleno]

I'm not to sure what you want to do here!.
Once the main Form is unloaded all other forms follow suit. Try using your code in the main Forms Unload QueryUnload Event


private Sub Form_QueryUnload(Cancel as Integer, UnloadMode as Integer)

Dim i as Integer
for i = 0 to Forms.Count - 1
If Forms(i).Name <> me.name then
'close form
unload (Forms(i))'(i)?? End If
next i

End Sub






Andrew Lennon (Berlitz)
Automation Dev Engineer

[andyleno]

I'm not to sure what you want to do here!.
Once the main Form is unloaded all other forms follow suit. Try using your code in the main Forms Unload QueryUnload Event


private Sub Form_QueryUnload(Cancel as Integer, UnloadMode as Integer)

Dim i as Integer
for i = 0 to Forms.Count - 1
If Forms(i).Name <> me.name then
'close form
unload (Forms(i))'(i)?? End If
next i

End Sub





Don't forget to Rate !!!!


Andrew Lennon (Berlitz)
Automation Dev Engineer

[hugo123]

Thanks, it works perfectly

[John G Duffy]

Here is but another way to close all forms.
Set the code u=in the FOrm_Unload event or the QUeryUNload event

private Sub Form_QueryUnload(Cancel as Integer, UnloadMode as Integer)
Dim f as Form
for Each f In Forms
If f.Name <> me.Name then Unload f
next f
End Sub




Please rate it if it answers the question
or is useful.
'
John G

[SAKYA]

Use 'end' in place of any unload statement.It closes all the forms.