Losing information from a text box

[Gezza]

Hi,

I have a textbox on a form, control source is
"=DLookUp("[qry_ActionEmployee]![Name]","[qry_ActionEmployee]"," qry_ActionEmployee]![Payroll No]= [A_Employee_ID] ")".

When I run some VB code related to the form but not the textbox it returns a value of null? in the textbox.


Before the code is run the value is ok. I have tried using ".Requery" of the textbox in the code but has not worked.

Any help would be much appreciated

Gezza

[June7]

Is [A_Employee_ID] supposed to be a value supplied by the form? If so, don't include within quotes, concatenate the variable. The expression isn't really within quotes in the ControlSource, is it?

[Gezza]

This is how it is typed in the control box.
=DLookUp("[qry_ActionEmployee]![Name]","[qry_ActionEmployee]"," qry_ActionEmployee]![Payroll No]= [A_Employee_ID] ")
Yes [A_Employee_ID] is a value supplied by the form.
If I remove the quotes from the variable as it is type above it does not work. How do I concatenate it?

[June7]

Try:

=DLookUp("[qry_ActionEmployee]![Name]","[qry_ActionEmployee]"," qry_ActionEmployee]![Payroll No]='" & [A_Employee_ID] & "'")

If A_Employee_ID is a number, remove the apostrophe delimiters.

[Gezza]

Have tried that but it's given me a syntax error.
The original variable works on the form, I'm getting the result I need but once the VB code is run the value in this text box and one other returns Null. No other text boxes on the form seem to be effected?

[June7]

Need to see the code. Do you want to provide project?

[Gezza]

I can provide project, but don't know how?

[June7]

Make copy, remove confidential data, run Compact & Repair, zip if large, attach to post. The Attachment Manager is below the Advanced post editor.

[Gezza]

I think I have solved the problem, I have reset the focus on the Form and then re-queried the Text Box. This has worked.

Thanks June7 for your help. Much appreciated