Împiedica deschiderea unui raport în cazul în care nu există date pentru a arăta
Miercuri 2009-5-douăzeciPutem preveni un raport deschis în cazul în care nu există date pentru a arăta, şi pentru aceasta vom folosi două forme, în funcţie de versiunea de Access:
1 - Toate versiunile de ACCES
Plasaţi codul de mai jos, în proprietăţile raportului, "de abilitare" eveniment
Utilizaţi eveniment Activarea (Activare) Raport:
Sub Private Report_Activate ()
Dacă DCount ("*", Me.RecordSource) = 0 atunci
MsgBox "Nu există înregistrări pentru a afişa" vbDefaultButton1, "Eroare!"
AcReport DoCmd.Close, "numele de raport"
Final, dacă
End Sub
2 - de la versiunea 7 (Access 95) a fost adaugat evenimentul "în cazul în care nu există date", atunci putem urilizar codul de mai jos:
Private Sub Report_NoData (Anulează ca integer)
MsgBox "Nu există date în raport.", VbInformation, "Eroare!"
Cancel = True
End Sub
Pentru a vedea care rulează descărca de exemplu: prevenirea raport de deschidere
