RE: VBA Coding Error, DOH

[philhowell]

i'm running a simple form in access that updates a form text box with the users password when the users name is seleceted in a combo-box, but it throws up an error saying.........

run-time error 2465

i'm quite new to this so feel feel to give me any pointers

Thanks
Phil

*******************************
Below is the VBA code


Private Sub User_Change()

' define variables
Dim varX As Variant
Dim frmNewPWD
Dim frmUser
Dim frmOldPWD

frmUser = Form.ChangeLotusPWD.User.Value

varX = DLookup("[PWD]", "5_LotusPwds", "[UserName]= '" & frmUser & "'")

If IsNull(varX) Then
varX = " "
Else
End If

' update users password so it display the relevant one based on the user name selected
Forms.ChangeLotusPWD.OLDPWD.Value = varX

' ensure that the New password text box on the form is empty
Forms.ChangeLotusPWD.NEW_PWD.Value = " "

End Sub

 

[philhowell]

4got to say that it throws up the error on the line

frmUser = Form.ChangeLotusPWD.User.Value

saying it can't define it........

 

[Russell Hauf]

If this code is all behind one form (it looks like it is), and if your combo box is named "User", then you can do something like this:

varX = Me.User

(Value is the default item for a combo box, so you don't need the .Value...but you can add it if you like - it never hurts).

HTH,

Russell

 

[philhowell]

Cheers worked first time......... still not sure y tho.?

 

[Russell Hauf]

It would have worked had you changed:

frmUser = Form.ChangeLotusPWD.User.Value


To:

frmUser = Forms!ChangeLotusPWD.User.Value

-rh