how unload all forms at the same time

[yoda]

how unload all forms at the same time or hide all at the same time

thanks for the for who ever does

Yoda (canada eh)

[willakawill]

how unload all forms at the same time or hide all at the same time

thanks for the for who ever does

Yoda (canada eh)

loop through the forms
for each form in forms
form.unload
next form

[Killer42]

how unload all forms at the same time or hide all at the same time

Not sure whether this is what you want, but the End statement will unload all forms and end the program.

[sashi]

Hi there,

Use the code below to unload all form except the current active form. hope it helps. Good luck & Take care.

'Within a form module
 
Private Sub Form_Activate()
 
'Form_Activate is a logical place to do this
 
Dim oFrm As Form
 
For Each oFrm In Forms
  if oFrm.Name <> me.Name and Not _
    (TypeOf oFrm Is MDIForm) then Unload oFrm
Next
 
End Sub
 
'OR: As a function in a .Bas or .cls module
'use the name of form you don't want unloaded as parameter
 
Public UnloadAllExceptOne(FormToStay as String)
 
dim oFrm as Form
 
for each oFrm in Forms
    if oFrm.Name <> FormToStay and Not _
             (TypeOf oFrm Is MDIForm) then unload oFrm
next
 
End Sub
 

[yoda]

thanks thats all i needed guys, sorry i found it out my self last night but i will try
your codes

thanks alot Yoda Canada Eh

[Wielebny]

it would be really nice if You shared with us what You found out