[Resuelto]Abrir formulario automaticamente al iniciar Base

[RMG]

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

[RMG]

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

[RMG]

Creo que no lo he adjuntado bien, lo intento de nuevo.

Consulta.rar

(33.21 KiB) Descargado 1001 veces

[Cascabel]

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:

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

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é.

[RMG]

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

[fendo]

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

[RMG]

Hola,

Descargate esta BD y veras el ejemplo.

http://user.services.openoffice.org/es/ ... =31&t=3506

Saludos

[fendo]

Muchas gracias!