Dim accApp As Access.Application
Dim strDB As String
Dim strReport As String
strDB = "C:\Programme\Microsoft Visual Studio\VB98\nwind.mdb"
strReport = "Rechung"
Set accApp = New Access.Application
Call accApp.OpenCurrentDatabase(strDB)
accApp.Visible = False
Call accApp.DoCmd.OpenReport(strReport, acViewNormalacc)
Call App.Quit Listing 1: Beispiel von Chris Eibel Der Name der Datenbank und der Name des Berichts muß an die eigenen Gegebenheiten angepaßt werden. Dieses Beispiel verwendet early binding, wer lieber late binding benutzen möchte, der wird auf die FAQ 0015: Office-Dokument mit VB verwenden verwiesen. |