Closing multiple forms at once with vba

[ShaunG]

is there an issue with closing 2 or more forms at once and returning to a login form with this code....



Private Sub LogOut1_Click()
DoCmd.Close acForm, "JobProgress", acSaveYes
DoCmd.Close acForm, "CabinetTech", acSaveYes
DoCmd.OpenForm "LoginForm"
End Sub

[June7]

You tell us if there is an issue - error message, wrong results, nothing happens?

The acSaveYes has nothing to do with saving data, it is to save design changes.

[ShaunG]

Im still getting used to how code is written it just seems to easy.... just making sure i dont build the database and end up with awhole lot of errors...
It works fine, code ive seen to open forms is generally a little bigger...

[Gicu]

I use the custom function below (goes into a standard module) when I want to close multiple forms and leave only one open:

Function fCloseAll(Optional strForm As String)Dim icount As Integer, intX As Integer
'strform is the form/report required to be left open while all
'else are closed.
icount = Application.Forms.Count - 1
    'close all forms
    For intX = icount To 0 Step -1
        If Forms(intX).Name <> strForm Then
            DoCmd.Close acForm, Forms(intX).Name
        End If
    Next
    
End Function

Use it like this fCloseAll(Me.Name) 'from the form you want to leave open

Cheers,
Vlad

[ShaunG]

I use the custom function below (goes into a standard module) when I want to close multiple forms and leave only one open:

Function fCloseAll(Optional strForm As String)Dim icount As Integer, intX As Integer
'strform is the form/report required to be left open while all
'else are closed.
icount = Application.Forms.Count - 1
    'close all forms
    For intX = icount To 0 Step -1
        If Forms(intX).Name <> strForm Then
            DoCmd.Close acForm, Forms(intX).Name
        End If
    Next
    
End Function

Use it like this fCloseAll(Me.Name) 'from the form you want to leave open

Cheers,
Vlad

not sure if I understand....so insert the code into a module as you've written it?

then fcloseAll(Me.LoginForm) in the LoginForm?

[Gicu]

almost, yes add the function to any standard modules and the call is

Call fCloseAll(Me.Name)  ' or you can also use Call fCloseAll("LoginForm") if that is the name of your form

Cheers,
Vlad

[ShaunG]

almost, yes add the function to any standard modules and the call is

Call fCloseAll(Me.Name)  ' or you can also use Call fCloseAll("LoginForm") if that is the name of your form

Cheers,
Vlad

ok cool.... im not familiar with modules how do they work.. does every form have its own module?

[Gicu]

yes they do, but you want that function in a standard module (one that appears in the Modules collection of you database). Here are few links:
https://access-programmers.com/modules
https://msdn.microsoft.com/en-us/vba...-object-access
https://access-programmers.co.uk/for...d.php?t=140489
Cheers,
Vlad

[Missinglinq]

...just making sure i dont build the database and end up with awhole lot of errors...

That's why you test as you go...and why you make regular backup copies of your file! If you really scrooch the pooch, you can always go back to your last 'good' copy.

...code ive seen to open forms is generally a little bigger...

That depends on what you need to do when you open a file...whether you need to be able to add Records, edit Records...whether you want the Form to open in Datasheet View (even if its Default View is Datasheet View, if you're opening it thru code, you have to specify this) whether you need to go to a particular Record, when opening the Form, and so forth.

A login Form probably requires none of this, but simply needs to be opened, hence

DoCmd.OpenForm "LoginForm"

is probably all that is needed.

Welcome to AFN!

Linq ;0)>

[ShaunG]

yes they do, but you want that function in a standard module (one that appears in the Modules collection of you database). Here are few links:
https://access-programmers.com/modules
https://msdn.microsoft.com/en-us/vba...-object-access
https://access-programmers.co.uk/for...d.php?t=140489
Cheers,
Vlad

Cheers ill have a sus

[ShaunG]

That's why you test as you go...and why you make regular backup copies of your file! If you really scrooch the pooch, you can always go back to your last 'good' copy.



That depends on what you need to do when you open a file...whether you need to be able to add Records, edit Records...whether you want the Form to open in Datasheet View (even if its Default View is Datasheet View, if you're opening it thru code, you have to specify this) whether you need to go to a particular Record, when opening the Form, and so forth.

A login Form probably requires none of this, but simply needs to be opened, hence

DoCmd.OpenForm "LoginForm"

is probably all that is needed.

Welcome to AFN!

Linq ;0)>

Yeah im backing up as I go... I learnt the hard way!

Yeah ok cool I will need to add and edit records as well so good to know thanks