A97: How to hide ALL the tool bars?

[MLH]

The following lines are running when I open my A97 mde file...

If CurrentUser() <> "mlh" Then
Application.Set Option "Show ToolTips", False
Application.Set Option "Key Assignment Macro", "NonExisten t"
Application.Set Option "Built-In ToolBars Available", False
End If

But a toolbar still appears even though these lines have been
processed. Not surprising, really. These lines came from old
Access 2.0 applications and may not be doing anything when
running under A97. Dunno.

What should I be running to hide all the toolbars from the user?

[Matt]

You are probably referring to setting the startup properties of the
database. If you want to set them through code, refer to the Access
help at this location:

http://msdn.microsoft.com/library/de...HV05188072.asp

Note, though, that the startup settings are applied only when the
database is opened...what you probably want to do, since you want it to
be based on the user (which would have to happen after the database was
opened), is loop through the CommandBars collection and disable all of
the builtin ones.

[MLH]

I'm afraid looping through command bars is
something I'm not familiar with. Is there some
sample code out there for that? Or maybe
you can contribute a line or two.

[Matt]

for each cb in commandbars
cb.enabled = false
next

I think that they have a builtin property too, so you could go:

if cb.builtin = true then cb.enabled = false

[MLH]

Thx, I'll give it a try.