Autostart eines Formulars (beim Öffnen einer Base-Datei)
Verfasst: Di 5. Apr 2011, 14:32
Drei Stunden Suche ist m.E. viel zu lange, um nach vielen gelesenen Seiten mit teils abenteuerlichen Inhalten endlich auf ein erschreckend einfaches Rezept zu kommen. Hier also das Rezept (nicht ohne Nennung der Fundstelle und Dank an Frank und Robert für ihren fruchtbaren Diskurs) zusammengefaßt:
1) In "MeineDatenbank.odb" folgendes Makro erstellen:
Sub OnOpenDocument()
Dim oController
oController = ThisDatabaseDocument.CurrentController
If not ( oController.isConnected() ) Then oController.connect() ' Connect to the database, if necessary
oController.loadComponent( com.sun.star.sdb.application.DatabaseObject.FORM, _
"frmMeinAutostartFormularName", FALSE ) ' Parameters: ObjectType, Parameter ObjectName, ForEditing
End Sub
2) Extras/Anpassen/Ereignisse:
Ereignis = Dokument öffnen (e:Open Document)
zugewiesene Aktion: Zuweisen: Makro: (obiges Makro zuweisen)
Speichern in: "MeineDatenbank.odb"
Das wär's schon! Viel Vergnügen...
1) In "MeineDatenbank.odb" folgendes Makro erstellen:
Sub OnOpenDocument()
Dim oController
oController = ThisDatabaseDocument.CurrentController
If not ( oController.isConnected() ) Then oController.connect() ' Connect to the database, if necessary
oController.loadComponent( com.sun.star.sdb.application.DatabaseObject.FORM, _
"frmMeinAutostartFormularName", FALSE ) ' Parameters: ObjectType, Parameter ObjectName, ForEditing
End Sub
2) Extras/Anpassen/Ereignisse:
Ereignis = Dokument öffnen (e:Open Document)
zugewiesene Aktion: Zuweisen: Makro: (obiges Makro zuweisen)
Speichern in: "MeineDatenbank.odb"
Das wär's schon! Viel Vergnügen...