[Resuelto]Abrir formulario automaticamente al iniciar Base
[Resuelto]Abrir formulario automaticamente al iniciar Base
Hola a todos.
El problema que tengo es que al automatizar el arranque de un formulario al inicio de Base lo hace bien pero unas macros que tengo asignadas a tres botones para que me carguen sendos formularios, me dan error.
Los pasos que sigo son :
Herramientas->Personalizar->(mi documento)->Evento (Al abrir documento) le asigno la macro AutoExec recogida en este foro y guardada en Mis macros->Standar de OOo
Si le asigno la misma macro guardada en mi documento (mis macros), no me lo automatiza. Y si arranco el formulario principal manualmente los botones me actuan bien.
Agradecere cualquier ayuda que me podais dar. Gracias de antemano
Esta es la macro de los botones, tambien recogida en este foro.
Sub AbrirFormularioProductos()
Dim Control As Object
Control=ThisDatabaseDocument.CurrentController
If (Not Control.isConnected()) Then
Control.isConnected()
End If
Control.loadComponent(com.sun.star.sdb.application.DatabaseObject.FORM,"fmrProductos",FALSE)
End Sub
El problema que tengo es que al automatizar el arranque de un formulario al inicio de Base lo hace bien pero unas macros que tengo asignadas a tres botones para que me carguen sendos formularios, me dan error.
Los pasos que sigo son :
Herramientas->Personalizar->(mi documento)->Evento (Al abrir documento) le asigno la macro AutoExec recogida en este foro y guardada en Mis macros->Standar de OOo
Si le asigno la misma macro guardada en mi documento (mis macros), no me lo automatiza. Y si arranco el formulario principal manualmente los botones me actuan bien.
Agradecere cualquier ayuda que me podais dar. Gracias de antemano
Esta es la macro de los botones, tambien recogida en este foro.
Sub AbrirFormularioProductos()
Dim Control As Object
Control=ThisDatabaseDocument.CurrentController
If (Not Control.isConnected()) Then
Control.isConnected()
End If
Control.loadComponent(com.sun.star.sdb.application.DatabaseObject.FORM,"fmrProductos",FALSE)
End Sub
Última edición por RMG el Dom Nov 22, 2009 6:37 pm, editado 2 veces en total.
OpenOffice 4.1.15 y LibreOffice 6.2.4.2 en W-10, y LibreOffice 4.1.6.2 en Open Suse 13.1(VirtualBox)
Re: Problema al brir formulario automaticamente al iniciar Base
Bueno, no he solucionado el problema pero he descubierto de que se trata.
Al abrir la base de datos, Windows crea un archivo temporal de extension .lck
Si la abro automaticamnete con la macro, esta hace que se bloquee.
Si la desconecto y abro el formulario de inicio "fmrConsulta" manualmente los botones actuan perfectamente.
Adjunto el archivo por si alguien lo quiere probar en Linux u otra version de Windows y me dice como le va.
Gracias a todos
Al abrir la base de datos, Windows crea un archivo temporal de extension .lck
Si la abro automaticamnete con la macro, esta hace que se bloquee.
Si la desconecto y abro el formulario de inicio "fmrConsulta" manualmente los botones actuan perfectamente.
Adjunto el archivo por si alguien lo quiere probar en Linux u otra version de Windows y me dice como le va.
Gracias a todos
OpenOffice 4.1.15 y LibreOffice 6.2.4.2 en W-10, y LibreOffice 4.1.6.2 en Open Suse 13.1(VirtualBox)
Re: Problema al brir formulario automaticamente al iniciar Base
Creo que no lo he adjuntado bien, lo intento de nuevo.
OpenOffice 4.1.15 y LibreOffice 6.2.4.2 en W-10, y LibreOffice 4.1.6.2 en Open Suse 13.1(VirtualBox)
Re: [Resuelto]Abrir formulario automaticamente al iniciar Base
Qué cosas más extrañas hace tu base de datos.
Me dio bastantes problemas. Todo parece bien. Es más, no hice nada extraño. Al final funcionó así:
Creé una nueva macro:
Y la usé en vez de AutoExec.
Las primeras veces me falló. Había copiado el texto de las que ya tienes.
Luego la escribí desde cero (ya sé que es idéntica, ya...) y funcionó todo bien.
Ni idea de porqué.
Me dio bastantes problemas. Todo parece bien. Es más, no hice nada extraño. Al final funcionó así:
Creé una nueva macro:
Código: Seleccionar todo
Sub AbrirFormularioConsulta()
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, "fmrConsulta",FALSE )
End Sub
Las primeras veces me falló. Había copiado el texto de las que ya tienes.
Luego la escribí desde cero (ya sé que es idéntica, ya...) y funcionó todo bien.
Ni idea de porqué.
OOo 3.3.0: OOO330m20 (Build:9567) en WXP+SP3 y en Ubuntu 10.10
Re: [Resuelto]Abrir formulario automaticamente al iniciar Base
Hola cascabel
Gracias por hacer la prueba, yo tambien he probado escribiendola desde cero y me continua dando error.
El archivo .lck ya no me bloquea la base, no se si sera por que he instalado JRE 6 update 18
En fin voy a continuar leyendo el tutorial de Mauricio para ir aprendiendo mas cosas de Base, pues hasta ahora los conocimientos que tengo estan basados en acces, pero ya me ha llegado el momento de hacer el cambio.
Saludos
Gracias por hacer la prueba, yo tambien he probado escribiendola desde cero y me continua dando error.
El archivo .lck ya no me bloquea la base, no se si sera por que he instalado JRE 6 update 18
En fin voy a continuar leyendo el tutorial de Mauricio para ir aprendiendo mas cosas de Base, pues hasta ahora los conocimientos que tengo estan basados en acces, pero ya me ha llegado el momento de hacer el cambio.
Saludos
OpenOffice 4.1.15 y LibreOffice 6.2.4.2 en W-10, y LibreOffice 4.1.6.2 en Open Suse 13.1(VirtualBox)
Re: [Resuelto]Abrir formulario automaticamente al iniciar Ba
Hola, he probado este código y me funciona pero me ejecuta el formulario sin maximizar. ¿Alguien sabe como hacerlo para que lo ejecute a pantalla completa?
Gracias
Gracias
OpenOffice 3.2.1 en Windows XP
Re: [Resuelto]Abrir formulario automaticamente al iniciar Ba
Hola,
Descargate esta BD y veras el ejemplo.
http://user.services.openoffice.org/es/ ... =31&t=3506
Saludos
Descargate esta BD y veras el ejemplo.
http://user.services.openoffice.org/es/ ... =31&t=3506
Saludos
OpenOffice 4.1.15 y LibreOffice 6.2.4.2 en W-10, y LibreOffice 4.1.6.2 en Open Suse 13.1(VirtualBox)
Re: [Resuelto]Abrir formulario automaticamente al iniciar Ba
Muchas gracias!
OpenOffice 3.2.1 en Windows XP