Ciao a tutti,
ho un problema in un form creato in libreoffice Base a cui ho associato alcune macro. La macro riportata qua sotto serve per leggere il valore presente in un campo (frm1.GetByName("fmtcontrovalore")), moltiplicarlo per -1 e inserire il risultato in un altro campo (importo.Text = controvalore) di un differente subform. Entrambi i campi sono di tipo “Formatted field”.
Quando premo il bottone a cui è associata la macro vedo apparire il valore corretto nel campo di destinazione.
Questa subform a sua volta deve essere compilata nei suoi altri campi per inserire un record nel database. Quando inserisco il record però il campo riempito dalla macro riporta il valore “0,00”, come se fosse vuoi.
Qualcuno ha qualche suggerimento?
Grazie in anticipo
Sub compila_importo_con_totale
Dim frm, frm1, frm2
frm=ThisComponent.Drawpage.Forms.getByName("MainForm")
frm1=frm.getByName("sfrm_fattura")
controvalore = -1 * frm1.GetByName("fmtcontrovalore").getCurrentValue()
frm2 = frm1.getByName("fmr_inserimento_timbro")
importo =
frm2.getByName("frm_importo")
importo.Text = controvalore
End Sub