Es kann hilfreich sein, immer wiederkehrende Arbeiten mit Hilfe von Makros zu erledigen. Als Einsteiger-Lektüre zur Erstellung, Ausführung und Verwaltung von Makros empfehle ich das „Getting Started Handbuch“, Kapitel 17: Erste Schritte mit Makros von OpenOffice.org. I. F. soll eine kleine „Sammlung“ nützlicher Makros entstehen:
'Beim Starten der Datenbank soll ein bestimmtes Formular geladen werden (Autostart)
Sub FormAutostart
dim oCon as object
oCon = ThisDatabaseDocument.CurrentController
If NOT ( oCon.isConnected() ) Then oCon.connect() 'Verbindung sicherstellen
oCon.loadComponent(com.sun.star.sdb.application.DatabaseObject.FORM,"MeinBeispiel",FALSE)
End Sub
'Das Makro der Datenbank zuweisen: Datenbankfenster > Extras > Anpassen > Dokument öffnen > FormAutostart |
'Beim Starten der Datenbank soll ein bestimmtes Formular geladen werden (Autostart)
Sub FormAutostart
dim oCon as object
oCon = ThisDatabaseDocument.CurrentController
If NOT ( oCon.isConnected() ) Then oCon.connect() 'Verbindung sicherstellen
oCon.loadComponent(com.sun.star.sdb.application.DatabaseObject.FORM,"MeinBeispiel",FALSE)
End Sub
'Das Makro der Datenbank zuweisen: Datenbankfenster > Extras > Anpassen > Dokument öffnen > FormAutostart
'Öffnet ein bestimmtes Formular
Sub openForm(Beispiel)
ThisDatabaseDocument.FormDocuments.getByName(„MeinBeispiel").open
End Sub |
'Öffnet ein bestimmtes Formular
Sub openForm(Beispiel)
ThisDatabaseDocument.FormDocuments.getByName(„MeinBeispiel").open
End Sub
'Schließt das Formular
Sub closeForm(Beispiel)
ThisDatabaseDocument.FormDocuments.getByName("MeinBeispiel").close
End Sub |
'Schließt das Formular
Sub closeForm(Beispiel)
ThisDatabaseDocument.FormDocuments.getByName("MeinBeispiel").close
End Sub
