ник: ser60
В отчете есть подотчет, который должен скрываться в зависимости от переданного отчету условия OpenArgs. Условие передается через DoCmd.OpenReport "ИмяОтчета", OpenArgs:=gintFunctional. В отчете
Private Sub Report_Open()
Dim intFunctl As Integer
intFunctl = Me.OpenArgs
If IsNothing(Me.OpenArgs) Or intFunctl = 9 Or intFunctl = 22 Or intFunctl = 25 _
Or intFunctl = 35 Or intFunctl = 56 Or intFunctl = 57 Or intFunctl = 9 Then
Me![ШтатРаспСтрокаАдд].Visible = False
End Sub
|
Акс ругается: run-time error ‘2501’: Прервано выполнение макрокоманды OpenReport
Что делать? Ведь отчет должен открываться, даже если отсутствует аргумент открытия?