GetListPrice error in OrderDetailsExtended form

[Dinnydannydong]

Hi,

I have a set up an OrderDetailsExtended subform on an Order Form. I have used OrderDetailsExtended Query, these were both taken from the Northwind Database. On productID I have adjusted the VBA in the after update. But I am still getting an error when I add a new product to the order.

Private Sub CustPrice_AfterUpdate()
Private Sub ProductID_AfterUpdate()
    'Initialize price and discount for each product change
    If Not IsNull(Me![ProductID]) Then
        Me![Quantity] = 0
        Me.Quantity.Locked = False
        Me![CustPrice] = GetListPrice(Me![ProductID])
        Me![Discount] = 0
 
End Sub

The GetListPrice is being highlighted in blue and I can not see how this is related to anything.

Any Help will be appreciated

warm wishes

Martin

[ADezii]

1. You cannot have two Sub-Routine Declarations withing the same Procedure as you have.
   

   Private Sub CustPrice_AfterUpdate()
   Private Sub ProductID_AfterUpdate()

2. GetListPrice() must be a 'Public' Function in a Standard Code Module.

[Dinnydannydong]

Hi Thanks for getting back to be, I presume I remove the line
Private Sub CustPrice_AfterUpdate()as I am working in the ProductID field.

In regards to the second part I do not have GetListPrice in my Products table I have CustPrice as the field I want to match to. Could you explain how I do this. Thank you for your help

[ADezii]

1. Post the Code for GetListPrice().
2. What is the exact Error you are getting for a new Order?
3. The Code you are referring to is in the AfterUpdate() Event of the Product ID Field in the Orders Subform, correct?

[Dinnydannydong]

Private Sub ProductID_AfterUpdate()
 
      If Not IsNull(Me![ProductID]) Then
        Me![Quantity] = 0
        Me.Quantity.Locked = False
       Me![CustPrice] = GetListPrice(Me![Product ID])
        Me![Discount] = 0
 
 
End Sub

That is the code you requested in number 1.
It came from where you described it in number 3.

The error message I am getting is compile error sub or function is not defined and the top of the codeis in yellow and the GetListPrice is in blue.

Thanks for all your help,

Martin

[Dinnydannydong]

[ADezii]

1. There is no [CustPrice] Field in the Record Source for the Sub-Form, Order Details Extended.
2. You have a Space in the Argument ([ProductID]) to the Function Call where there should be none:
   

   Me![CustPrice] = GetListPrice(Me![Product ID])

   should be:
   

   Me![CustPrice] = GetListPrice(Me![ProductID])