How to unload Current form, and load a different form?

[VAer]

How to switch from current form to another form?



The navigation button appears on multiple forms, and the code should be in multiple forms.

Thanks.

Private Sub NavigationButtonABC_Click()


If CurrentProject.AllForms("Login").IsLoaded = True Then
     ' Form is open, do nothing
Else
    'Unload current form, load form "Login"
End If




End Sub

[Micron]

Load and unload from what? You mean close and open another one?
Your code suggests you simply want to close some form and open another one, but what is 'current' form? You can close Login form easily enough,
DoCmd.Close acForm, "Login"
but what are you wanting to 'unload' after that? Maybe you just want to close and open the same form?

[davegri]

Private Sub NavigationButtonABC_Click()
    If CurrentProject.AllForms("Login").IsLoaded = True Then
     ' Form is open, do nothing
    Else
        'Unload current form, load form "Login"
        docmd.openform "Login"
        docmd.close acform, me.name
    End If
End Sub

[VAer]

Load and unload from what? You mean close and open another one?
Your code suggests you simply want to close some form and open another one, but what is 'current' form? You can close Login form easily enough,
DoCmd.Close acForm, "Login"
but what are you wanting to 'unload' after that? Maybe you just want to close and open the same form?

Current form means whatever form is visible on computer screen currently. As it states, the navigation button (with the shared code) appears in multiple forms.

Not close and open the same form. Close the currently opened form (visible on computer screen, but not form Login), then open form Login.

[VAer]

Private Sub NavigationButtonABC_Click()
    If CurrentProject.AllForms("Login").IsLoaded = True Then
     ' Form is open, do nothing
    Else
        'Unload current form, load form "Login"
        docmd.openform "Login"
        docmd.close acform, me.name
    End If
End Sub

Thank you very much!

[VAer]

Private Sub NavigationButtonABC_Click()
    If CurrentProject.AllForms("Login").IsLoaded = True Then
     ' Form is open, do nothing
    Else
        'Unload current form, load form "Login"
        docmd.openform "Login"
        docmd.close acform, me.name
    End If
End Sub

It seems the code If CurrentProject.AllForms("Login").IsLoaded = True does not work properly.

If I have forms Login and Copy, the navigation button with same code appear on both forms.

If I click form Login (All Access Objects left nagivate panel), and the form Login is open on the screen. Then if I click form Copy, then form Copy is also opened. When I click the navigation button on form Copy, it does not switch to form Login, since form Login has never been closed before opening form Copy.

Maybe I need the code to switch form Login to active form, and let form Login appear on screen when clicking the navigation button.

How to do that?

Thanks.

Edit: It seems I need the code SetFocus

[davegri]

How to do that?

Your original post indicated that the code is triggered via a button on a form, and the code will work for that situation.
However, your latest post is loading forms directly via clicking in the Navigation Pane. That method will never see the original button click code.
My suggestion is that you do not load any forms via the Navigation Pane. Create a custom menu form and launch all forms from there via buttons.

[VAer]

Your original post indicated that the code is triggered via a button on a form, and the code will work for that situation.
However, your latest post is loading forms directly via clicking in the Navigation Pane. That method will never see the original button click code.
My suggestion is that you do not load any forms via the Navigation Pane. Create a custom menu form and launch all forms from there via buttons.

As post #6 states, I figured it out, it is the code SetFocus.

To answer your question, I did NOT load form via Navigation Pane (I just tested the Navigation button code and made sure it works properly), I mean Navigation Buttons inside form (see attached).

Thanks.