Start-up Options and Menus displayed

[Guest]

Hi,
Is there a way using visual basic to control (change) the checkbox selection
on the start-up form to allow both "Full Menu" and "Built in Toolbars" to be
displayed for the application? I have the checkboxes defaulted to not display
such menus on startup, but would like to code for the exception of a few
specific users. Have built a log in form for users and would like these menus
to appear for specific users. I know about the Shift key on enter option, but
I am looking a more seamless way to have these menu and toolbars launch
depending on the user logging in? I was trying to use the following
statement, but am not clear if this is the best method and if it only applies
when a specific form is open. Thanks for Input

DoCmd.ShowToolbar "Database", acToolbarYes

 

[Steve Huff]

The Startup Properties such as AllowFullMenus apply to the database object.
So if you change it by who logs in the Change will not be in effect till the
next login as the database property would not refresh till then.
Therefore - I do not think there is a way to accomplish what you are trying
to do.

 

[Todd Shillam]

You might be able to hide and restore custom command bars.

Private Sub Form_Load()

'==================================================
'DATE: November 10, 2004
'AUTHOR: Todd L. Shillam
'COMMENTS:
'
'1) Removes all Microsoft Access built-in toolbars.
'==================================================

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

CommandBars("MenuBarName").Enabled = True 'THIS LINE ADDS A COMMANDBAR BACK (CHANGE MENU BAR NAME)


End Sub



Might try using a command button to enable custom commandbars--that might work.

Good luck,

Todd
The Startup Properties such as AllowFullMenus apply to the database object.
So if you change it by who logs in the Change will not be in effect till the
next login as the database property would not refresh till then.
Therefore - I do not think there is a way to accomplish what you are trying
to do.