I open a form contained in a Base document using:

oFormDocs.loadComponentFromURL()

The form opens, but closes when the macro completes. See the complete macro
below. If I create an external variable that holds a reference to the document
definition, however, then the form stays open.

I discussed this with Frank Schönheit on the dba development mailing list, and
he had two comments:

1. He agrees that I should not have to hold a reference to the form definition
so that the form stays open. (This is the bug reported for this issue).

2. It seems silly that I need to provide an active connection. This active
connections may become a resource leak because it is not closed (this is
speculative of course).


Dim oXXX

Sub OpenFormInDB()
  Dim s As String     'Temporary string variable.
  Dim oDBDoc          'The database document that contains the form.
  Dim oFormDef        'com.sun.star.sdb.DocumentDefinition of the form.
  Dim oFormDocs       'The form documents container.
  Dim oFormDoc        'The actual form document.
  Dim oIHandler       'Interaction handler.
  Dim oCon            'Database connection.
  Dim oParms(1) As New com.sun.star.beans.PropertyValue
  Dim oBaseContext    'Global database context service.
  Dim oDataBase       'Database obtained from the database context.
  Dim sFormName$
  Dim sURL$

  sFormName = "Inventory_Form1"
  sURL = "file:///andrew0/home/andy/My%20Documents/Stamps_2005_07_22.odb"

  oDBDoc = StarDesktop.loadComponentFromURL(sURL, "_blank", 0, Array())
  oFormDocs = oDBDoc.getFormDocuments()
  oFormDef = oDBDoc.getFormDocuments().getByName(sFormName)
  REM Uncomment this next line to hold the form open
  'oXXX = oFormDef

  REM The database context is required for the connection.
  oBaseContext = CreateUnoService("com.sun.star.sdb.DatabaseContext")
  oDataBase = oBaseContext.getByName(sUrl)
  oCon = oDataBase.getConnection("", "")
  oParms(0).Name  = "OpenMode"
  oParms(0).Value = "openDesign"
  oParms(1).Name  = "ActiveConnection"
  oParms(1).Value = oCon

  oFormDoc = oFormDocs.loadComponentFromURL(sFormName, "", 0, oParms())
End Sub