Slight problem with my user check information

[cuddles]

I have a main form with several buttons that take end-users to various other forms in the database. All forms are accessible and available to my users and admins except for 1. There is a button on the main page that is a data entry button. I coded the onclick event for this button but those that have just user access can still click the button and get to this area, however the data entry form is disabled. I really would like the button to be disabled for anyone without an admin level. Here is my code. Is there a way to alter it at all?

mainform code

Private Sub Form_Load()
    Dim sPermit As String
    Dim iAccess As Integer
    Dim Ctl As Access.Control
    Me.txtUser = Environ("UserLogin")
      If IsNothing(Me.txtUser) Then
        sPermit = "ReadOnly"
    Else
        sPermit = UserSecurity(Me.txtUser)
        End If
 
    Select Case sPermit
        Case "User"
            iAccess = User
        Case "Admin"
            iAccess = Admin
        Case Else
            iAccess = ReadOnly
    End Select
    Me.txtLevel = iAccess
    Me.txtLevel.Requery
End Sub
Private Function UserSecurity(sUser As String)
  UserSecurity = DLookup("UserSecurity", "user", "UserLogin='" & Forms!switchboard!txtUser & "'")
End Function
Private Sub txtLevel_Click()
 Dim sForm As String, sType As String
    sForm = Me.lstlevel.Column(1)
    sType = Me.lstlevel.Column(2)
    Select Case sType
        Case "Form"
            DoCmd.OpenForm sForm
        Case "Report"
            DoCmd.OpenReport sForm, acViewPreview
    End Select
End Sub

data entry form code

Private Sub Form_Load()
If Forms!switchboard!txtLevel = User Then
   Me.AllowEdits = False
Else
   Me.AllowEdits = True
End If
End Sub

I can see now the problem is because the user level stuff is on the actual data entry form and needs to be associated with that button, however the button already has a click event to go to the data entry form. There is no way to do an on enter for the same command is there? or can I maybe put the if forms! statement into my main form somewhere? Or how about doing some sort of call function on my main form that looks at this code? Is that possible?

[June7]

Environ("UserLogin") gives me nothing. I have never seen that before. I use Environ("USERNAME").

Why don't you set the button not visible for non-admin users?

[cuddles]

So I should be using username, I can do that. But how do I change the on form load to make the button not visible?

[June7]

At the end of load event, something like:

Me.buttonname.Visible = (iAccess = "Admin")

Or set the button Visible property to No and only make it visible if user is Admin. So under the Case "Admin", just:

Me.buttonname.Visible = True

[cuddles]

This works perfect:

  
Private Sub Form_Load()
    Dim sPermit As String
    Dim iAccess As String
    Dim Ctl As Access.Control
    Me.txtuser = Environ("username")
    If IsNothing(Me.txtuser) Then
        sPermit = "ReadOnly"
    Else
        sPermit = GetPermission(Me.txtuser)
    End If
    Select Case sPermit
        Case "Admin"
            iAccess = "Admin"
        Case Else
            iAccess = "User"
    End Select
    Me.txtLevel = iAccess
    Me.Requery
    Me.Command1.Visible = (iAccess = "Admin")
End Sub
Private Function GetPermission(sUser As String)
    If (IsNothing(DLookup("Permissions", "User", "UserLogin='" & Forms!Switchboard!txtuser & "'"))) Then
        GetPermission = "ReadOnly"
    Else
        GetPermission = DLookup("Permissions", "User", "UserLogin='" & Forms!Switchboard!txtuser & "'")
    End If
End Function

[cuddles]

BTW, you saved me a ton of headache lengthy coding to simply hide 1 button on the main form. I read and read on user forms and user stuff and was simply thinking wow.................all that to hide 1 button?? Insane. I wanted something very simple because they want simplicity.