Calculating price totals 2

[mishmish]

Hi,

I have a shopping cart form with a series of orders and their respective prices. The orders and prices are in a subform. I want to put a total price text box underneath this subform that will calculate all of the prices from the subform.

Does anyone know how I would do this?

Thanks for any help,
mishmish

 

[sko]

Place the textbox in the subform's footer section and try using the DSum function in the ControlSource property.

 

[mishmish]

Hi,

Thanks for your response. Yeah, the sum is totaling my currency values. However, it's not converting the values to a currency datatype in my textbox. For example, I'm getting "160" and not "$160.00." The "ExtendedPrice" field below in my code is a Currency datatype.

This is my code:
Dim totalX As Currency
totalX = DSum("[ExtendedPrice]", "QuoteLine&quot
txtTotalPrice = totalX


Any ideas?

Thanks again,
mishmish

 

[ImpMan]

Not sure why you need the code,

in the subform place a textbox in the footer (call it txtTotal), then place this in its control source
=Sum([Price])

enure the box is format is set to currency.

If you want this value on the main form instead of the sub form. Then hide the footer of the subform and reference the value in the hidden text box in the main form.

Therefore the textbox controlsource on the main would be set to:
=[subfrmName].[Form]![txtTotal]

 

[mishmish]

Hi,

Thanks. Good tips. That worked.

mishmish