P
PeteCresswell
Citrix environment.
Some users's MS Access' "File" menus lack a number of choices - among
them "Export".
I've got some AutoExec code that runs depending on user's privileges
and that's where the problem appears to be.
For some users, I have been setting AllowFullMenus=False, which makes
Export and a few other options disappear from the File dropdown.
There are other menu items that I want suppressed for those users, but
everybody needs File | Export.
Is there some more granular method? Maybe something where I set
AllowFullMenus=False and then go back and patch up the File menu?
------------------------------------------------------------------------------------------------------------------------------------------
Public Sub DeveloperMenusToggle(ByVal theVisibilitySwitch As Boolean)
1000 DebugStackPush mModuleName & ": DeveloperMenusToggle"
1001 On Error GoTo DeveloperMenusToggle_err
' PURPOSE: To give/remove user access to the various things used by
' developer - like DB window, F11, Immediate, Code...and
so-forth
' ACCEPTS: Visibility switch: True=Show, False=Hide
1003 Dim myToolBarSwitch As Long
1010 If theVisibilitySwitch = True Then
1011 myToolBarSwitch = acToolbarYes
1012 Application.SetOption "Key Assignment Macro", "AutoKeys"
1013 Else
1014 myToolBarSwitch = acToolbarNo
1015 Application.SetOption "Key Assignment Macro", ""
1019 End If
1020 With DoCmd
1021 .ShowToolbar "Database", myToolBarSwitch
1022 .ShowToolbar "Form View", myToolBarSwitch
1023 .ShowToolbar "Query Design", myToolBarSwitch
1024 .ShowToolbar "Formatting (form/report)", myToolBarSwitch
1029 End With
1991 With CurrentDb
1992 .Properties("AllowFullMenus") = theVisibilitySwitch
1993 .Properties("AllowSpecialKeys") = theVisibilitySwitch
1994 .Properties("AllowBuiltinToolbars") = theVisibilitySwitch
1999 End With
DeveloperMenusToggle_xit:
DebugStackPop
On Error Resume Next
Exit Sub
DeveloperMenusToggle_err:
BugAlert True, ""
Resume DeveloperMenusToggle_xit
End Sub
------------------------------------------------------------------------------------------------------------------------------------------
Some users's MS Access' "File" menus lack a number of choices - among
them "Export".
I've got some AutoExec code that runs depending on user's privileges
and that's where the problem appears to be.
For some users, I have been setting AllowFullMenus=False, which makes
Export and a few other options disappear from the File dropdown.
There are other menu items that I want suppressed for those users, but
everybody needs File | Export.
Is there some more granular method? Maybe something where I set
AllowFullMenus=False and then go back and patch up the File menu?
------------------------------------------------------------------------------------------------------------------------------------------
Public Sub DeveloperMenusToggle(ByVal theVisibilitySwitch As Boolean)
1000 DebugStackPush mModuleName & ": DeveloperMenusToggle"
1001 On Error GoTo DeveloperMenusToggle_err
' PURPOSE: To give/remove user access to the various things used by
' developer - like DB window, F11, Immediate, Code...and
so-forth
' ACCEPTS: Visibility switch: True=Show, False=Hide
1003 Dim myToolBarSwitch As Long
1010 If theVisibilitySwitch = True Then
1011 myToolBarSwitch = acToolbarYes
1012 Application.SetOption "Key Assignment Macro", "AutoKeys"
1013 Else
1014 myToolBarSwitch = acToolbarNo
1015 Application.SetOption "Key Assignment Macro", ""
1019 End If
1020 With DoCmd
1021 .ShowToolbar "Database", myToolBarSwitch
1022 .ShowToolbar "Form View", myToolBarSwitch
1023 .ShowToolbar "Query Design", myToolBarSwitch
1024 .ShowToolbar "Formatting (form/report)", myToolBarSwitch
1029 End With
1991 With CurrentDb
1992 .Properties("AllowFullMenus") = theVisibilitySwitch
1993 .Properties("AllowSpecialKeys") = theVisibilitySwitch
1994 .Properties("AllowBuiltinToolbars") = theVisibilitySwitch
1999 End With
DeveloperMenusToggle_xit:
DebugStackPop
On Error Resume Next
Exit Sub
DeveloperMenusToggle_err:
BugAlert True, ""
Resume DeveloperMenusToggle_xit
End Sub
------------------------------------------------------------------------------------------------------------------------------------------