Change a lookup value according to combobox

[epardo87]

hello there,

• I have a continuous subform "Child6" with fields: PN, ProductName and Price.
• I also have a table called "Products" with the PN, ProductName, Price A and Price B.
• on the parent form i have a combobox "SaleType"
• There are also some buttons that populate the ProductName in the subform e.g. "BowlBtn" would fill up product "Bowl":

Private Sub BowlBtn_Click()
   Me.Child6.SetFocus
    DoCmd.GoToRecord , , acNewRec
    Me.Child6.Form.Product = "Bowl"
End Sub

So what I would like it to do is to have the price in the subform filled up depending on the SaleType selection,if it's "Local" it would have price A, if its "Web" it would have Price B, how could I do that?
Thanks for your time in advance!

[epardo87]

i just figured it out with this code:

Private Sub BAtunBtn_Click()


    Dim LPrice As Variant
    Dim PPrice As Variant
    
    LPrice = DLookup("[PrecioL]", "[Precios]", "[Producto]='Bowl de Atún'")
    PPrice = DLookup("[PrecioP]", "[Precios]", "[Producto]='Bowl de Atún'")
    
    Me.Child6.SetFocus
    DoCmd.GoToRecord , , acNewRec
    Me.Child6.Form.Producto = "Bowl de Atún"
    
    If Me.SaleType = "Local" Then
        Me.Child6.Form.Precio = LPrice
    Else
        Me.Child6.Form.Precio = PPrice
    End If


End Sub

[Welshgasman]

Why not do the lookup in the If construct?
Then you only have to do one and not two all the time?