password to forms

[steve111]

hi,


i have a form called departments . one that form i have 5 buttons
I want this form only to open when some logs onto the database
the buttons represent each department
1. sales
2 purchasing
etc etc


is it possible to assign a password to those buttons so each department has security to thier own form

steve

 

[CJ_London]

is it possible to assign a password to those buttons so each department has security to thier own form

yes, a number of ways, but without an explanation of what you have at the moment in the way of storing user data (e.g. username, password) there is no way to determine which is appropriate for you

A very simple way would be

 Private Sub btnSales_onClick()
  
     if inputbox("Enter Password")="password" then docmd.openform....
  
 End Sub

change "password" to that required for sales

But this is not very secure (someone from purchasing could be looking over the shoulder of someone from sales), the password is hard coded, etc

If it meets your needs, great, otherwise you need to be a lot clearer about what you require

 

[Mile-O]

Perhaps a bit more complex, but one thing I do i:

1) Have a User table. One of the fields in this will be the user's Windows ID
2) Have a query on the User table, where the criteria is based on the Windows ID (see fOSUsername() function - google it!)
3) Create a User class with properties that store information about the current user.


Therefore, I can declare globally the class module, like so:

Public ThisUser As New User

Then, in my database I can refer to my relevant properties, such as:

If ThisUser.CanViewAdminMenu Then

If ThisUser.UserLevel = ulAdministrator Then

ThisUser.Name

ThisUser.Email

etc

For basic menus, perhaps a Yes/No field would work in the User table. For more complex permissions based (i.e. Users to UserLevels to UserLevelsToPermissions to Permissions [to PermissionCategories!] then more work is involved.

 

[steve111]

hi

thanks

I put this in but got an error " argument not optional"

Private Sub Command369_Click()

If InputBox("Enter Password") = "sales" Then DoCmd.OpenForm.sales orders
End Sub

steve

 

[Mile-O]

Your issue is:

 OpenForm.sales orders

Should probably be DoCmd.OpenForm "Sales Orders"

Basically, it thinks Sales is a method of the OpenForm command and Orders is a parameter you are passing to it.

 

[steve111]

thank you that part is working ok
how do we modify it to say "wrong password " until the correct password is entered

steve

 

[spikepl]

@Mile-O, #3

I think it would be a very valuable addition to the code repository, if you could extract your login-class and examples and store it there.

 

[steve111]

hi
I have found this

rivate Sub Command370_Click()
Dim strInput As String
Dim strMsg As String
Beep
strMsg = "Please Enter the password to allow access."
strInput = InputBox(Prompt:=strMsg, Title:="Special Password")
If strInput = "steve" Then 'password is correct
DoCmd.OpenForm "sales orders"
DoCmd.Close acForm, Me.Name
Else 'password is incorrect
MsgBox "Incorrect Password!" & vbCrLf & vbLf & "You are not allowed access to the ''sales form''.", vbCritical, "Invalid Password"
Exit Sub
End If
End Sub

 

[Mile-O]

@Mile-O, #3

I think it would be a very valuable addition to the code repository, if you could extract your login-class and examples and store it there.

Perhaps I will. Would need to detach it from lots of other stuff, etc. Plus comment it for an example, etc.

 

[mjdemaris]

Thank you, Mile-O! I was just thinking about creating a user class for my new application, since I will be needing to lookup various data for permissions, and decided to use Google's Advanced Search on this site, et voila!

mjd