How to hide Shortcuts in Shutter Bar/Navigation Pane in VBA 1

[mbrichmo]

Hi,
Does anyone know how to hide a shortcut from the shutter bar with VBA?

 

[kjv1611]

If you look in the comments section on this blog post, I think you'll find what you're after:

http://movefirstblog.wordpress.com/2008/09/10/access-2007-hide-the-navigation-pane-shutter-bar/

"But thanks be to God, which giveth us the victory through our Lord Jesus Christ." 1 Corinthians 15:57

 

[kjv1611]

This is how I found it, by the way



"But thanks be to God, which giveth us the victory through our Lord Jesus Christ." 1 Corinthians 15:57

 

[mbrichmo]

Thank you for your reply kjv1611. I don't want to hide the shutter bar though. I want to hide a shortcut in the shutter bar with VBA. The shortcut is to a form. I want to set the shortcut Hidden attribute to true using VBA. The use case is providing a single database front end to multiple users, where forms should display in the shutter bar based on the role of the particular user.

 

[kjv1611]

Hmm...

Well, as for how to access it, have you tried checking through the DAO objects, perhaps? I've never tried, but if there is a DAO object there, you can reference its properties that way.

If you cannot find it that way, then perhaps you can have 2 different front-end templates. 1 with the item(s) hidden, and 1 with the item(s) not hidden.

Then you simply hand them out according to which they should receive, based on their usertype... either via a list you keep, or a "main" database that associates the username with the usertype..

"But thanks be to God, which giveth us the victory through our Lord Jesus Christ." 1 Corinthians 15:57

 

[mbrichmo]

Hi,
I found the code: Application.SetHiddenAttribute(acObjectType, name as string, hidden as boolean) I don't know the rules linking to other sites but to give the person that posted credit, his name is Tim Ferguson

 

[kjv1611]

Oh, if you found it on another site, by all means mention the link. It's always good to give full credit, regardless of where it's from.

Thanks for sharing.

"But thanks be to God, which giveth us the victory through our Lord Jesus Christ." 1 Corinthians 15:57