Read-only security access

[ndltx5]

I have a group of users who are read-only and when they try to do certain things on the database, that because of security reason they aren't allowed, they get a "Run-time error." Is there a way to get rid of the error and instead have my own pop-up message that say something like "you do not have permission to do this," but only for read-only users.

Thanks alot

 

[PercyN]

One way you can do this is to handle the run time error with an error handler to display the message you want like below:

The first line of your code of the even that brings up the error should be;

On Error GoTo Error_Handler

Then at the end if of the code put in something like this;

Exit Sub
Error_Handler:
If Err.Number = <enter the number of the error that appears in the runtime error box> Then
Msgbox "You do not have permission to do this",vbexlamation,"Security Error"
Else
Msgbox Err.Description
End if

 

[lameid]

The real solution is to identify a user that has readonly permission and conditionally execute the allowed code if they are not readonly.

How you do this is based entirely on how you implemented the read only permission... If you are using Jet/Access security, check out the currentuser function as a start.