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