Accessbalken vertoont zich endan weer niet...

[veerle55]

Hallo

Om de access balken te doen verdwijnen, heb ik deze codering
bij de form_open:
--------------------------------------------------------------------------------------------------------------
On Error Resume Next
Dim i As Integer
DoCmd.Maximize
For i = 1 To CommandBars.Count
CommandBars(i).Visible = False
Next i

DoCmd.ShowToolbar "Form View", acToolbarNo
DoCmd.ShowToolbar "Formatting (form/report)", acToolbarNo
DoCmd.ShowToolbar CommandBars("Menu Bar").Name, acToolbarNo
----------------------------------------------------------------------------------------------------------------

Nu is het zo dat wanneer ik bij "opstarten" alle vinkjes afzet en een
opstartformulier kies(inloggen); na het inloggen kom in mijn hoofdformulier dan is er
nog een balk met bestand-bewerken-invoegen;

maar als ik nu zonder een startformulier start en gewoon mijn hoofdformulier opstart
door erop te dubbelklikken in het database-venster,
dan is die balk er niet..
Hoe komt dat? Hoe kan ik dat tegengaan?

Dank
Mvg

Veerle

 

[FESTER]

Veerle,

zet deze code in de Bij Laden (On Load) gebeurtenis van je opstartformulier:

Dim i As Integer

DoCmd.Maximize

For i = 1 To CommandBars.Count
CommandBars(i).Enabled = False
Next i

Rest van de code is overbodig, verwijder deze.
Uitzetten van de vinkjes bij opstarten is eveneens overbodig.

FESTER

 

[veerle55]

dat van die uitvinken was gewoon dat ik 2 verschillende opstartmethodes,
natuurrlijk doet het uitvinken niks met die balken...

Maar jouw code is perfect, alweer een goede reply...
bedankt Fester

Mvg

Veerle