Unhide All Hidden Forms (?)

[croy]

Is there a command for unhiding all hidden forms?

 

[Dirk Goldgar]

Is there a command for unhiding all hidden forms?

No built-in command that I know of, but here's a simple sub to do it:

'------ start of code ------
Sub ShowAllHiddenForms()

Dim frm As Access.Form

For Each frm In Forms
If frm.Visible = False Then
frm.Visible = True
End If
Next frm

End Sub
'------ end of code ------

 

[Jack Leach]

Dim frm As Form
For Each frm In Forms
frm.Visible = True
Next
Set frm = Nothing


hth
--
Jack Leach
www.tristatemachine.com

"I haven''t failed, I''ve found ten thousand ways that don''t work."
-Thomas Edison (1847-1931)

 

[croy]

No built-in command that I know of, but here's a simple sub to do it:

'------ start of code ------
Sub ShowAllHiddenForms()

Dim frm As Access.Form

For Each frm In Forms
If frm.Visible = False Then
frm.Visible = True
End If
Next frm

End Sub
'------ end of code ------

Thank you sir!

 

[croy]

Dim frm As Form
For Each frm In Forms
frm.Visible = True
Next
Set frm = Nothing

Thank you sir!