Change field 'Locked' property in VBA

[Ryan Penter]

Hi,
I have a database which is used by multiple users. They access it via a login screen and then via a main form. The main form displays a table. When certain users log in, I want them to be able to edit a specific field, whereas when other users log in I want them to have read only access to the field.
What do I need to write in the VBA when the user logs in to amend the 'Locked' property of the field? (assuming this is the right/best solution)


Any help would be much appreciated!

Thanks
Ryan

[NeoPa]

The control (not field) that displays the data you want to control has a .Locked property that you set depending on the value of the username used.

[Ryan Penter]

Thanks for replying. So what would I write in the VBA code... something like

If username = "Bob" Then
Set rst_tbl = dbsDB.Openrecordset"tblMainData")
    With rst_tbl
        !Field.Locked = TRUE
    End with
Else End If

[TheSmileyCoder]

As NeoPa said, the CONTROL which is for example a textbox on your FORM can be locked. The field(column) of a table cannot be locked.

[NeoPa]

As Smiley says, you'd set the .Locked property of the other control on the current form, according to the value found in the Me.UserName control.

The code might be something like :

Private Const conValid As String = ",Bob,Admin,Administrator,"
 
Private Sub UserName_AfterUpdate()
    With Me
        .ManagedControl.Locked = Not (InStr(1, _
                                            conValid, _
                                            "," & .UserName & ",") > 0)
    End With
End Sub