Auto displaying form at startup - almost working

[unixnerd]

I used the code suggested here to make my database open a form at startup.

How to autostart a Form by default at ODB opening ?

This is basically the same routine presented in this past post: SUB OpeningForm Dim ObjTypeWhat Dim ObjName As String ObjName = "FormNew" ObjTypeWhat = com.sun.star.sdb.application.DatabaseObject.FORM If ThisDatabaseDocument.FormDocuments.hasbyname(ObjName) Then 'Check the form exists' ThisDataBaseDocument.CurrentController.Connect() 'If the form exists connect to the database' ThisDatabaseDocument.CurrentController.loadComponent(ObjTypeWhat, ObjName, FALSE) 'Open the form' …

If I open LibreOffice Base then select a database to open the desired form auto starts correctly.

If I double click on the .odb file to open it I get “The connection to the data source could not be established”. How do I fix this? Perhaps I need a line of code to specify the db being opened is the one the form is in?

[RobertG]

Take this at the first line in your procedure (after all variables are declared):

oDatasource = thisDatabaseDocument.CurrentController
IF NOT (oDatasource.isConnected()) THEN oDatasource.connect()

[Villeroy]

Which event is triggered when the user closes a BASE form using the X in the top right hand corner?

Simply create a stand-alone form document. This can be opened just like a normal document without Base window. Save the form document as a Writer document. Close the form. Open the document and turn on form edit mode. Open the form navigator and walk through all forms and subforms and do this with each of them: 4.1. Copy the source item. 4.2. Specify either the Base document’s registered name (from drop-down) or the path to the Base document (click the ellipsis button for a file picker). 4.…

[Villeroy]

2 lines of code:

Sub onOpen_openForm()
ThisDatabaseDocument.CurrentController.connect()
ThisDatabaseDocument.FormDocuments.getByName("FormNew").open()
End Sub