My program has a menu bar docked to the top of the screen. Everything work as expected except one – I can’t use the Alt short-cut to access the menu despite each menu has a different marked (underlined) character. For example in the &Fail menu codes below, I can’t use Alt-F key combination to access the menu, though accessing it using the mouse is no problem:
Dim MBar As CommandBar
Dim MBarMenu As CommandBarControl
‘ Create a new menu bar and dock it to the top
Set MBar = CommandBars.Add(strNamaMenu, msoBarTop, True, False)
With MBar
.Position = msoBarTop
.Visible = True ‘ Make the menu bar visible
.Protection = msoBarNoMove ‘ Prevent users from undocking the menu bar
End With
‘ Create Fail popup control on the bar and set its caption
Set MBarMenu = MBar.Controls.Add(msoControlPopup)
MBarMenu.Caption = “&Fail”
Can anyone tell me the cause of it? Does it have anything to do with Access setup? Thanks in advance.