Nedošlo k jejich otevření zprávu, pokud žádné údaje, které ukazují,
Středa 20 květen 2009Můžeme zabránit zprávu otevřenou, pokud nebudou údaje, které ukazují, ak tomu používají dva způsoby v závislosti na verzi Access:
1 - Všechny verze aplikace Access
Umístěte níže uvedený kód ve vlastnostech zprávy z akce čímž se umožní států
Pomocí událostí Povolení (Aktivovat) Zpráva:
Private Sub Report_Activate ()
Pokud DPOČET ("*", Me.RecordSource) = 0 Then
MsgBox "Žádné záznamy k zobrazení" vbDefaultButton1, "Chyba!"
AcReport DoCmd.Close, "Zpráva o jméno"
End If
End Sub
2 - Od verze 7 odst. Access 95) byla přidána akce ", pokud No Data ', pak můžeme urilizar následující kód:
Private Sub Report_NoData (Cancel As Integer)
MsgBox "Žádné údaje ve zprávě.", VbInformation, "Chyba!"
Storno = True
End Sub
Chcete-li vidět běžící stáhnout příklad: Zabránit úvodní zprávu
