I want to vba code to close all forms except two forms

[Emmanuel]

I have a database with several forms.



I wanted a vba code that could close all the forms except two forms: “frm_login” and “HIDE”

Searching around, I came across these codes;


Dim F As Access.Form
Dim i As Long

' Loop all open forms, from last to first, to avoid problems due to closing forms
' (removing them from the Forms collection) in the loop
For i = Forms.Count - 1 To 0 Step -1
Set F = Forms(i)
' Close all forms except the login form
If F.Name <> "frm_login" Then
DoCmd.Close acForm, F.Name
End If
Next i

End Sub


Unfortunately, this code will close all forms except only the “frm_login”.

Would be glad if I could get help to modify the code so it will close all forms except the “frm_login” and the “HIDE”

[Micron]

Because you've only excluded 1 form name in your IF block? Add the other one(s):
If F.Name <> "frm_login" Or F.Name <> "HIDE" Then

[Emmanuel]

Because you've only excluded 1 form name in your IF block? Add the other one(s):
If F.Name <> "frm_login" Or F.Name <> "HIDE" Then

Great
Will give it a try and see wat happens

[Emmanuel]

Because you've only excluded 1 form name in your IF block? Add the other one(s):
If F.Name <> "frm_login" Or F.Name <> "HIDE" Then

That means I can use this same process to add more excluded forms using the “Or F.Name option I think

[Micron]

There might be better ways - would depend on how many I guess. I might use a Select Case block or (maybe even better) Form.Tag property (see Other tab in property sheet). Close (or don't) those with/without a tag property value.

[Emmanuel]

There might be better ways - would depend on how many I guess. I might use a Select Case block or (maybe even better) Form.Tag property (see Other tab in property sheet). Close (or don't) those with/without a tag property value.

For now I only need two
The highest may be 3 forms
Hope it will work for a 3rd form

[Micron]

Should not be an issue if written correctly. You could add another Or condition in the code line I guess, but I think I'd stop at 3 when it comes to doing that.

[Emmanuel]

Should not be an issue if written correctly. You could add another Or condition in the code line I guess, but I think I'd stop at 3 when it comes to doing that.

Alrite
Thanks for your time
I do appreciate

[Micron]

Yer welcome. Good luck with it!
You could mark this thread as solved if you're done with it.

[Emmanuel]

Yer welcome. Good luck with it!
You could mark this thread as solved if you're done with it.

This option didn’t work for me.
Can you demonstrate how to use the select case so I can copy the codes and modify them to suit my needs?

[Micron]

Doesn't work doesn't help, I often say. Can you post what you tried? Please enclose code in code tags (use # button on posting toolbar).

[Emmanuel]

Doesn't work doesn't help, I often say. Can you post what you tried? Please enclose code in code tags (use # button on posting toolbar).

#
Dim F As Access.Form
Dim i As Long

' Loop all open forms, from last to first, to avoid problems due to closing forms
' (removing them from the Forms collection) in the loop
For i = Forms.Count - 1 To 0 Step -1
Set F = Forms(i)
' Close all forms except the login form
If F.Name <> "frm_login" Or F.Name <> “HIDE”Cmd.Close acForm, F.Name
End If
Next i

End Sub #

[Micron]

putting #'s in your code is not using code tags. Maybe

Dim F As Access.Form
Dim i As Long

' Loop all open forms, from last to first, to avoid problems due to closing forms
' (removing them from the Forms collection) in the loop
For i = Forms.Count - 1 To 0 Step -1
   Set F = Forms(i)
   'Close all forms except the login form
     If F.Name <> "frm_login" Or F.Name <> "HIDE"  Then
       DoCmd.Close acForm, F.Name
     End If
Next i

End Sub

Those funny quote characters around HIDE in your code are not allowed. At least, I've never seen them not cause problems.

[Emmanuel]

putting #'s in your code is not using code tags. Maybe

Dim F As Access.Form
Dim i As Long

' Loop all open forms, from last to first, to avoid problems due to closing forms
' (removing them from the Forms collection) in the loop
For i = Forms.Count - 1 To 0 Step -1
   Set F = Forms(i)
   'Close all forms except the login form
     If F.Name <> "frm_login" Or F.Name <> "HIDE"  Then
       DoCmd.Close acForm, F.Name
     End If
Next i

End Sub

Those funny quote characters around HIDE in your code are not allowed. At least, I've never seen them not cause problems.

So what is the way forward?

[Micron]

Don't understand your question. I corrected your code - did you try it?