Advertisement
Guest User

Untitled

a guest
Aug 18th, 2017
204
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Private Sub Command35_Click()
  2. If UserName = "Snappit" And Password = "polaroid" Then
  3. DoCmd.Close
  4. DoCmd.OpenForm ("Form")
  5. Else
  6. MsgBox "Sorry, those credentials are incorrect.", vbCritical
  7.  
  8. End If
  9. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement