Hide Button Based on User Role

[Megaduck]

I have been trying to get this to work all day it seems. Not sure what I am doing wrong.

I have a table [Employee List]. In that table I have [Employee Name] and their [Role] as fields.

Role has either Admin or User as options.

On the login form, I have a Combo box with their name, which they select based on [Employee List]. No password or anything. Real simple.

This sets a TempVar of [CurrentUserID] which I use to auto populate a form with. That part works fine.

What I want to do is show a button on the main form [Dashboard] based on that user's role. Specifically, I want to show it if they are admin.

This is what I have:

Private Sub Form_Open(Cancel As Integer)

UserLevel = DLookup("[Role]", "[Employee List]", "[Employee Name]='" & [TempVars]![CurrentUserID] & "'")

If UserLevel = "Admin" Then
    Me.Adminbtn.Visible = True
Else
    Me.Adminbtn.Visible = False
    
End If

End Sub

Any idea what I am doing wrong? Lol.

 

[theDBguy]

Hi. Where is UserLevel variable declared? Why not use a TempVar for it as well (like you did with the user's name)?

 

[Gasman]

Why not walk through the code with F8 ?

 

[Megaduck]

Hi. Where is UserLevel variable declared? Why not use a TempVar for it as well (like you did with the user's name)?

Wow.... I figured out what I did (or rather, didn't do) based on your reply. I added "Dim UserLevel As String" and it works fine.
I've been staring at this for far too long today apparently....

Thank you!

 

[Gasman]

Have a look at tip 1

https://www.fmsinc.com/microsoftaccess/modules/options/index.html

 

[isladogs]

The code looks OK but Form_Open is the wrong event for this code.
Try moving it to the Form_Load event

 

[Megaduck]

The code looks OK bot Form_Open is the wrong event for this code.
Try moving it to the Form_Load event

Okay.

 

[theDBguy]

Wow.... I figured out what I did (or rather, didn't do) based on your reply. I added "Dim UserLevel As String" and it works fine.
I've been staring at this for far too long today apparently....

Thank you!

Hi. Glad to hear you got it to work. Good luck with your project.