OpenOffice - Error en macro

   
Vista:

Error en macro

Publicado por Yessica Brinkmann (2 intervenciones) el 29/01/2013 21:47:13
Hola,
Tengo una base de datos de gestión empresarial. Tengo una tabla clientes que tiene un campo saldo_actual.
Por otro lado, tengo un formulario de ventas, en el cual tengo un campo total, y un botón Calcular Total.
Quiero hacer una macro que al hacer clic en el botón Calcular total sume el total al campo saldo_actual total. Ya tengo una macro que calcula el total de ventas, que funciona.
Yo asigné la macro para el evento del botón: Botón del ratón soltado. A continuación escribo mi macro:
Sub ActualizarSaldoVentas (Evento)
Dim oFrm As Object
Dim oCliente As Object
Dim oTotal As Object
Dim oCon As Object
Dim oStat As Object
Dim sSQL As String
Dim oRes As Object
Dim sCliente as String
oFrm=Evento.Source.Model.Parent
oCliente=oFrm.getByName("cod_cliente")
sCliente=oCliente.getCurrentValue()
oTotal=oFrm.getByName("total")
oCon=ThisDatabaseDocument.CurrentController.ActiveConnection
oStat=oCon.CreateStatement
sSQL="UPDATE cliente SET cliente.saldo_actual = cliente.saldo_saldo_actual + "& oTotal.getCurrentValue()& " WHERE id_cliente=" & oCliente.getCurrentValue()
oRes=oStat.ExecuteQuery(sSQL)
End Sub
Al hacer clic en el botón Calcular total, me aparece el siguiente error:
Error de ejecución BASIC. There was an exception.
Type: com.sun.star.container.NoSuchElementException Message:
Le agradecería mucho una ayuda por favor.
Saludos,
Yessica
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder