| |
|
|
| |
'Нет данных
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)
Где м.б. грабли? | |
| |
| |
| |
|
|
| | Вспомнилось. Вот почему, когда я пытался делать так:
Private Sub Report_Open(Cancel As Integer)
Me.RecordSource = Me.OpenArgs
End Sub
|
то получал ошибку "Нет данных". А со второго раза отчет открывался нормально.
А вот так работало с первого раза:
Private Sub Report_Open(Cancel As Integer)
Me.RecordSource = RecordSourceStr
End Sub
|
где RecordSourceStr - глобальная переменная.
OpenArgs не забывал задавать. | |
| |
| |
| |
|
|
| | это мысль - openarg у меня есть, но не рекордсет, а условия всякие. надо проверить...
Хотя проблема не совсем в этом - у меня нет данных реально, но не срабатывает выход... | |
| |
| |
