Expand|Select|Wrap|Line Numbers
- Dim STDOCNAME As String
- Dim stuser_login As String
- Cmb_User.SetFocus
- Setrs = Me.RecordsetClone = Me![Cmb_User] & "'"
- Me.Bookmark = rs.Bookmark
- Verify = Me.Password
- STDOCNAME = "WELCOME TO CONTRACTS MANEGEMNT SYSTEM"
- DoCmd.OpenForm STDOCNAME, , , stuser_login
- If Fld_PASSWORD = Verify Then
- If Fld_Username = Verify Then
- If UCase(Fld_Username) = "HENDRINA" Then
- If UCase(Fld_PASSWORD) = "JOD" Then
- Else
- MsgBox "Incorrect password"
- End If
- End If
- End If
- End If