Run Time Error 2645

[Mohamed]

Hi

Please can anyone help.



I get the following error when trying to excute the code below

"Run-Time Error 2645

Microsoft Access can't find the field '|' referred to in your expression"

Below is the code

Private Sub Command111_Click()
Me.Encrpytion_Password = DLookup("[Password]", "[Tableencryptionpassword]", "[EncryptionID] = " & Nz([EncryptionID], 0))
End Sub


I have checked the spelling of the all the fieldnames and they are correct.

Any help would be much apprecitaed.

Thanks

[orange]

You have different spellings of "encryption"...
Me.Encrpytion_Password
I think you have an unknown field in " & Nz([EncryptionID], 0))". Is this a field picked up from your form? Should it be & Nz(Me.EncryptionID, 0))? If you're getting this from a textbox, it would be a string, not a numeric, as i see it.

Do you use Option Explicit in your vba?
Open table "Tableencryptionpassword" and see what values exist.

What testing have you done on this aspect of your application?

[Mohamed]

Hello
I have managed to get further now.

I dont get any coding errors now when I press the command button. However when clicking on the button it does not seem to be populating the field with a value from the table.

Below is the code

Private Sub Command112_Click()
Me.lngEncryption_Password = DLookup("Password", "[tblpasswords]", "Password = '" & Nz(EncryptionID, 0) & "'")
End Sub

Again, any help will be much appreciated.
Thanks

[orange]

it does not seem to be populating the field with a value from the table.

What field exactly are you trying to populate? Can you describe the process involved in a little more detail?

Add this line - for debugging purposes - right before the End Sub line

Debug.Print "Me.lngEncryption_Password is " & Me.lngEncryption_Password

[Mohamed]

Thanks for your help guys

I'm almost there. I have used your code. I am now able to populate a value into the field from tblpasswords. but when i add a new record into the database and press the command button it always chooses the top value from tblpasswords. I would like it to choose the next value from the table tblpasswords.

Any ideas how?

My code is below


Private Sub Command111_Click()
Me.lngEncrpytion_Password = DLookup("[Password]", "[tblpasswords]", "EncryptionID = Password = '" < myknowngoodpassword > "'")
End Sub

Thanks