[AccessD] If .. ElseIf

Hello Group,

the code below is part of a code that i use for mailmerge.
I want to use the value chbA or chbB or chbC only when chbProduct1 = true. How must the code be changed for this?

TIA

Pedro Janssen



If chbProduct = True then
Item("ProductCode").Value = Nz(Me![txtProductCode])

ElseIf chbA = True then
Item("Number").Value = "2000"
Item("Price").Value = Nz(Me![txtA1])

ElseIf chbB = True then
Item("Number").Value = "3000" 
Item("Price").Value = Nz(Me![txtB1])

ElseIf chbC = True then
Item("Number").Value = "4000" 
Item("Price").Value = Nz(Me![txtC1])

End If