Makros – Beispiele für OpenOffice Base

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
'Ö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

Schreibe einen Kommentar

Pflichtfelder sind mit * markiert.


*