ник: Дядя Федор
'Нет данных
Private Sub Report_NoData(Cancel As Integer)
MsgBox "Отчет не содержит данных !!!", vbInformation, S_error
Cancel = True
DoCmd.Restore
End Sub
''''' в вызывающей форме
On Error Resume Next
DoCmd.OpenReport rname, acViewPreview, , strfusr, , strarg
If Err = 2501 Then Err.Clear
|
Везде работает. Но в одном отчете виснет [после сообщения].
Пустой лист на экране и не туды и не сюды.
(Выйти можно только через конструктор)
(A2003)
Где м.б. грабли?