adriana carrera
19 de Julio del 2004

es que estoy haciendo un programa mas o menos como caja registradora pero no se como sumar mi regitro de precio con la cantidad de articulos y mas o menos lo hago y s emultiplic apor uno com le puedo hacer ayudaaaaaaaaaaa!!!!!!!!!!!!!!!

tecniCam
19 de Julio del 2004

Adriana:

Parece ser que lo que necesitas es multiplicar la cantidad por el precio, pero no está muy claro.

Si quieres envíame el proyecto y la BD que usas y me dices que es lo que quieres y luego de dia (ahora ya es de madrugada) te lo miro y doy la solución.

O bien me lo explicas mejor de lo que lo has hecho arriba.

De todas formas ahí llevas algo de código que te puede servir:

'Operaciones de cálculo en múltiples registros
'*********************************************************
Dim OldDb As Database, NewDyn As Recordset, NewQry As QueryDef
Dim OldWs As WorkSpace
Set OldWs = DBEngine.Workspaces(0)
Set OldDb = OldWs.OpenDatabase("C:LAPERA.MDB")
'******************************************
'Calcula el Coste Total de cada operación
'******************************************
SQL = "Update Ventas Set [PrecioTotal] = [Cantidad] * [PrecioUnidad]"
Set NewQry = OldDb.CreateQueryDef("Totales", SQL)
NewQry.Execute
NewQry.Close
'**************************************
'Borra todos los registros cuyo Código = 1028
'**************************************
SQL = "Delete FROM Ventas WHERE Código = 1028"
Set NewQry = OldDb.CreateQueryDef("Borrar Frutas", SQL)
NewQry.Execute
NewQry.Close
OldDb.DeleteQueryDef ("Totales")
OldDb.DeleteQueryDef ("Borrar Frutas")
OldDb.Close