从 Excel 打开 Access 报告转到“另存为”窗口

Question

I want to open an Access report from Excel but instead of showing the report it goes to the 'save as' window.

I tried acViewDesign, acViewNormal, acViewPreview and without one as well but it all gives me the same thing.

Dim accessApp As Object


Sub DisplayReport()

Dim DocName As String
Dim Path As String

Set accessApp = CreateObject("Access.Application")

Path = "C:\Users\user\Desktop\Database1.accdb"

accessApp.OpenCurrentDatabase Path

accessApp.DoCmd.OpenReport "Sheet1", acViewReport
accessApp.Visible = True

End Sub

Answer 1

Either add reference to the the Access Object Library or use the value 5 in place of acViewReport

accessApp.DoCmd.OpenReport "Sheet1", 5

All the constant values are here