Object Permission Message

[B F Cole]

I have a main switchboard which has several command buttons, each of which
opens an input data form. When any user, other than one in the admins
group, clicks on two of the command buttons, the following message is posted
"You do not have the necessary permissions to use the 'MSysTable' object.
Have your system administrator or the person who created the object
establish the appropriate permissions for you". I used the Security Wizard
to set up the users using the default groups. Any suggestions for tracking
down the problem with the two offending forms?

The message also forces you to close the DB and start over, rather than
returning you to the Main Menu with the command buttons. Any way to capture
this message and return to screen that caused the problem?

Thanks,
Bill

 

[Joan Wild]

See http://www.jmwild.com/MSysTables.htm

If your user's shouldn't have access to whatever those buttons open,
consider hiding them from them, either based on their username or their
membership in some group.

 

[B F Cole]

Thanks for the reply. I didn't determine the permission problem. I
disabled the command buttons based on user. That way they are still
visible, but unavailable.

Bill

 

[Joan Wild]

Am I to understand that you solved your problem or not?

 

[B F Cole]

I didn't solve the permission problem but the "command button.enabled=false"
for selected users works. I had to give the users full permissions to
correct the problem for two forms. Don't understand why this was necessary,
but the enabled=false technique works. Couldn't find which user group or
user permission was causing the problem.
Bill

 

[Joan Wild]

Are you modifying in code, the recordsource of the form that the button
opens?

 

[B F Cole]

The sql statement is created in code after the command button is clicked.
Here's basically what it looks like.

Dim db as DataBase
Dim qdfRS as QueryDef
Dim rstRS as RecordSet
Dim sSQL as String
Dim stDocName as String
Dim stLinkCriteria as String

' Create the select statement
sSQL= "Select............"

set db = CurrentDb()
set qdfRS = db.QueryDefs("qryToRun")
qdfRS.SQL = sSQL

stDocName = "frmToOpen"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Bill

 

[Joan Wild]

If your users need to be able to open frmToOpen (not sure if they're
supposed to or not), then you must grant them modify design permission on
qryToRun.

Then the permission problem will go away.

 

[B F Cole]

Thanks. Apparently did what you suggested, but differently. If you give
modify design, it is the same as full permission. At least the same check
boxes are checked. I had given full permission to correct the problem.