If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
User power
Greeting,
I have created the below code and I placed it in event on load of the main form. It works with only if the user added to the table or not. What I want to do is set up more user power (read, write, delete, and full control. How to do that with same table of user power please?? Dim CurrUser As String ' once user login to db Dim allowUser As Variant ' the allowed users '========================= to get cuurent user CurrUser = NetworkUserName() allowUser = DLookup("[EmployeeID]", "Employee Privileges", "[EmployeeID] ='" & CurrUser & "'") If allowUser 0 Then Me.Command37.Enabled = True Me.Command38.Enabled = True Me.AllowAdditions = True Me.AllowDeletions = True Me.AllowDeletions = True Me.AllowEdits = True Else Me.Command37.Enabled = False Me.Command38.Enabled = False |
Thread Tools | |
Display Modes | |
|
|