Form level access

[MTSPEER]

Hello,



I was wondering if you could help me figure this out. I have a form with multiple textboxes where data needs to be updated. But I only want a couple people to be able to have the capability to change data or add data, and everyone else have read only access. Does anyone know how to make this happen?

[ranman256]

make a table ,tUsers and have the userIDs in it of those who can edit.
put an invisible textbox txtUser on the form
on FORM LOAD event, put

private mbCanEdit as Boolean

sub Form_Load()
  txtUser = Environ("Username")    'put current user in the box
       'see if they are in the edit list
  mbCanEdit =  txtUser = dlookup("[UserID]","tUsers","[UserID]='" & txtUser & "'") & "" 
  me.AllowEdits = mbCanEdit       'allow edits here
end sub

[MTSPEER]

so do I change the properties of the form to no edits first then do this? And I put the user ID in the textbox that I want to be able to edit? what if I want multiple people?

[orange]

You may want to research Role Based Access Control (RBAC).
If you only have a couple of Roles (ReadOnly, Edit and probably Admin),
you could use the code ranman suggested (you may need additional logic depending on you detailed requirements) when you load or open a form.

It is logic when you load or open the form
This user must be approved user and must be in the table and must have Edit rights....