Which line gives the error? If you change all lines containing "getByName" with something like
If oFrm.hasByName("cod_cliente") Then oCliente=oFrm.getByName("cod_cliente") Else Print "Cannot find cod_cliente" Exit Sub End If What happens? On 01/30/2013 04:56 AM, Yessica Brinkmann wrote:
Hello, I have a database of business management. I have a customer table that has a field saldo_actual. On the other hand, I have a sales form, in which I have a total field, and a button Calculate Total. I want to make a macro that when clicking on the Calculate Total button to add the total saldo_actual field. I assigned the macro to the button event: Mouse button released. Then I write my 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 Clicking on the button Calculate total, I get the following error: BASIC runtime error. There was an exception. Type: com.sun.star.container.NoSuchElementException Message: I would appreciate very much a help please. regards, Yessica
-- Andrew Pitonyak My Macro Document: http://www.pitonyak.org/AndrewMacro.odt Info: http://www.pitonyak.org/oo.php