button access

[slimjen]

all. I have a form with buttons to access forms. I don't want a certain group of users to access this form. I have a login form with user name password and dept. Upon successful password; the user can access the switchboard which has three buttons to gain access to another form. I tried using a dlookup:

Dim strDept As String

If strDept = DLookup("strEmpName", "tblUsers", "strDept="HR" )Then
msgbox "you don't have access"

Besides the problem that this code doesn't work; the login form is closed by the time the user clicks the button. This is why i didn't reference the form (Forms!frmLogon!cboEmployee) in the code.


Help please
Thanks

[June7]

One solution is to store the user login information - either the dept or username or both - someplace where code can refer to it at any time. I do this by populating textbox on a 'Main Menu' form that never closes. Then code could reference that form textbox.

Another option is a Global/Public declared variable. Problem with this is when debugging if code execution is interrupted the variable loses its value.

Otherwise, you have to pull their username from the network every time you need to check user authorizations.

If DLookup("strDept", "tblUsers", "UserName='" & Environ("USERNAME") & "'") = "HR" Then

[slimjen]

what if I hide the logon form instead of closing it. Then I can refer to it in the button code. Do you think this would work?

[June7]

Yes, a hidden form can still be referenced.

[slimjen]

Got it. Thanks