Ve výchozím nastavení můžete tisknout sestavy, které neobsahují žádné záznamy. Chcete-li tento problém vyřešit, můžete pomocí makra nebo kódu jazyka VBA (Microsoft Visual Basic for Applications) zjistit chybějící záznamy v sestavě a potom zrušit operaci tisku. Postup v tomto článku vysvětluje, jak používat obě techniky.
V tomto článku
Pravděpodobně budete chtít zrušit tisk sestavy, pokud neobsahuje žádné záznamy. Pokud například začínáte prodávat nový produkt, je pravděpodobné, že existuje časové období, ve kterém jste ještě žádné prodeje nezaregistrovali. Proto byste měli zvážit možnost, že některé sestavy nemusí obsahovat žádné podrobné záznamy a že agregační funkce, jako je funkce Count , nemusí mít co spočítat. Chcete-li tento výskyt řádně zpracovat, můžete vytvořit makro, které zruší tiskovou úlohu. Můžete také přidat několik řádků pečlivě umístěného kódu VBA a udělat to samé. VBA je programovací jazyk, který Access používá.
Do procedury události nepřidávejte makro nebo kód jazyka VBA.Access aktivuje událost Při chybějících datech při každém spuštění sestavy, která nemá žádné záznamy. Makro a kód jazyka VBA popsané v tomto článku zobrazí příslušnou zprávu a zruší tisk sestavy, pokud sestava neobsahuje žádná data. Když přidáte makro nebo kód jazyka VBA do procedury události Nejsou data , makro nebo kód jazyka VBA se spustí při každém otevření sestavy, která neobsahuje žádné záznamy. Když některou zprávu s upozorněním zavřete kliknutím na OK , makro zavře také prázdnou sestavu. Když do sestavy přidáte makro nebo kód jazyka VBA, prázdná sestava se při pokusu o zobrazení sestavy nebo v zobrazení rozložení neotevře – ale můžete ji otevřít v návrhovém zobrazení.
Zrušení tisku pomocí makra
Makro popsané v této části zobrazí při pokusu o tisk prázdné sestavy zprávu s upozorněním. Když kliknutím na OK zavřete okno se zprávou, makro automaticky zruší operaci tisku. Pokud zprávu s upozorněním nezadáte, bude při pokusu o tisk sestavy vypadat, jako by se nic nestalo– což pravděpodobně uživatele sestavy zmátne.
Vytvoření makra
-
V navigačním podokně klikněte pravým tlačítkem na sestavu, kterou chcete změnit, a klikněte na Návrhové zobrazení.
-
Na kartě Návrh ve skupině Zobrazit nebo skrýt klikněte na Seznam vlastností.
– nebo –
V závislosti na místním a jazykovém nastavení poklikejte na pole v levém horním nebo pravém rohu sestavy.
-
Klikněte na kartu Událost a v poli vlastnosti Nejsou k dispozici žádná data klikněte na
Zobrazí se dialogové okno Zvolit tvůrce .
-
Klikněte na Tvůrce maker a potom klikněte na OK.
Spustí se návrhář maker a zobrazí prázdné makro.
-
V rozevíracím seznamu akcí makra v okně návrhu makra vyberte v seznamu MessageBox .
-
do pole Zpráva zadejte text zprávy s upozorněním.
Můžete například zadat následující: Neexistují žádné záznamy, které by bylo možné vykazovat.
-
Volitelně můžete změnit hodnotu argumentu v poli Pípnutí z Ano na Ne a v seznamu Typ vyberte typ ikony, která se má zobrazit ve zprávě upozornění.
-
Do pole Název zadejte název zprávy s upozorněním.
Můžete například zadat Žádné záznamy.
-
Vyberte rozevírací seznam akcí makra pod akcí MessageBox a pak vyberte ZrušitEvent.
-
Na kartě Návrh klikněte ve skupině Zavřít na Uložit.
-
Na kartě Návrh, ve skupině Zavřít, klikněte na příkaz Zavřít. Pokud se zobrazí zpráva s upozorněním, jestli chcete uložit změny makra a vlastnosti sestavy, klikněte na Ano, zavřete sestavu, po zobrazení výzvy uložte změny a pokračujte k dalším krokům k otestováním.
Testování makra
-
V navigačním podokně klikněte pravým tlačítkem na sestavu obsahující makro a klikněte na Tisk. V závislosti na možnostech, které jste zvolili, Access zobrazí zprávu s upozorněním.
Po kliknutí na TLAČÍTKO OK zavřete zprávu, akce ZrušitEvent zastaví operaci tisku. Protože jste nezadáli žádnou jinou událost (například otevření sestavy pro zobrazení), sestava se zavře.
Zrušení tisku pomocí kódu VBA
Zde popsaný kód jazyka VBA funguje podobně jako makro popsané v předchozí části – při otevření prázdné sestavy zobrazí zprávu s upozorněním a při zavření zprávy upozornění zruší operaci tisku.
Přidání kódu jazyka VBA
-
V navigačním podokně klikněte pravým tlačítkem na sestavu, kterou chcete změnit, a klikněte na Návrhové zobrazení.
Poznámka: K dokončení tohoto postupu použijte sestavu, která neobsahuje žádné záznamy.
-
Na kartě Návrh ve skupině Zobrazit nebo skrýt klikněte na Seznam vlastností.
– nebo –
V závislosti na místním a jazykovém nastavení poklikejte na pole v levém horním nebo pravém rohu sestavy.
-
Klikněte na kartu Událost a v poli vlastnosti Nejsou k dispozici žádná data klikněte na
Zobrazí se dialogové okno Zvolit tvůrce .
-
Klikněte na Tvůrce kódu a potom klikněte na OK.
Visual Basic Editor se spustí a zobrazí prázdnou proceduru události.
-
V editoru jazyka Visual Basic zadejte následující kód, aby se procedura Report_NoData po dokončení zobrazila přesně takto:
Private Sub Report_NoData (Cancel As Integer)
MsgBox "There are no records to report", vbExclamation, "No Records"
Cancel = True
End Sub -
Až budete hotovi, klikněte na Soubor a potom klikněte na Uložit.
-
Klikněte na Soubor a potom klikněte na Zavřít a vrátit se do Aplikace Microsoft Access.
-
Zavřete otevřenou sestavu a kliknutím na Ano potvrďte uložení.
-
V navigačním podokně klikněte pravým tlačítkem na sestavu, kterou jste právě změnili, a klikněte na Tisk. V závislosti na možnostech, které jste zvolili, Access zobrazí zprávu s upozorněním.
Procedura Report_NoData používá funkci MsgBox k zobrazení zprávy Nejsou k dispozici žádné záznamy a tlačítko OK . Když kliknete na OK, řádek Cancel=True v proceduře dá Accessu pokyn, aby sestavu zrušil. Zrušit je argument, který se automaticky předává do procedury události a access ho vždy kontroluje po dokončení procedury události.
