OpenReport и Access

[vIRisium]

Доброго времени суток. Столкнулся с непонятной проблемой, ответа на которую так и не нашел.

Вот код

Код: Выделить всё


Private Sub Form_Load()
On Error Resume Next
Set ac = CreateObject("Access.Application")
ac.OpenCurrentDatabase ("C:\Áàçà äàííûõ3.mdb")
ac.DoCmd.Maximize
End Sub

Private Sub Command5_Click()
On Error Resume Next
ac.Visible = True
ac.DoCmd.OpenReport "Report", PrintMode
End Sub


При вызове OpenReport ничего не происходт. Access открывается, но дальнейшего результата никаого. Что не так? Почему может не появляться отчет?

[mshak]

чта за PrintMode? чему равна данная переменная?
Посмотри какие значения подставляет сам access при вызове отчета в режиме предварительного просмотра.
В твоем случае, имхо, подойдет следующее:

Код: Выделить всё

Const acPreview = 2
...
ac.DoCmd.OpenReport "Report", acPreview