Always show full menus problem

[arvindn]

Is there a way to always show full menus thru code?

View -> Toolbars -> Customize -> Options tab Always show full menus is to made true thru VBA. (I searched all docmd.runcommand options was unable to spot it)

Allowfullmenus property of currentdb or the Allow full Menus in startup dialog box do not work for this.

 

[doran_doran]

macro

i think you have to use macro. do a search for custom tool bar.

good luck
dianna

 

[arvindn]

Thanks for replying.
If u don't mind please elaborate your solution a little more and please try it out practically because as i mentioned i have gone thru all the docmd.runcommand options possible in a macro.

 

[Rich]

DoCmd.ShowToolbar "Menu Bar", acToolbarYes
Is that what you're looking for?

 

[arvindn]

Thanks for replying Rich. No that's not what i was looking for.
Please try it practically. (It only takes 5 seconds). In the menu-bar,
View -> Toolbars -> Customize -> Options -> Always show full menus
Remove the check-mark from the check-box (make it false) and each dropdown menu will appear partially.
Now i want each dropdown menu to appear in full as it does when the check-box is marked(true) thru VBA or a macro.

 

[doran_doran]

more on toolbar

Design Toolbar Extra
This routine allows you to display toolbar to assist in the design of a Form or Report. There are a number of steps required to ensure this example works.
Create a toolbar called "FormsTools"
Add 5 buttons to the toolbar in the following order. (These must be the first 5 buttons on the toolbar for this to work as coded)
Name the first button "Show/Hide Page Header" and set the on action property to "=TBFormTools(1)"
Name the next button "Show Page Number" and set the on action property to "=TBFormTools(2)"
Name the third button "Reset to Default" and set the on action property to "=TBFormTools(3)"
Name the fourth button "Bring To Front" and set the on action property to "=TBFormTools(4)"
Name the last button "Send to Back" and set the on action property to "=TBFormTools(5)"
Add the code headed Toolbar Code to a module
Display the Toolbar "FormTools" when in the design of a form or report
'***************** Code Start *******************
' This code was originally written by Terry Wickenden.
' It is not to be altered or distributed,
' except as part of an application.
' You are free to use it in any application,
' provided the copyright notice is left unchanged.

'=========Toolbar Code=============
Function TBFormTools(Index As Integer)
Select Case Index
Case 1 'Page header footer
DoCmd.RunCommand acCmdPageHdrFtr
Case 2 'Page number
DoCmd.RunCommand acCmdPageNumber
Case 3 'Re apply default
DoCmd.RunCommand acCmdApplyDefault
Case 4 'Bring to front
DoCmd.RunCommand acCmdBringToFront
Case 5 'Send to back
DoCmd.RunCommand acCmdSendToBack
End Select
End Function

'****************** Code End ********************

 

[arvindn]

Fine that teaches me to create a toolbar.

As i pleaded in my previous post if u try out practically what i wish to achieve (it takes a second) then perhaps u can understand what i wish to do otherwise we will keep beating around the bush.