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