Po zadanom možete ispisati izvješća koja ne sadrže zapise. Da biste riješili taj problem, pomoću makronaredbe ili koda programa Microsoft Visual Basic for Applications (VBA) možete otkriti nedostatak zapisa u izvješću, a zatim otkazati operaciju ispisa. Koraci u ovom članku objašnjavaju kako koristiti obje tehnike.
Što želite učiniti?
Vjerojatno želite otkazati ispis izvješća kada ne sadrži nijedan zapis. Ako, primjerice, počinjete prodavati novi proizvod, vjerojatno će biti određeno vremensko razdoblje u kojem još niste registrirali prodaju. Stoga biste trebali razmotriti mogućnost da neka izvješća ne sadrže detaljne zapise i da funkcije zbrajanja, kao što je funkcija Count , možda neće imati što prebrojati. Da biste s takvim pojavljivanjima rukujeli graciozno, možete stvoriti makronaredbu koja otkazuje zadatak ispisa. Možete dodati i nekoliko redaka pažljivo postavljenog VBA koda da biste to isto postavili. VBA je programski jezik koji Access koristi.
Makronaredbu ili VBA kod dodajete u proceduru događaja On No Data izvješća. Access pokreće događaj On No Data svaki put kada pokrenete izvješće koje nema zapisa. Makronaredba i VBA kod opisani u ovom članku prikazuju odgovarajuću poruku i otkažite ispis izvješća kada to izvješće ne sadrži podatke. Kada u proceduru događaja Bez podataka dodate makronaredbu ili VBA kod, makronaredba ili VBA kod pokreće se svaki put kada otvorite izvješće koje ne sadrži zapise. Kada kliknete U redu da biste zatvorili bilo koju poruku upozorenja, makronaredba zatvara i prazno izvješće. Kada u izvješće dodate makronaredbu ili VBA kod, prazno izvješće neće se otvoriti kada ga pokušate prikazati u prikazu izvješća ili prikazu rasporeda, ali izvješće možete otvoriti u prikazu dizajna.
Otkazivanje ispisa pomoću makronaredbe
Makronaredba opisana u ovom odjeljku prikazuje poruku upozorenja kada pokušate ispisati prazno izvješće. Kada kliknete U redu da biste zatvorili okvir poruke, makronaredba automatski poništava operaciju ispisa. Ako ne uvrstite poruku upozorenja, prikazat će se kao da se ništa ne događa kada pokušate ispisati izvješće – nešto što će vjerojatno zbuniti korisnike izvješća.
Stvaranje makronaredbe
-
U navigacijskom oknu desnom tipkom miša kliknite izvješće koje želite promijeniti, a zatim kliknite Prikaz dizajna.
-
Na kartici Dizajn u grupi Prikaz/sakrivanje kliknite Popis svojstava.
– ili –
Dvokliknite okvir u gornjem lijevom ili desnom kutu izvješća, ovisno o regionalnim i jezičnim postavkama.
-
Kliknite karticu Događaj , a zatim u okviru svojstva On No Data kliknite
Pojavit će se dijaloški okvir Odabir sastavljača.
-
Kliknite Sastavljač makronaredbi, a zatim U redu.
Pokreće se dizajner makronaredbi i prikazuje praznu makronaredbu.
-
Na padajućem popisu akcija makronaredbi u prozoru dizajna makronaredbe odaberite MessageBox s popisa.
-
u okvir Poruka upišite tekst poruke upozorenja.
Možete, primjerice, unijeti sljedeće: Nema zapisa za prijavu.
-
Ako želite, promijenite vrijednost argumenta u okviru Beep iz Da u Ne i na popisu Vrsta odaberite vrstu ikone koju želite prikazati u poruci upozorenja.
-
U okvir Naslov upišite naslov poruke upozorenja.
Možete, primjerice, unijeti Bez zapisa.
-
Odaberite padajući popis akcija makronaredbi ispod akcije MessageBox , a zatim Odaberite CancelEvent.
-
Na kartici Dizajn u grupi Zatvaranje kliknite Spremi.
-
Na kartici Dizajn u grupi Zatvaranje kliknite Zatvori. Ako se pojavi poruka upozorenja i upita želite li spremiti promjene makronaredbe i svojstva izvješća, kliknite Da, zatvorite izvješće, spremite promjene ako se to od vas zatraži, a zatim prijeđite na sljedeće korake da biste ga isprobali.
Testiranje makronaredbe
-
U navigacijskom oknu desnom tipkom miša kliknite izvješće koje sadrži makronaredbu, a zatim kliknite Ispis. Ovisno o mogućnostima koje ste odabrali, Access prikazuje poruku upozorenja.
Kada kliknete U redu da biste zatvorili poruku, akcija CancelEvent zaustavlja operaciju ispisa. Budući da niste naveli nijedan drugi događaj (npr. otvaranje izvješća za prikaz), izvješće će se zatvoriti.
Otkazivanje ispisa pomoću VBA koda
OVDJE opisani VBA kod funkcionira kao makronaredba opisana u prethodnom odjeljku – prikazuje poruku upozorenja kada otvorite prazno izvješće, a zatim otkaži operaciju ispisa kada zatvorite poruku upozorenja.
Dodavanje VBA koda
-
U navigacijskom oknu desnom tipkom miša kliknite izvješće koje želite promijeniti, a zatim kliknite Prikaz dizajna.
Napomena: Da biste dovršili ovaj postupak, koristite izvješće koje ne sadrži zapise.
-
Na kartici Dizajn u grupi Prikaz/sakrivanje kliknite Popis svojstava.
– ili –
Dvokliknite okvir u gornjem lijevom ili desnom kutu izvješća, ovisno o regionalnim i jezičnim postavkama.
-
Kliknite karticu Događaj , a zatim u okviru svojstva On No Data kliknite
Pojavit će se dijaloški okvir Odabir sastavljača.
-
Kliknite Sastavljač koda, a zatim U redu.
Visual Basic Editor pokreće i prikazuje prazan postupak događaja.
-
U Visual Basic Editor upišite sljedeći kod tako da Report_NoData izgleda upravo ovako kada završite:
Private Sub Report_NoData (Cancel As Integer)
MsgBox "There are no records to report", vbExclamation, "No Records"
Cancel = True
End Sub -
Kada završite, kliknite Datoteka, a zatim Spremi.
-
Kliknite Datoteka, a zatim Zatvori i Vrati se u Microsoft Access.
-
Zatvorite otvoreno izvješće, a zatim kliknite Da da biste potvrdili spremanje.
-
U navigacijskom oknu desnom tipkom miša kliknite izvješće koje ste upravo promijenili, a zatim kliknite Ispis. Ovisno o mogućnostima koje ste odabrali, Access prikazuje poruku upozorenja.
Postupak Report_NoData koristi funkciju MsgBox za prikaz poruka Nema zapisa za prijavu i gumbU redu. Kada kliknete U redu, redak "Odustani=True" u postupku upućuje Access da otkaže izvješće. Odustani je argument koji se automatski prosljeđuje proceduri događaja i Uvijek ga provjerava Access kada se procedura događaja dovrši.
