Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Username.SetFocus
- If Username = "user1" And Password = "user1" Then
- MsgBox "Access Granted", vbInformation, "CD Shop"
- MsgBox "Welcome", vbInformation, "CD Shop"
- DoCmd.Close
- DoCmd.OpenForm "F_Switchboard"
- Else
- MsgBox "Please re-enter your Username and Password."
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement