PDA

View Full Version : Solved: Array Query



defcon_3
01-12-2012, 10:26 PM
A lil help guys. I want only several person to access the cPanel form i created not all the people that access the workbook. Only those names in the array will able to see the form, i use Environ("username") to determine the user.

This code always give me a mismatch error:


Public Sub Auto_Open()

Dim User As Variant
User = Array("name1", "name2", "name3", "name4")

If Environ("username") = Access Then
frmcPanel.Show
Else
Exit Sub
End If

End Sub



Thank you.

mikerickson
01-12-2012, 10:58 PM
Public Sub Auto_Open()

Dim User As String
User = "name1;name2;name3;name4;"

If CBool(InStr(1, User, Environ("username") & ";")) Then
frmcPanel.Show
Else
Exit Sub
End If

End Sub

defcon_3
01-12-2012, 11:49 PM
I was using ElseIf before but its quite a long code.
Thank you.