Moin,
wenn ich deinen Code ausprobiere, bekomme ich mit AOO unter Windows 7 folgenden Fehler:
- noConnection.png (16.47 KiB) 10046 mal betrachtet
Wie die Fehlermeldung sagt, fehlt die Verbindung zur Dantenbank. Wenn man in den Tabellenbeich klickt, ein Formular oder eine Abfrage von Hand öffnet, wird diese Verbindung von BASE hergestellt.
Startet man also dein Makro aus einem geöffneten Formular, kommt es nicht zu der Fehlermeldung.
Willst du aber ein Formular direkt nach dem Öffnen von Base öffnen muss man dem Makro zwei Zeilen hinzufügen, um die Verbindung per Makro zu erzeugen:
Code: Alles auswählen
Sub openForm
oController = ThisDatabaseDocument.currentController
if not oController.isConnected then oController.Connect
ThisDatabaseDocument.FormDocuments.getByName("s").open
End Sub
Die Beispieldatei funktioniert bei mir.
Gruß R