Access Tools Menu Disabled

[Guest]

I Recently joined a workgroup as part of a project for a client, now whenever
I open acces or any of my databases the Tools menu is locked / disabled /
greyed out. I am using Access 2003 SP1. I have changed back to a new standard
system .mdw file and then the original one. I don't see any admin login
interface or anything? How do I get my Access back?

 

[Keith]

I Recently joined a workgroup as part of a project for a client, now
whenever
I open acces or any of my databases the Tools menu is locked / disabled /
greyed out. I am using Access 2003 SP1. I have changed back to a new
standard
system .mdw file and then the original one. I don't see any admin login
interface or anything? How do I get my Access back?

Hold the shift key down when you open your app.

Keith.
www.keithwilby.com

 

[Guest]

Hi Kevin,

I was afraid I get that response! unfortunately it occurs even if I'm not
opening an app or a any database. It's just permanently disabled whether or
not I hold down shift key. It's not an application that's doing this.

 

[George Nicholson]

Have you tried resetting your menu?

It may be that one of the other Access apps you were working with disabled
some built-in menu items on start up but didn't have the courtesy to restore
them on exit (or crashed before it had a chance to), so you'll have to do it
manually.

-View>Toolbars>Customize (or right-click in the menu area & select
Customize)
-On the Toolbars tab of the resulting dialog, select "Menu Bar" (and be sure
it's checked)
-Click Reset

Hopefully that will restore your missing functionality.

HTH,

 

[Keith]

Hi Kevin,
Who?


I was afraid I get that response! unfortunately it occurs even if I'm not
opening an app or a any database. It's just permanently disabled whether
or
not I hold down shift key. It's not an application that's doing this.

Can you right-click the menu bar and select "customize"?

Keith.

 

[Guest]

Hi George,

This doesn't work at all. Tried resetting it and defaulting. When I open or
create a new db, I can't even "Save As" or export or anything. I've reset the
menu a few times, restarted access. I think it's something to do with the mdw
I joined.

 

[Guest]

Sorry Keith for incorrect address.

Yes, I can click customize. I see the toolbars, commands and menu usage
(which I presume relates to hiding used/unused components)

 

[Guest]

Hi George,

Thanks, I'm afraid not. Tried resetting it. Doesn't change. Even ticked the
"Show full menus"

 

[TC]

George's suggestion sounds on track to me. If you can't reset the
option availabilities via the standard Access user interface, try it
through code. (Look up the Enabled & Visible properties of the
CommandBar(s?) object.)

There's no way your reported symptoms would be due to the workgroup
file, IMHO. If you think that they are, just re-join the standard
workgroup file & try again. Or rename the current file to ..._saved,
and see if Access creates a new one.

HTH,
TC

 

[Guest]

Dear TC,

Unfortunately they all show up as Enabled and Visible. The tools menu is
looking disabled though and I cannot access any security features. I had
tried renaming the default MDW file but alas, no good!

 

[Guest]

Actually, the tools menu is showing up as Visible=False, but when I try to
sedt it to true I get an automation error.

 

[TC]

Um, hard to comment if you do not show us the code or state the exact
error message!

Show the code, and state the exact error message.

TC

 

[Guest]

Hi TC,

Thank you for taking an interest in my problem:

error:Method 'Visible' of object 'CommandBar' failed -2147467259

code: (inside a cmd button)

Set cbar = Application.CommandBars("Tools")

If cbar.Enabled = False Then MsgBox ("CBAR Disabled")
If cbar.Visible = False Then
MsgBox ("CBAR hidden")
cbar.Protection = msoBarNoChangeDock
cbar.Enabled = True
cbar.Visible = True
End If



For Each ctrl In cbar.Controls
If ctrl.Enabled = True Then
Me.List0.AddItem ctrl.Caption & "- Enabled"
Else
Me.List0.AddItem ctrl.Caption & "- disabled"
End If
Next

 

[TC]

Sorry David, it's still tough to comment without knowing what any of
those outputs were. (I don't know if the commandbar was enabled, not
enabled, & so on.)

Not trying to be difficult. Just trying to gather the information
necessary to make an informed suggestion.

Run the following code & tell me what it displays:

(untested)

dim cbar as object, ctrl as object
Set cbar = Application.CommandBars("Tools")
debug.print 1, cbar.enabled
debug.print 2, cbar.visible
for each ctrl in cbar.controls
debug.print 3, cbar.caption
debug.print vbtab; cbar.enabled
debug.print vbtab; cbar.visible
next
set cbar = nothing

If any line fails with a runtime error, make this change to that line:

on error resume next
(the line in question)
debug.print err.number,err.description
on error goto 0

More on the commandbar object:


http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbaof10/html/ofobjCommandBars.asp

HTH,
TC