Combo box to update other fields.

[Scott Viney]

G'day All,

I have a sub form called sfrmCustomersQuotationDetails that displays all the
records for a certain client and quote.

In the subform I have a combo box that can be used to select the product for
the quote. What I want to happen is when the user selects this combo box
and picks an product the default price and tax values are written into
fields in the quote details. I have created and afterupdate event for the
combo box, but dont know how to code it to do this. This is abit out of my
league at the moment.

Private Sub Combo13_AfterUpdate()

frmCustomersQuotationDetails!sfrmCustomersQuotationDetails![QuotationProduct
VRUnit] =
frmCustomersQuotationDetails!sfrmCustomersQuotationDetails!Combo13.Column(3)

frmCustomersQuotationDetails!sfrmCustomersQuotationDetails![QuotationProduct
IVA] =
frmCustomersQuotationDetails!sfrmCustomersQuotationDetails!Combo13.Column(4)
End Sub

If anyone can help me, cheers

Scott V

 

[tina]

well, looks like your concept is correct. double check that you have the
correct columns indicated, keeping in mind that combo box columns are
zero-based, meaning the first column is (0), the second column is (1), etc.
you don't need to explicitly reference the entire form hierarchy, though.
try

Private Sub Combo13_AfterUpdate()

With Me
.QuotationProductVRUnit = .Combo13.Column(3)
.QuotationProductIVA = .Combo13.Column(4)
End With

End Sub

note: if there are no spaces in a field name, you don't need to use
brackets around it.

hth

G'day All,

I have a sub form called sfrmCustomersQuotationDetails that displays all the
records for a certain client and quote.

In the subform I have a combo box that can be used to select the product for
the quote. What I want to happen is when the user selects this combo box
and picks an product the default price and tax values are written into
fields in the quote details. I have created and afterupdate event for the
combo box, but dont know how to code it to do this. This is abit out of my
league at the moment.

Private Sub Combo13_AfterUpdate()

frmCustomersQuotationDetails!sfrmCustomersQuotationDetails![QuotationProduct
VRUnit] =
frmCustomersQuotationDetails!sfrmCustomersQuotationDetails!Combo13.Column(3)frmCustomersQuotationDetails!sfrmCustomersQuotationDetails![QuotationProduct
IVA] =
frmCustomersQuotationDetails!sfrmCustomersQuotationDetails!Combo13.Column(4)
End Sub

If anyone can help me, cheers

Scott V

 

[Scott Viney]

Gracias Tina,

I used you coding, I must of spelt something incorrectly, because it now
works as a charm.

Have a good one,
Scott

well, looks like your concept is correct. double check that you have the
correct columns indicated, keeping in mind that combo box columns are
zero-based, meaning the first column is (0), the second column is (1), etc.
you don't need to explicitly reference the entire form hierarchy, though.
try

Private Sub Combo13_AfterUpdate()

With Me
.QuotationProductVRUnit = .Combo13.Column(3)
.QuotationProductIVA = .Combo13.Column(4)
End With

End Sub

note: if there are no spaces in a field name, you don't need to use
brackets around it.

hth

G'day All,

I have a sub form called sfrmCustomersQuotationDetails that displays all the
records for a certain client and quote.

In the subform I have a combo box that can be used to select the product for
the quote. What I want to happen is when the user selects this combo box
and picks an product the default price and tax values are written into
fields in the quote details. I have created and afterupdate event for the
combo box, but dont know how to code it to do this. This is abit out of my
league at the moment.

Private Sub Combo13_AfterUpdate()

frmCustomersQuotationDetails!sfrmCustomersQuotationDetails![QuotationProduct

VRUnit] =

frmCustomersQuotationDetails!sfrmCustomersQuotationDetails!Combo13.Column(3)frmCustomersQuotationDetails!sfrmCustomersQuotationDetails![QuotationProduct

IVA] =

frmCustomersQuotationDetails!sfrmCustomersQuotationDetails!Combo13.Column(4)

End Sub

If anyone can help me, cheers

Scott V

 

[tina]

you're welcome, glad you got it to work.

Gracias Tina,

I used you coding, I must of spelt something incorrectly, because it now
works as a charm.

Have a good one,
Scott

well, looks like your concept is correct. double check that you have the
correct columns indicated, keeping in mind that combo box columns are
zero-based, meaning the first column is (0), the second column is (1), etc.
you don't need to explicitly reference the entire form hierarchy, though.
try

Private Sub Combo13_AfterUpdate()

With Me
.QuotationProductVRUnit = .Combo13.Column(3)
.QuotationProductIVA = .Combo13.Column(4)
End With

End Sub

note: if there are no spaces in a field name, you don't need to use
brackets around it.

hth


all
the product
for of
my

frmCustomersQuotationDetails!sfrmCustomersQuotationDetails![QuotationProduct

VRUnit] =

frmCustomersQuotationDetails!sfrmCustomersQuotationDetails!Combo13.Column(3)frmCustomersQuotationDetails!sfrmCustomersQuotationDetails![QuotationProduct

IVA] =

frmCustomersQuotationDetails!sfrmCustomersQuotationDetails!Combo13.Column(4)