Hide Forms

[mgmslate]

I am drilling down through forms and only want the current form to be visible. In the command button on each form I am trying to call the following routine and I get a type mismatch.
What am I doing wrong.
Thanks
Mike
Public Sub formhide()
Dim frmcurrent As Form
Set frmcurrent = Screen.ActiveControl
Dim frm As Form
If frm.Name <> Forms!frmcurrent Then
For Each frm In Application.Forms
frm.Visible = False
Next frm
End If

End Sub

 

[fneily]

On your command button's OnClick event, why don't you just put

DoCmd.Close acform, &quot;form name that command button is on&quot;

Neil

 

[mgmslate]

I have a main customer form with buttons to open related forms
which the users go up and down like a ladder. I thought it would be better to hide the forms as they go up the ladder, then make them visible as they go back down rather than open and close the same forms constantly. Hope this makes sense.
Thanks
Mike

 

[compucop]

To hide the previous form try this

docmd.openform &quot;formname&quot;,acnormal,,,achidden

this will keep the form open and then hide it, you can then call the form by typing.

docmd.openform &quot;formname&quot;,acnormal

hope this is what you were lookin for Later.