Consulting

Results 1 to 3 of 3

Thread: Code to change user login password?

  1. #1
    VBAX Regular
    Joined
    Jun 2010
    Posts
    58
    Location

    Code to change user login password?

    hi all,
    I have one table which contain multiple user records.I wanted to provide change password option to the user.
    In Suppose I have enter username , password in login page and when i click on change password button the new screen will be open which contain User name,old password,new password and confirm password.
    I user name textbox login user name should be display in a readable mode .so,user can only enter old,and new password and click update.that new password will update in a database.I have some code but its not functioning properly.
    If any one have some code please share with me.

    thanks.

  2. #2
    Quote Originally Posted by bunty
    hi all,
    I have one table which contain multiple user records.I wanted to provide change password option to the user.
    In Suppose I have enter username , password in login page and when i click on change password button the new screen will be open which contain User name,old password,new password and confirm password.
    I user name textbox login user name should be display in a readable mode .so,user can only enter old,and new password and click update.that new password will update in a database.I have some code but its not functioning properly.
    If any one have some code please share with me.

    thanks.
    I would use an Append query to update the data.

    If you have created you own Security system, then my code or anyone else's custom code will not work with yours unless you design yours to be identical.

    Are you experienced/expert enough with VBA that you can figure out VBA code without any help? If so, I can post some code snippets for you to analysis and figure out so that you can write your own code.

    If you do not feel like you are experienced/expert enough to understand VBA code written by others, I would recommend that you post the VBA code you are using so we can help you debug it.
    Boyd Trimmell aka HiTechCoach
    Microsoft Access MVP -2010-2015

    Programming: Nine different ways to do it right, a thousand ways to do it wrong.
    Binary--it's as easy as 1-10-11

  3. #3
    VBAX Regular
    Joined
    Jun 2010
    Posts
    58
    Location
    Hi HiTech..
    First thanks for your response.yes I am not an expert in Vba.I just started to work on that.
    I wanted to shere my file with you but the size big.Here I am posting you my login page code.what i wrote AND User table field name User_Id,Last_name,First_name,Email_Id,Password,status,User_Type.
    [VBA]Option Compare Database
    Private intLogonAttempts As Integer

    Private Sub cmdCancel_Click()
    Form_frmLogon.Visible = False
    'Unload Form_frmLogon
    End Sub

    Private Sub cmdChangePassword_Click()
    If Me.txtPassword.Value = DLookup("User_ID", "User", "[User_Id]='" & Me.txtUserId.Value & "'") Then

    User_Id = Me.txtUserId.Value

    'Close logon form and open change password screen

    DoCmd.Close acForm, "frmLogon", acSaveNo
    DoCmd.OpenForm "ChangePassword"

    Else
    MsgBox "Password Invalid. Please Try Again", vbOKOnly, "Invalid Entry!"
    Me.txtPassword.SetFocus
    End If
    End Sub




    Private Sub cmdOK_Enter()

    End Sub

    Private Sub Form_Open(Cancel As Integer)
    'On open set focus to combo box
    Me.txtUserId.SetFocus
    End Sub

    Private Sub txtUser_Id_AfterUpdate()
    'After selecting user name set focus to password field
    Me.txtPassword.SetFocus
    End Sub

    Private Sub cmdOK_Click()

    'Select Case Me.Frame30
    'Case 1
    ' Form_Search.Visible = True
    'Case 2
    ' Form_Admin.Visible = True
    'End Select

    'End If
    'Check to see if data is entered into the UserName combo box

    If IsNull(Me.txtUserId) Or Me.txtUserId = "" Then
    MsgBox "You must enter a User Name.", vbOKOnly, "Required Data"
    Me.txtUserId.SetFocus
    Exit Sub
    End If

    'Check to see if data is entered into the password box

    If IsNull(Me.txtPassword) Or Me.txtPassword = "" Then
    MsgBox "You must enter a Password.", vbOKOnly, "Required Data"
    Me.txtPassword.SetFocus
    Exit Sub
    End If

    'Check value of password in tblEmployees to see if this matches value chosen in combo box
    '----------------12/07/10-------------------------
    ' If Me.rdNormalUser.Section = True Then


    If Me.txtPassword.Value = DLookup("Password", "User", "[User_Id]='" & Me.txtUserId.Value & "'") Then

    User_Id = Me.txtUserId.Value

    'If Me.rdNormalUser.Section = True Then
    If Me.rdNormalUser.Section = True Then


    'Close logon form and open search screen

    DoCmd.Close acForm, "frmLogon", acSaveNo
    'DoCmd.OpenForm "Search"
    Else
    ' If Me.rdAdmin. Then
    ' DoCmd.Close acForm, "frmLogon", acSaveNo
    ' DoCmd.OpenForm "Admin"

    ' Else
    'MsgBox "Password Invalid. Please Try Again", vbOKOnly, "Invalid Entry!"
    Me.txtPassword.SetFocus
    ' End If
    'End If
    End If
    Select Case Me.Frame30
    Case 1
    Form_Search.Visible = True
    Case 2
    Form_Search.Visible = False
    Form_Admin.Visible = True
    End Select


    '----------------12/07/10-------------------------

    'If User Enters incorrect password 3 times database will shutdown

    intLogonAttempts = intLogonAttempts + 1
    If intLogonAttempts > 3 Then
    MsgBox "You do not have access to this database. Please contact your system administrator.", vbCritical, "Restricted Access!"
    Application.Quit
    End If
    End If

    End Sub

    Private Sub cmdReset_Click()
    On Error GoTo Err_cmdReset_Click


    Screen.PreviousControl.SetFocus
    DoCmd.FindNext

    Exit_cmdReset_Click:
    Exit Sub

    Err_cmdReset_Click:
    MsgBox Err.Description
    Resume Exit_cmdReset_Click

    End Sub

    [/VBA]
    Please find the attachment screenshot of change password form and login page.

    Thanks..

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •