The Super Hide all forms

[smd7m]

Hi
Is there a technique to hide the forms to complete? (or all object in access)
Similar to the following tables:

Dim db As Database
Dim obj As AccessObject, dbs As Object
Dim tdf As TableDef

Set dbs = Application.CurrentData
Set db = CurrentDb

For Each obj In dbs.AllTables
Set tdf = db.TableDefs(obj.Name)
If Left(tdf.Name, 4) <> "msys" And tdf.Attributes <> 1073741824 Then
tdf.Attributes = tdf.Attributes + dbHiddenObject
End If
Next
  
Set tbl = Nothing
db.Close
Set db = Nothing

 

[ajetrumpet]

so what's the question or tip? i posted this in the repository eons ago

 

[smd7m]

Is there a technique to hide the forms to complete? (or all object in access)???

 

[DCrake]

You can set the properties of each object to hidden. The icon will appear shaded. Then go to the main menu and options and set Show hidden objects to False.

David

 

[smd7m]

OK
but in up code about Tables....with run ... tables was super hidden and if set option (set Show hidden objects to False) tables was hide.

 

[DCrake]

Apart from your responses being grammatically incorrect, what's with all this "Super Hidden" gargon? An object is either hidden or visible there is no other variation. Please explain.

David

 

[smd7m]

Super Hiddenexplain :
In a Microsoft Access database,
if set Show [hidden objects] to True and;
Under Objects in the Database window, click the type of database object and Click Properties; then Select the Hidden check box.
but in your database object will appear shaded and should for hidden set Show [hidden objects] to False.
I will without set Show [hidden objects] to False, hidden all abject. (only code vba)
Please look the sample for Tables.

 

[DCrake]

This errored each tim ethe form was opened and on each click of a button.

Did not like the naming convention or the ????? prefixes how would you refer to a control with such meaningless names?

Documenter showed no tables in mdb.

 

[smd7m]

Please Download Again.