da man ja nun mit der Version 3.1 auch in Base-Dateien (.odb) Makros direkt einbinden kann, möchte ich beim öffnen der Datenbankdatei gleich mein Startformular öffnen. Das funktioniert mit nachstehenden Code auch problemlos.
Nun suche ich noch eine Ergänzung dafür, dass das Hauptfenster der Datenbank gleich in die Taskleiste minimiert wird. Dabei möchte ich den selben Effekt nutzen, wie das Minimieren-Icon am oberen rechten Fensterrand (man kann ja wohl mit „hidden“ ein Fenster komplett ausblenden, aber ich möchte bei Bedarf noch darauf zugreifen können.)
Also, wenn mir jemand dabei behilflich wäre, den Code etwas zu ergänzen, wäre ich wirklich dankbar.
Code: Alles auswählen
Sub STARTFORMULAR
Dim Context AS Object
Dim Conn As Object
Dim DB As Object
Dim FormDoc As Object
Dim Args(1) As New com.sun.star.beans.PropertyValue
Dim FormName As String
FormName = "STARTFORMULAR"
Context=CreateUnoService("com.sun.star.sdb.DatabaseContext")
DB=Context.getByName("DATENBANKNAME")
Conn=DB.getconnection("","")
Args(0).Name="ActiveConnection" : Args(0).Value=Conn
Args(1).Name="OpenMode" : Args(1).Value="open"
FormDoc=DB.DatabaseDocument.FormDocuments.loadComponentFromURL(FormName,"_self",2,Args) REM << BASIC-Laufzeitfehler.
FormDoc.CurrentController.Frame.ContainerWindow.setFocus()Es geht ja in Version 3.1 nun wohl einfacher: http://wiki.services.openoffice.org/wik ... res_in_3_1
Code: Alles auswählen
Sub Startformular
ThisDatabaseDocument.FormDocuments.getByName( "Startformular" ).open
End Sub
. Ich habe ihn lediglich um das Öffnen des Startformulars ergänzt. Jetzt funktioniert es schon mal so, wie ich mir es vorgestellt habe.