Unhide All Hidden Forms (?)

  • Thread starter Thread starter croy
  • Start date Start date
croy said:
Is there a command for unhiding all hidden forms?
Click to expand...


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 ------
 
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)
 
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 ------
Click to expand...


Thank you sir!
 
Back
Top