sub or function not defined

[foxtet]

Hi friends could you have look at on this issue.
when run it gives error sub or function not defined. Adopted from nothwind databse.

Private Sub ServiceID_AfterUpdate()
'Initialize price and discount for each product change
If Not IsNull(Me![ServiceID]) Then
Me![Quantity] = 0
Me.Quantity.Locked = False
Me![Unit Price] = GetStandardPrice(Me![ServiceID])
'Me![Discount] = 0
'Me![Status ID] = None_OrderItemStatus


'Empty Service records mean user wants to delete line item
Else
'eh.TryToRunCommand acCmdDeleteRecord
End If
End Sub


Foxtt

 

[jdraw]

Please show us the code for
GetStandardPrice()

 

[foxtet]

Function GetUnitPrice(lServiceIDID As Long) As Currency
GetUnitPrice = DLookupNumberWrapper("
[List Price]", "tblServices", "[ID] = " & lServiceID)
End Function

 

[jdraw]

Your original code is

...
Me![Unit Price] = [B]GetStandardPrice[/B](Me![ServiceID])
...

You are showing a routine called GetUnitPrice

 

[foxtet]

Hi
have a look at table structure for more details. Help me to way forward with issuing services.

Foxtet