RunTime error: 3075 - Dlookup Issue

[Adigga1]

Hello Experts,

I'm about to go grey with this dlookup statement:

I'm trying to run a dlookup statement, I have the correct expression string, etc. but when I run it under the Immediate window for testing I'm getting the runtime error.

Scanerio:

I'm calling an associated Price value (Currency) for a Code (text) from a Query in order to have an auto population in the fields; here is the code:

 Private Sub CPTcode_AfterUpdate()

[SIZE=3][FONT=Times New Roman]  Charge = DLookup("Charge", "Q_CPT-phys test1", "CPTcode= '& CPTcode'")[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]End Sub [/FONT][/SIZE]

It only populates if i replace the & CPTcode with an actual value. This is pulling from the same Subform. Immediate window for testing I'm getting the runtime error.

Scanerio:

I'm calling an associated Price value (Currency) for a Code (text) from a Query in order to have an auto population in the fields here is the code:



Please Help

Adigga1

 

[RuralGuy]

Try:
Charge = DLookup("Charge", "[Q_CPT-phys test1]", "CPTcode= ' " & CPTcode " ' ")
...if it is a string value. (Extra spaces added for visibility)

 

[Adigga1]

Try:
Charge = DLookup("Charge", "[Q_CPT-phys test1]", "CPTcode= ' " & CPTcode " ' ")
...if it is a string value. (Extra spaces added for visibility)

Thank you for your suggestion; I will try this code and follow-up with the results.

Adigga1

 

[Adigga1]

RG,

When I ran the code I got the Compile error: message; it states: "Expected: list separator or )".


Adigga1

 

[Kiwiman]

Hoiwzit

A missing & sign in rurals suggestion

if CPTcode a string try

Charge = DLookup("Charge", "[Q_CPT-phys test1]", "CPTcode= '" & CPTcode & "'")

if CPTCode a number try

Charge = DLookup("Charge", "[Q_CPT-phys test1]", "CPTcode= " & CPTcode)

 

[RuralGuy]

RG,

When I ran the code I got the Compile error: message; it states: "Expected: list separator or )".


Adigga1

Yep! KiwiMan caught it. I missed that 2nd "&". Sorry.

 

[Adigga1]

Thank you soooo much for your patience with me guys, it compiled and ran successfully.

Again, thank you for your assisstance with this issue

Adigga1

 

[RuralGuy]

Glad we could help.