Change VBA code from a form.

[vito1010]

I have some VBA code: ("password" is the password. In real life it's something else).



Private Sub Command2_Click()
If Me.TextBoxPassword = "password" Then
DoCmd.RunMacro "Calculations.GoodPW"
Else
DoCmd.RunMacro "Calculations.BadPW"


End If
End Sub




If I wanted to add a Change Password form for the end user, is there a way to do that from what I have?

Thanks
Vito

[June7]

You need a user table for storing their username and password.

[vito1010]

I had a feeling I'd have to do something like that. There is no username, so I would only need to store the password in a table.
So then the line would read:
If Me.TextBoxPassword = [tblPassword.password] Then

Is that the correct format?

Thanks,
Vito

[June7]

Not quite. Can't refer directly to table that way. If the table is the form's RecordSource and the table has only one record:

If Me.TextBoxPassword = Me!Password Then

[Ruegen]

You can have a drop down combo box of users (first column ID field) then when they select it use a dlookup() function to look up the table and get the password from the password field of that matching ID row

then if the password doesn't match that - do something else.

Note dlookup is a little slow sometimes.

You can even have another 3rd column in the combo box but hidden with 0 width which is the password field and then see if the text box where they type the password in matches the column 3

if me.txtPassword = me.comboName.column(2) then
msgbox "yay correct password, now do stuff"
else
msgbox "incorrect password, now do stuff"
end if

column index starts from 0 so you need go, 0 - 2