ник: ser60
сделал так:
Private Sub Report_Load()
Dim intFunctl As Integer
intFunctl = CInt(Nz(Me.OpenArgs, "0"))
'intFunctl = CInt(Nz(gintFunctional, 0))
If intFunctl = 75 Or intFunctl = 78 Then
Me![ШтатРаспСтрокаАдд].Visible = True
Else
Me![ШтатРаспСтрокаАдд].Visible = False
End If
End Sub
|
и Report_Open() заменил Report_Load(), иначе ругается как прежде, и немного прежний код подшаманил, но подотчет все равно виден в отчете