Close subforms

[dkeeper09]

Hey guys.



I have a form with a few buttons on it. The buttons open and close the respective subforms. I only have on issue.
Lets say I click button A to open subform A. Then I decide I want to click button B to open subform B. Is there a way to get subform A to close when I open subform B? Right now, I have to physically close subform A before I open subform B or it gets in the way.
Hope it makes sense
Any help is greatly appreciated. Thank you.

[dkeeper09]

Right now, I have this for the button code:

Private Sub AddDeleteAssetCategories_Click()
Me![Assets].Visible = Not Me![Assets].Visible
End Sub

[hertfordkc]

Have you tried tying macros to each button, where one macro Opens Form A, closes Form B and the other macro Opens Form B, closes Form A?
You may have to alter a setting to suppress any error message that might arise if the form being closed isn't open.

[dkeeper09]

Do you know what the macro code would be for closing the form?

[hertfordkc]

Right now, I have this for the button code:

Private Sub AddDeleteAssetCategories_Click()
Me![Assets].Visible = Not Me![Assets].Visible
End Sub

That code doesn't close a form, it just makes it invisible.
If you mean to close assets on this click, in place of
Me![Assets].Visible = Not Me![Assets].Visible
you need something like
Docmd.Close acForm,"Assets",acSaveNo

[dkeeper09]

Hmm. Ok, well lets say I just stick with the Invisible/visible code. Is there a way to make the other forms invisible when I make a form visible?

[orange]

Can you tell us what you want to happen and when?

If I click button A, then I want .....

[dkeeper09]

if i click button a, make sure subforms b and c are invisible, open subform a.

if i click button b, make sure subforms a and c are invisible, open subform b.

[boblarson]

Just a learning moment - You are using the term SUBFORM incorrectly. A Subform is a form that is displayed ON a parent form by use of a subform control (control which houses the subform on the parent form). It does NOT refer to a completely separate form which can be opened and closed.

So, from what I'm seeing, you are NOT using subforms, but are just using different forms for different parts of your entry and editing.

This is important to note since it makes a BIG difference when you are asking a question.

[hertfordkc]

if i click button a, make sure subforms b and c are invisible, open subform a.
Forms![B].visible = no
Forms![C].visible = no
Docmd.Opernform "A", parameters

if i click button b, make sure subforms a and c are invisible, open subform b.

Forms![A].visible = no
Forms![C].visible = no
Docmd.Opernform "B", parameters

Two more notes: If you are not certain of the state of the other forms, you will need to set up error trapping so your process reaches the desired end.
Second, I'm doing this without my Access computer, so the syntax hasn't be checked. if you get errors, try help on the lines on which you get errors. I'll be here if you get stuck.

[boblarson]

Forms![A].visible = no
Forms![C].visible = no
Docmd.Opernform "B", parameters

A bit off (but understandable if you don't have something to test with).

Forms!A.Visible = FALSE
Forms!C.Visible = FALSE
DoCmd.OpenForm "B", acNormal


but a simpler way is to create a function:

Function OpenForm(strFormNameHere)
    Dim frm As Form
    For Each frm in CurrentProject.AllForms
         If frm.Name = strFormNameHere Then
            If CurrentProject.AllForms(frm.Name).IsLoaded = False Then
               DoCmd.OpenForm frm.Name, acNormal
            Else
               frm.Visible = True
            End If
          Else
             frm.Visible = False
          End If
    Next
End Function

Then just call your function from the button's click event and pass the appropriate form name you want to be displayed.

In Button A you would use

OpenForm "A"

or for Button B

OpenForm "B"

Which would open the form designated and hide all others.

[dkeeper09]

Sorry for the late response.

So I add that function to each button right, and just change the form names to the correct ones?

[boblarson]

Sorry for the late response.

So I add that function to each button right, and just change the form names to the correct ones?

No, you don't add that function to each button. You only ADD IT ONCE to a Standard Module and then you can CALL the function from the button click events.