Change password form

[funkygoorilla]

Hi,
Does anyone have some quick VBA to use for a password change form? I have a form that asks for the users New Password, and an Old Password, but I need to be able to check and see if they entered the New Password in correctly. I figure you could do that by have the password fields check against eachother but I have yet to figure that out. Any help would be greatly appreciated.
FunkyG

[June7]

If it's a new password, what would it be checked against? Could they not enter whatever they want the new password to be?

[funkygoorilla]

Not really checked against anything, but checked against itself. Its a common practice when resetting a password. You type in your old one, then type in your new one twice. Then if the passwords don't match, then the program will tell you. If they do match, then the password resets. I need the VBA to compare the two new passwords to make sure they match.

[June7]

You have two textboxes to enter the new password? In the AfterUpdate event of textbox2 (or a button Click event):

If Me.textbox1 = Me.textbox2 Then
'do this
Else
'do this
End If

[funkygoorilla]

Hi June, you are probably the most helpful on this forum. Here is the code I came up with. I have a Save button that I need to save the entered password, and compare it between the two. But, the button doesnt respond.

Private Sub btnSave_Click()
If Me.pwFirst = Me.pwSecond Then
DoCmd.RunCommand acCmdSaveRecord
Exit Sub
Else
If Me.pwFirst <> Me.pwSecond Then
MsgBox "New Passwords do not match. Re-enter ." _
        & vbCrLf & "and please try again.", vbCritical, _
        "Re-enter both Passwords."
Exit Sub
End If
DoCmd.CloseForm "frmChangePasswordtest"
DoCmd.OpenForm "frmMainMenu"
End Sub

[June7]

Does the Event property of the button Click show [Event Procedure]? Both If conditions have Exit Sub so the CloseForm and OpenForm methods never run. Probably should also check that one of the boxes is not empty.

Private Sub btnSave_Click()
If Me.pwFirst = Me.pwSecond And Len(Me.pwFirst) & "" > 0 Then
    DoCmd.RunCommand acCmdSaveRecord
    DoCmd.CloseForm "frmChangePasswordtest"
    DoCmd.OpenForm "frmMainMenu"
Else
    MsgBox "New Password entries do not match. Re-enter ." _
        & vbCrLf & "and please try again.", vbCritical, _
        "Re-enter both Passwords."
End If
End Sub

[funkygoorilla]

Hi, Ok, I got the code to work now. But, when I enter a password in each field, it will take if one is using capitals and the other is not. Is this a true comparison? Also, is there code that will save one of the entries from one of the entry fields to the table? Hopefully this makes sense.

[June7]

Access and VBA are not case sensitive when matching data. Forcing case sensitivity in data comparison is not something I have dealt with. I suggest this is a non-issue and ignore it or Google the topic and see if you can find someone has dealt with this.

[funkygoorilla]

OK thanks again for all your help. I will continue Googling, and also post the question in the VBA forums. FunkyG