Login form that goes by PC login

[oxicottin]

Hello, I remember seeing an example of a login form that went by the persons login name. I wanted to have a login that if your name was lets say Access Lvl 2 then you could only do certain things. I'm just curious if there was an example?

Thanks

 

[theDBguy]

Hi. Yes, there should be an example of that in the Sample Databases forum. Sorry, can't give you a link right now.

Sent from phone...

 

[Deleted member 147267]

If you're going to use the Windows user name as a login, do you really need a form? Why not like this -
- someone opens the db
- you get their login id (either Temp Vars or fOsUsername function) and DLookup the profile level via user name
- if not found, message "Sorry bud, you're not a registered user" or similar and close db
- if found, their level is now known

What you do from there with respect to checking that level when opening things or even allowing someone to see a control is a matter of preference.
I prefer to create a user object so that I can assign any property that I think is needed; e.g. usrLevel, FName, LName, emplNo etc. and retrieve that any time by referring to dbUser.

 

[jdraw]

See this video by Steve Bishop for info.

 

[theDBguy]

Hi. Yes, there should be an example of that in the Sample Databases forum. Sorry, can't give you a link right now.

Sent from phone...

Okay, back in front of a computer now... Here's a link for you. Hope it helps...

Password Login Screen with session login recording

This demo has been expanded from my earlier version to include the creation of a login session. Whereby once a user logs in a new session is created and is subsequently closed when the user logs out. As this is not split you will only ever see yourself as being logged in but the logic is there...

www.access-programmers.co.uk

 

[oxicottin]

Thanks, the info was very helpful....

 

[theDBguy]

Thanks, the info was very helpful....

Hi. Good luck. Let us know how it goes.

 

[isladogs]

Hi
As the link is to the sample database I updated from the original by David Crake, let me know if you have any questions or suggestions about the app.

 

[oxicottin]

Ok, I been messing with this login and im not sure how to go about allowing all the users that I dont have listed in my table. Here is what I wanted to do, I wanted the login to be hidden like it is on my example and if:

1. If your fOSUserLoginName is in the table and your UserSecurityType is a 2 - SuperUser then enable certain buttons.
2. If your fOSUserLoginName is in the table and your UserSecurityType is a 3 - Administrator then enable all buttons.
3. But if your fOSUserLoginName isnt in the table which makes you a 1 - StandardUser then disable certain buttons.

I cant figure out how to setup #3 in the list above on my form. Thanks!

 

[zeroaccess]

I simply make it so if it doesn't find you in the table, you can't proceed to the Home screen. Instead, you'll get a message box on clicking Login.

 

[zeroaccess]

This might give you ideas:

Private Sub Form_Load()
    DoCmd.ShowToolbar "Ribbon", acToolbarNo
    DoCmd.ApplyFilter , "[LAN ID]='" & fOSUserName & "'"
    Me.cmdUnseen.SetFocus
End Sub

Private Sub cmdLogin_Click()
On Error GoTo cmdLogin_Click_Err

    If (fOSUserName() = [LAN ID]) Then
        TempVars.Add "CurrentUserID", [User ID].Value
        Me.Visible = False
        DoCmd.OpenForm "frmHome", acNormal, "", "", , acNormal
        Exit Sub
    Else
        Beep
        MsgBox "Ask your Administrator for access to this system.", vbOKOnly, ""
    End If


cmdLogin_Click_Exit:
    Exit Sub

cmdLogin_Click_Err:
    MsgBox Error$
    Resume cmdLogin_Click_Exit

End Sub

LAN ID is a field in my Users table, which I set as the recordsource for the form. cmdUnseen is just a transparent button that I use to move the focus to.

I haven't done program-wide access changes based on privilege. Instead, I just use privilege levels at the time I need them, usually enabling/disabling something on form load or current. That could change, but it's not a high priority at the moment.

 

[oxicottin]

Thanks again fellas I got it working....

 

[isladogs]

Congratulations. Sorry I didn't reply earlier but the site had been unavailable since yesterday afternoon.