Control bars with VBA 1

[jurgen]

Hi,

Im going to try to explain my problem, I hope someone will understand what i'm going to explain :

How can I disable every toolbar, menubar, etc from my access application (not using View-Toolbars-Customize), and display my own bars. And how can I make bars just with icons and assign functions/procedure's to them.

ex : in stead of File Edit View .... i want to have
Delivery Invoicing Reports

ex icons : New / Open / Save ... i want to have
Add/Delete/Save/Print ....

I hope someone can help me with this problem

Thnx

JJ

 

[Gzep]

Hi.

Create the toolbar first. Give it a name, and save it.
Goto the main form, and set the property under
->others ->Toolbar to the new toolbar's name.

go to the database window, select startup, and turnoff the stuff you don't want to see.

restart the database...

Gzep.
vote if you liked my answer...

 

[Aivars]

Hi!
You may use the code like example.

Example:
'Disable command button "Compact and Repair Database..." of "Menu bar"
'You also can use index(integer) in lieu of command button's name.
'Code:

Private Sub Form_Load()
CommandBars("Menu bar&quot.Controls("Tools&quot.Controls("Database Utilities&quot.Controls("Compact and Repair Database...&quot.Enabled = False
End Sub

Private Sub Form_Unload(Cancel As Integer)
CommandBars("Menu bar&quot.Controls("Tools&quot.Controls("Database Utilities&quot.Controls("Compact and Repair Database...&quot.Enabled = True
End Sub

Aivars