Izveštaje koji ne sadrže zapise podrazumevano možete da odštampate. Da biste rešili ovaj problem, možete da koristite makro ili Microsoft Visual Basic for Applications (VBA) kôd da biste otkrili odsustvo zapisa u izveštaju, a zatim otkazali operaciju štampanja. Koraci u ovom članku objašnjavaju kako da koristite obe tehnike.
Šta želite da uradite?
Verovatno želite da otkažete štampanje izveštaja kada on ne sadrži nijedan zapis. Na primer, ako počinjete da prodajete novi proizvod, verovatno postoji vremenski period u kojem još uvek niste registrovali prodaju. Stoga bi trebalo da razmotrite mogućnost da neki od izveštaja ne sadrže detaljne zapise i da agregatne funkcije, kao što je funkcija Count , možda nemaju šta da prebroje. Da biste graciozno rukovali takvim pojavljivanjem, možete da kreirate makro koji otkazuje štampanje. Takođe možete da dodate nekoliko redova pažljivo postavljenog VBA koda da biste istu stvar izvršili. VBA je programski jezik koji Pristup koristi.
Dodajete makro ili VBA kôd u proceduru događaja izveštaja On No Data . Pristup pokreće događaj On No Data svaki put kada pokrenete izveštaj koji nema zapise. Makro i VBA kôd opisani u ovom članku prikazuju odgovarajuću poruku i otkazuju štampanje izveštaja kada taj izveštaj ne sadrži podatke. Kada dodate makro ili VBA kôd u proceduru događaja On No Data , makro ili VBA kôd se pokreću svaki put kada otvorite izveštaj koji ne sadrži zapise. Kada kliknete na dugme U redu da biste zatvorili poruku upozorenja, makro takođe zatvara prazan izveštaj. Kada izveštaju dodate makro ili VBA kôd, prazan izveštaj se neće otvoriti kada pokušate da ga prikažete u prikazu izveštaja ili prikazu rasporeda – ali izveštaj možete da otvorite u prikazu dizajna.
Korišćenje makroa za otkazivanje štampanja
Makro opisan u ovom odeljku prikazuje poruku upozorenja kada pokušate da odštampate prazan izveštaj. Kada kliknete na dugme U redu da biste zatvorili okvir poruke, makro automatski otkazuje operaciju štampanja. Ako ne uključite poruku upozorenja, ona će izgledati kao da se ništa ne dešava kada pokušate da odštampate izveštaj – nešto što će verovatno zbunili korisnike izveštaja.
Kreiranje makroa
-
U oknu za navigaciju kliknite desnim tasterom miša na izveštaj koji želite da promenite i izaberite stavku Prikaz dizajna.
-
Na kartici Dizajn, u grupi Prikazivanje/skrivanje izaberite stavku List sa svojstvima.
– ili –
Kliknite dvaput na polje u gornjem levom ili desnom uglu izveštaja, u zavisnosti od regionalnih i jezičkih postavki.
-
Izaberite karticu Događaj i u polju za svojstvo On No Data izaberite stavku
Pojavljuje se dijalog Izbor alatke za izradu.
-
Izaberite stavku Izrada makroa, a zatim kliknite na dugme U redu.
Dizajner makroa se pokreće i prikazuje prazan makro.
-
Sa padajuće liste radnji makroa u prozoru za dizajn makroa izaberite stavku Okvir sa porukama sa liste.
-
u polju Poruka otkucajte tekst za poruku upozorenja.
Na primer, možete uneti sledeće: Nema zapisa za izveštavanje.
-
Opcionalno, promenite vrednost argumenta u polju Zvučni signal sa "Da" na "Ne" i na listi Tip izaberite tip ikone koji želite da se pojavi u poruci upozorenja.
-
U polju Naslov otkucajte naslov poruke upozorenja.
Na primer, možete uneti stavku Bez zapisa.
-
Izaberite padajuću listu radnji makroa ispod radnje MessageBox , a zatim izaberite CancelEvent.
-
Na kartici Dizajn, u grupi Zatvori kliknite na dugme Sačuvaj.
-
Na kartici Dizajn, u grupi Zatvori, kliknite na dugme Zatvori. Ako se pojavi poruka upozorenja i pita da li želite da sačuvate promene u makrou i svojstvu izveštaja, kliknite na dugme Da, zatvorite izveštaj, sačuvajte promene ako vam bude zatraženo i pređite na sledeće korake da biste ga testirali.
Testiranje makroa
-
U oknu za navigaciju kliknite desnim tasterom miša na izveštaj koji sadrži makro i izaberite stavku Odštampaj. U zavisnosti od opcija koje odaberete, Access prikazuje poruku upozorenja.
Kada kliknete na dugme U redu da biste zatvorili poruku, radnja CancelEvent zaustavlja operaciju štampanja. Izveštaj se zatvara zato što niste naveli nijedan drugi događaj (kao što je otvaranje izveštaja za prikazivanje).
Korišćenje VBA koda za otkazivanje štampanja
VBA kôd opisan ovde funkcioniše kao makro opisan u prethodnom odeljku – prikazuje poruku sa obaveštenjem kada otvorite prazan izveštaj, a zatim otkazuje operaciju štampanja kada zatvorite poruku sa obaveštenjem.
Dodavanje VBA koda
-
U oknu za navigaciju kliknite desnim tasterom miša na izveštaj koji želite da promenite i izaberite stavku Prikaz dizajna.
Napomena: Da biste dovršili ovu proceduru, koristite izveštaj koji ne sadrži zapise.
-
Na kartici Dizajn, u grupi Prikazivanje/skrivanje izaberite stavku List sa svojstvima.
– ili –
Kliknite dvaput na polje u gornjem levom ili desnom uglu izveštaja, u zavisnosti od regionalnih i jezičkih postavki.
-
Izaberite karticu Događaj i u polju za svojstvo On No Data izaberite stavku
Pojavljuje se dijalog Izbor alatke za izradu.
-
Izaberite stavku Izrada koda, a zatim kliknite na dugme U redu.
Visual Basic Editor se pokreće i prikazuje praznu proceduru događaja.
-
Otkucajte sledeći kôd u programu Visual Basic Editor tako da procedura Report_NoData izgleda isto kao ova 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, izaberite stavku Datoteka, a zatim kliknite na dugme Sačuvaj.
-
Izaberite stavku Datoteka, a zatim stavku Zatvori i vrati se u Microsoft Access.
-
Zatvorite otvoreni izveštaj, a zatim kliknite na dugme Da da biste potvrdili čuvanje.
-
U oknu za navigaciju kliknite desnim tasterom miša na izveštaj koji ste upravo promenili i izaberite stavku Odštampaj. U zavisnosti od opcija koje odaberete, Access prikazuje poruku upozorenja.
Procedura Report_NoData koristi funkciju MsgBox za prikazivanje poruke "Ne postoje zapisi za izveštavanje " idugme "U redu". Kada kliknete na dugme U redu, red "Otkaži=Tačno" u proceduri daje uputstvo programu Access da otkaže izveštaj. Cancel je argument koji se automatski prosleđuje proceduri događaja i Access uvek proverava kada se dovrši procedura događaja.
