OpenOffice.info

Ich habe eine erstellte Datenbank mit einem Startformular und mittels Makro wird beim öffnen der Datenbank das Startformular geöffnet mein problem ist das Hauptfenster (Base Container) lässt sich nicht ausblenden. Kann mir da jemand sagen wo das Problem ist

Sub open_main_form
Dim oController As Object
oController = ThisDatabaseDocument.CurrentController
If Not oController.isConnected() Then oController.connect()

' Formular öffnen
ThisDatabaseDocument.FormDocuments.getByName("Startformular").Open

' Warten bis Formular geladen ist
Wait 1000

' Dann Container ausblenden
Dim oFrames As Object
Dim oFrame As Object
Dim i As Integer

oFrames = StarDesktop.Frames
For i = 0 To oFrames.Count - 1
oFrame = oFrames.getByIndex(i)
If oFrame.Name = "BibliographicDataBase" Or InStr(oFrame.Title, " - LibreOffice Base") > 0 Then
oFrame.ContainerWindow.setVisible(False)
End If
Next i
End Sub

Vielen Dank im vorraus