He creado una macro para que calcule un campo al modificar el importe en otro campo, para que se lance la macro la he asignado al suceso "Texto modificado" del campo, pero por alguna razon que no veo, me lanza el error:
Error de ejecución de BASIC.
No se encontró la propiedad o el método: DrawPage.
He hecho una busqueda por el foro, pero no doy con la solución. Quizas sea una tonteria en el codigo, pero por muchas vueltas que le doy no hay manera de que me funcione.
¿Alguna idea de como solventarlo?
Código: Seleccionar todo
Sub Calcul_Import()
Dim oAfegir As Object
Dim monedaLocal As Object
Dim importTotal As Object
oAfegir = Thiscomponent.DrawPage.Forms.getByName("Afegir_linia")
monedaLocal = oAfegir.getControl("monedaLocalJust")
importTotal = oAfegir.getControl("importJust")
importTotal.Value = monedaLocal.Value * 1.2
Exit sub
End Sub