Create Login Form Access
đ Check out my grocery database, https://grocerydynamite.com/
We need a table that relates users to the level of access they have in the database. The 3 columns needed are Username, Password, and Security Level.
We need a form that lets us enter our password and check the database for validity and deny entry to invalid credentials. A VBA Macro is also needed to make this work.
The forms we need are
Admin
Login
Welcome
-Code-
Dim Userlevel As Integer
If IsNull(Me.username) Then
MsgBox “Please enter the correct username.”, vbInformation, “Username required”
Me.username.SetFocus
ElseIf IsNull(Me.password) Then
MsgBox “Please enter the correct Password.”, vbInformation, “Password required”
Me.password.SetFocus
Else
If (IsNull(DLookup("username", "UserAccount", "Username='" & Me.username.Value & "'"))) Or _
IsNull(DLookup("Password", "UserAccount", "Password='" & Me.password.Value & "'")) Then
MsgBox "Username or Password is Incorrect!", vbCritical, "Login Denied"
Me.username = ""
Me.password = ""
Me.username.SetFocus
Else
Userlevel = DLookup("[Security Level]", "UserAccount", "Username='" & Me.username.Value & "'")
If Userlevel = 1 Then
MsgBox "Access Granted... you may proceed!", vbInformation, "Authentication Succeeded"
DoCmd.RunCommand acCmdSaveRecord
DoCmd.Close
DoCmd.OpenForm "Welcome"
End If
If Userlevel = 2 Then
MsgBox "Access Granted... you may proceed!", vbInformation, "Authentication Succeeded"
DoCmd.RunCommand acCmdSaveRecord
DoCmd.Close
DoCmd.OpenForm "Admin"
End If
End If
End If
End Sub
Amazon Business American Express Card
$23.00 (as of November 20, 2024 09:18 GMT -05:00 - More infoProduct prices and availability are accurate as of the date/time indicated and are subject to change. Any price and availability information displayed on [relevant Amazon Site(s), as applicable] at the time of purchase will apply to the purchase of this product.)Zoom Certified, NexiGo N950P 4K Zoomable Webcam with Remote Control, Sony_Starvis Sensor, 5X Digital Zoom, Pro Web Camera with Dual Stereo Mics, for Zoom Skype Teams Twitch
$129.99 (as of November 20, 2024 09:18 GMT -05:00 - More infoProduct prices and availability are accurate as of the date/time indicated and are subject to change. Any price and availability information displayed on [relevant Amazon Site(s), as applicable] at the time of purchase will apply to the purchase of this product.)Amazon Basics Wired Keyboard, Full-Sized, QWERTY Layout, Black
$20.89 (as of November 20, 2024 09:18 GMT -05:00 - More infoProduct prices and availability are accurate as of the date/time indicated and are subject to change. Any price and availability information displayed on [relevant Amazon Site(s), as applicable] at the time of purchase will apply to the purchase of this product.)Introducing the NETGEAR Nighthawk M6 5G WiFi 6 Mobile Hotspot Router (MR6150), the ultimate 5G mobile internet experience.
With its powerful Qualcomm Snapdragon X55 modem and advanced Wi-Fi 6 technology, you can now enjoy fast speeds, reliable connections, and increased coverage for your mobile hotspot needs.
The Nighthawk M6 is compatible with both 4G and 5G networks, so you can take advantage of the fastest speeds available on the market.
It also features a built-in battery that provides up to 10 hours of continuous use, so you can stay connected while on the go.
Additionally, it has an intuitive touchscreen