Login Forms

Assuming your password is set to a default like "Password".

You don't say if the username is entered freely or chosen from a dropdown list. I'm assuming it's entered freely (txtUser for this example).

In the textbox where the password is entered (txtPassword for this example) create an After Update event using the following code.

Thank you for your response. I have tried the code, modifying it to match my data and I can't seem to get it to work.

The username is chosen from a dropdown list named Combo10. My textbox for the password entry is named Text12.

I will attach my modified version of the code so you can see what is wrong with it.

I keep getting a syntax error for the line with the DLookup function, as well I forgot to mention in my first message I am using Access 2003.

Also can this code be attached to the OnClick event of the command button that I am using to verify the password and enter the record form?

Thank you for the help.

Here is my code:

Assuming your password is set to a default like "Password".

You don't say if the username is entered freely or chosen from a dropdown list. I'm assuming it's entered freely (txtUser for this example).

In the textbox where the password is entered (txtPassword for this example) create an After Update event using the following code.

Expand|Select|Wrap|Line Numbers

1.  
2. Private Sub txtPassword_AfterUpdate()
3. Dim pswd As String
4. Dim confirm As String
5.  
6.   pswd = DLookup("[PasswordField]","TableName", "[UserNameField]='" & Me.txtUser & "')"
7.  
8.   If pswd = "password" Then
9.  
10. EnterPassword:
11.  
12.     pswd = InputBox "Please enter a new password", "Change Password"
13.     confirm = InputBox "Please enter again for confirmation", "Confirm Password"
14.     If pswd <> confirm Then
15.      MsgBox "Passwords don't match. Please try again.", vbOKOnly
16.      GoTo EnterPassword
17.     Else
18.      DoCmd.RunSQL "UPDATE tablename SET [passwordfield]= '" & Me.pswd & "' WHERE [UserNameField]='" & Me.txtUser & "';"
19.     End If
20.   Else
21.      'Your normal password checking code here
22.   End If    
23.  
24. End Sub
25.  
26.  

Also can this code be attached to the OnClick event of the command button that I am using to verify the password and enter the record form?

Yes it can.

pswd = DLookup("[strEmpPassword]", "strEmployees", "[IngEmpID]='" & Me.Combo10. & "')"

Firstly, you have a dot after combo10 so remove it.
Secondly, if the value in [lngEmpID] is a number (I suspect it is) then remove single quotes as follows. They are only required when comparing strings.

pswd = DLookup("[strEmpPassword]", "strEmployees", "[IngEmpID]=" & Me.Combo10 & ")"

O.K. So, I tried attaching the code to my OnClick event of my command button and I keep getting a Compile Error: syntax error pop up. I also have recieved the message Compile Error: Expected: List Separator or ) when trying to fix it.

I will attach the full code that is attached to my command button

Yes it can.



Firstly, you have a dot after combo10 so remove it.
Secondly, if the value in [lngEmpID] is a number (I suspect it is) then remove single quotes as follows. They are only required when comparing strings.

pswd = DLookup("[strEmpPassword]", "strEmployees", "[IngEmpID]=" & Me.Combo10 & ")"

Sorry this is me again. My brain is dead today

Change ...

pswd = DLookup("[strEmpPassword]", "strEmployees", "[IngEmpID]=" & Me.Combo10 & ")"

to ...

pswd = DLookup("[strEmpPassword]", "strEmployees", "[IngEmpID]=" & Me.Combo10)

O.K., now I am getting a "Compile error: syntax error" for the line:

pswd = InputBox "Please enter a new password", "Change Password"

Sorry this is me again. My brain is dead today

Change ...

pswd = DLookup("[strEmpPassword]", "strEmployees", "[IngEmpID]=" & Me.Combo10 & ")"

to ...

pswd = DLookup("[strEmpPassword]", "strEmployees", "[IngEmpID]=" & Me.Combo10)

O.K., now I am getting a "Compile error: syntax error" for the line:

pswd = InputBox "Please enter a new password", "Change Password"

You left out the brackets

pswd = InputBox ("Please enter a new password", "Change Password")

You left out the brackets

pswd = InputBox ("Please enter a new password", "Change Password")

Or to be more accurate. I left them out.

Sorry...

Mary

now the code stops running at this line with the error message: "method or data member not found" and highlights the pswd part. But the message box is not appearing when I enter the default password, and I am under the impression that it should be appearing regardless of the error in the line below as it occurs after the password would be changed?

DoCmd.RunSQL "UPDATE strEmployees SET [EmpPassword]= '" & Me.pswd & "' WHERE [IngEmpID]='" & Me.Combo10 & "';"


Thanks

Or to be more accurate. I left them out.

Sorry...

Mary

now the code stops running at this line with the error message: "method or data member not found" and highlights the pswd part. But the message box is not appearing when I enter the default password, and I am under the impression that it should be appearing regardless of the error in the line below as it occurs after the password would be changed?

DoCmd.RunSQL "UPDATE strEmployees SET [EmpPassword]= '" & Me.pswd & "' WHERE [IngEmpID]='" & Me.Combo10 & "';"


Thanks

I understood the pswd was the global string variable that the user entered password was stored in. In which case you don't want the Me. part. That is only used for controls on the form.

Mary

Now it executes all the way to the very end, and then there is an error "Block If Without End If" and it highlights the End Sub command, but I can't see where the incongruency in the code is?

Thanks

Charlie

I understood the pswd was the global string variable that the user entered password was stored in. In which case you don't want the Me. part. That is only used for controls on the form.

Mary

Now it executes all the way to the very end, and then there is an error "Block If Without End If" and it highlights the End Sub command, but I can't see where the incongruency in the code is?

Thanks

Charlie

No problem Charlie.

You have to go through all the code when this happens because the compiler can't tell where the error occurred and just goes to the end of the function or procedure.

In your case the following If statement has no End If.

Forgive my ignorance, but where would the End If go then?

No problem Charlie.

You have to go through all the code when this happens because the compiler can't tell where the error occurred and just goes to the end of the function or procedure.

In your case the following If statement has no End If.

Expand|Select|Wrap|Line Numbers

1.  
2. If pswd = "Password" Then
3. EnterPassword:
4.  
5.     pswd = InputBox "Please enter a new password", "Change Password"
6.     confirm = InputBox "Please enter again for confirmation", "Confirm Password"
7.     If pswd <> confirm Then
8.        MsgBox "Passwords don't match. Please try again.", vbOKOnly
9.        GoTo EnterPassword
10.     Else
11.        DoCmd.RunSQL "UPDATE strEmployees SET [strEmpPassword]= '" & Me.pswd & "' WHERE [IngEmpID]='" & Me.Combo10 & "';"
12.     End If
13. Else
14.      'Check value of password in tblEmployees to see if this
15.      'matches value chosen in combo box
16.  
17.  
18.  

Forgive my ignorance, but where would the End If go then?

Trying to follow your code I would say just before End Sub.

Hmmmm......I put the End If in and now it gives me a run time error 13 mismatch message and in the debugger highlights the line:

pswd = MsgBox("Please enter a new password", "Change Password")

any ideas??

Trying to follow your code I would say just before End Sub.

Hmmmm......I put the End If in and now it gives me a run time error 13 mismatch message and in the debugger highlights the line:

pswd = MsgBox("Please enter a new password", "Change Password")

any ideas??

Where and as what kind of variable have you declared pswd. I don't see it declared in the current code.

Mary

I am not really sure....I have given up on this code and have since taken the "easy" way out and have just created a command button that opens another form that the employees can click. This other form is linked to the password table, so they can change it right in the table via the form. I don't know if this is a good way to do it, but I guess it works for now?

Thanks for your continued help and patience though Mary.

Charlie

Where and as what kind of variable have you declared pswd. I don't see it declared in the current code.

Mary

Charlie,

So near to the end, is it a good time to give up?
Try posting your whole procedure exactly as it is now for me please.
I'm sure we can get this working for you (well pretty confident anyway).
Some of these syntax problems can be hard to find but I've had some experience with some doozers in my time - lets give it a try.

A new question was added to this thread as a hijack. In case anyone's interested, the new (related) question can be found at Error 2001: You Canceled the Previous Operation.