User Access Level

[minder]

HI THIS IS MY FIRST POST SO BE GENTLE

OK WHEN I OPEN A FORM I HAVE THE FOLLOWING CODE IN THE ON OPEN FUNCTION

Private Sub Form_Open(Cancel As Integer)
On Error GoTo Err_Form_Open


If User.AccessID = 1 Then
Me.cmdAdmin.Enabled = True
Else
Me.cmdAdmin.Enabled = False
End If

Exit_Form_Open:
Exit Sub

Err_Form_Open:
MsgBox Err.Description
Me.Visible = True
Resume Exit_Form_Open

End Sub

I WOULD LIKE TO ADD A SECOND ACCESS NUMBER TO THE CODE IE:


If User.AccessID = 1 2 Then
BUT I CANT SEEM TO WORK OUT THE CODE TO DO THIS ANY HELP WILL BE APPRECIATED

THANKS

ROB

 

[Pauldohert]

Use Select Case

Select Case User.AccessID
Case 1,2
Me.cmdAdmin.Enabled = True
Case Else
Me.cmdAdmin.Enabled = False
End Select

 

[minder]

THANK YOU YOU ARE A LIFE SAVER!!!!
That worked a treat thank you very much i had been trying to sort it out for hours

rob