Página 1 de 1

Dudas Macros

Publicado: Jue Mar 26, 2009 12:46 pm
por davidse
Muy buenas a todos!

Este es mi primer mensaje, asi que aprovexho para felicitar a todo el equipo por la labor de ayudar y promocionar el software libre....y bueno sin mas rodeos planteo mi problema:

Estoy haciendo una sencilla base de datos para llevar un control de licencias de programas vendidas (trabajo en una tienda de informatica). Tengo la aplicacion hecha en access, pero quiero introducirme en el maravilloso mundo de OpenOffice. Poco a poco voy aprendiendo como hacer todo, de echo ya tengo casi todo terminado, pero me he quedado estancado en los ultimos detalles que son:

* Que se abra un formulario al abrir la base de datos
* Tengo hechos unos botones para navegar entre los registros, pero quiero hacer un boton que haga la accion de salir de la aplicacion. Creo que tengo que hacer una macro para ello, pero no se como se hace

Agradeceria cualquier tipo de ayuda

Gracias de antemano

Re: Dudas Macros

Publicado: Mié Abr 01, 2009 9:30 am
por klamptax
yo también ando buscando lo que tú, y me encuentro como tú, sin información a la que recurrir, y con mas de un dolor de cabeza buscando la solucion que no encuentro, ademas de lo que tu pides también necesito la opcion de poder navegar entre formularios, me explico:

he creado formulario de clientes, empresas, ventas, presupuestos e incidencias, quiero realizar un menú principal, que enlace con los diferentes formularios, pero la verdad que no soy capaz de conseguirlo, he pensado hacerlo con macros, con una herramienta que he encontrado en este foro (Basetools), pero tampoco soy capaz, entre que no estoy muy suelto en esto de open office, y que no hay demasiada información, tengo buen futuro si! xD

se han juntado el hambre con las ganas de comer jeje, espero que tengas suerte, un saludo

Re: Dudas Macros

Publicado: Vie Jul 31, 2009 12:58 am
por exau
Hola,

Yo he usado esto:

Sub CerrarDoc()

If HasUnoInterfaces(ThisDatabaseDocument, "com.sun.star.util.XCloseable") Then
ThisDatabaseDocument.close(true)
Else
ThisDatabaseDocument.dispose
End If

Dim BDDoc As Object

'DBDoc=Event.Source.Parent.Parent.Parent
' BDDoc=ThisDatabaseDocument
' BDDoc.store()
' BDDoc.Close(True)
' BDDoc.terminate()
' BDDoc.CurrentController.Frame.dispose()

' thisComponent.CurrentController.Frame.dispose()

End Sub

pero funciona algo extraño, es decir se cierra base, pero luego no puedo abrir nuevamente openoffice hasta que reinicie el ordenador, es decir openoffice sigue activo pero en memoria.

Para navegar entre formulario prueba a usar macros para abrir los formularios a traves de botones.

quiza esto te sirva:

Sub AbrirFormCom()
Dim Control as Object

Control = ThisDatabaseDocument.CurrentController
If ( Not Control.isConnected() ) Then
Control.connect()
End If
Control.loadComponent(com.sun.star.sdb.application.DatabaseObject.FORM, "COM",FALSE )

End Sub

COM es el nombre del formulario a que quieres navegar