I have done similar stuff a zillion times and when I get this error it usually means I've misspelled something. The following code produces the error.

Private Sub UnitsOrdered_AfterUpdate()
Dim vID As Integer
vID = Me![ProductID]

Me![UnitPrice] = DLookup("[UnitPrice]", "Products", "[ProductID] = vID")

End Sub
If I plug in Me![ProductID] for vID, I also get the error.
If I plug in an actual ID number, such as 1002, it works.

Anyone have any ideas.

Thanks,
Ray

Try:
Me![UnitPrice] = DLookup("[UnitPrice]", "Products", "[ProductID] =" & vID )


HTH RuralGuy (RG for short) acXP WinXP Pro

Me.UnitPrice = Nz(DLookup("[UnitPrice]", "Products", "[ProductID] = " & Me.vID), 0)

If vID is a number, or

Me.UnitPrice = Nz(DLookup("[UnitPrice]", "Products", "[ProductID] = '" & Me.vID & "'"), 0)

if vID is a string.


Greg Serrano
Michigan Dept. of Environmental Quality, Air Quality Division

RG & Greg ..... Thanks for the help. Problem solved.

Ray