Como Sumar campos calculados
Tengo un formulario en el cual he creado campos calculados (que no están en ninguna tabla) lo que necesito hacer es sumar estos campos.
precio x cantidad = total
Necesito la sumatoria de todos los totales.
Te lo agradecería bastante me ayudaras.
precio x cantidad = total
Necesito la sumatoria de todos los totales.
Te lo agradecería bastante me ayudaras.
1 Respuesta
Respuesta de ohmygood
1
Normalmente, es muy conveniente tener como campo el total y almacenarlo, pero puedes conseguir lo que quieres abriendo la tabla y sumando uno a uno los datos.
dim db as database
dim rs1 as object
dim total as long
set db = currentdb
set rs1 = db.openrecordset("select precio, cantidad from tabla")
do
total = total + rs1("cantidad") * rs1("precio")
rs1.movenext
loop until rs1.eof
msgbox "total = " & total
db.close
set db = nothing
Para que funcione necesitas las referencias microsoft dao.
dim db as database
dim rs1 as object
dim total as long
set db = currentdb
set rs1 = db.openrecordset("select precio, cantidad from tabla")
do
total = total + rs1("cantidad") * rs1("precio")
rs1.movenext
loop until rs1.eof
msgbox "total = " & total
db.close
set db = nothing
Para que funcione necesitas las referencias microsoft dao.
