Password Protecting Buttons

[Ollie_3670]

I'm hoping to password protect the Access 2007 application using a automatic start up form with a password to allow people to continue to the main menu.

I'm hoping to have two levels of password, an admin and regular user. I was hoping to hide certain buttons and labels to the regular users (such as staff information).

Is it possible to do this? Or will I have to duplicate forms and depending on the password send the user to a different side of "the tree". Which will be far from ideal..but feasible..just!

Thanks !

 

[vbaInet]

Check the user's rights against your "users & permissions" table, then set the Visible property of the command button accordingly using VBA

 

[Ollie_3670]

Right great, I thought that would be the way if any. I'll implement all the buttons now and google the VBA code at a later date! Thanks!

 

[vbaInet]

You're welcome. An alternative approach would be to set the button's Enabled property instead? Or you actually don't want them visible/invisible?

 

[Ollie_3670]

Temptation is a horrible thing! I'd prefer them not to know what they could see, if you catch my drift!

Unless it's substantially easier to do, i.e. with minimal code. Then I'll just pass it off as an oversight if anyone asks

 

[vbaInet]

Same length of code I would imagine. It's all up to you as to how you want it represented, as long it doesn't mess with the layout of your other controls - in terms of having to move them whilst changing the Visible property.

Naturally, you only hide sections of a db or controls that are not relevant to the user and you disable controls that the user should not have access to. Just a rule-of-thumb most people would follow.

Good luck.

 

[Ollie_3670]

What's the general idea with the code? Is it something like:

Password = PasswordTextBox

if Password = Admin then
ViewStaffPayrollButton = ViewstaffPayrollButton.Enabled

(NB: Obviously in VBA not pseudocode)

 

[vbaInet]

I would say check against the UserGroups field rather than password. There should be three columns, something like: Username, Password, UserGroup. Your UserGroup would contain "Admin" and "User". So with that in mind the syntax would be like:

Dim userGrp as string

userGrp = DLookup("[UserGroup]", "NameOfSecurityTable", "[UserName] = '" & user & "'")
If Lcase(userGroup) = "user" Then
     button1.visible = False
Else
    button1.visible = True
End If

 

[Ollie_3670]

I see! You've been a great help, thanks