Moin,
wenn ich deinen Code ausprobiere, bekomme ich mit AOO unter Windows 7 folgenden Fehler:
			
		
				
			
 
						- noConnection.png (16.47 KiB) 13410 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