Enable field = false for two users

Autoeng

Why me?
Local time
Today, 03:58
Joined
Aug 13, 2002
Messages
1,302
I have the following code which allows one user to only access some fields in a form and it works fine.

Code:
Private Sub Form_Open(Cancel As Integer)
Dim UserLoggedIn As String

UserLoggedIn = CurrentUser()

If UserLoggedIn = "userid1" Then
PendingDate.Enabled = False

I need to add another user to this.

I tried
Code:
Private Sub Form_Open(Cancel As Integer)
Dim UserLoggedIn As String

UserLoggedIn = CurrentUser()

If UserLoggedIn = "userid1" Or "userid2" Then
PendingDate.Enabled = False

but I get a mismatch error.

I tried copying the entire procedure and having one for userid1 and a separate one for userid2 but got an error on that as well. Is there any syntax that will allow me to have both users limited?
 
you could do
Code:
Private Sub Form_Open(Cancel As Integer)
Dim UserLoggedIn As String

UserLoggedIn = CurrentUser()

If UserLoggedIn = "userid1" Then
PendingDate.Enabled = False
else UserLoggedIn = "userid2"
PendingDate.Enabled = False
end if

could also try

If [UserLoggedIn = "userid1"] Or [UserLoggedIn = "userid2"] Then
PendingDate.Enabled = False
 
If UserLoggedIn = "userid1" Or UserLoggedIn = "userid2" Then
 
Got it...
Code:
Private Sub Form_Open(Cancel As Integer)
Dim UserLoggedIn As String

UserLoggedIn = CurrentUser()

If UserLoggedIn = "userid1" Or If UserLoggedIn = "userid2" Then
PendingDate.Enabled = False
 

Users who are viewing this thread

Back
Top Bottom