Pēc noklusējuma varat drukāt atskaites, kurās nav ierakstu. Lai novērstu šo problēmu, varat izmantot makro vai Microsoft Visual Basic for Applications (VBA) kodu, lai atskaitē noteiktu, ka nav ierakstu, un pēc tam atcelt drukas darbību. Šajā rakstā skaidrots, kā izmantot abas metodes.
Iespējamās darbības
Iespējams, vēlēsities atcelt atskaites drukāšanu, ja tajā nav ierakstu. Piemēram, ja sākat pārdot jaunu produktu, iespējams, ir laika posms, kurā jums vēl ir jāreģistrē pārdošana. Tādēļ apsveriet iespēju, ka dažās atskaitēs nav iekļauti detalizēti ieraksti un apkopošanas funkcijām, piemēram, funkcijai Skaits, var būt nekas skaitāms. Lai veiksmīgi apstrādātu šādu gadījumu, varat izveidot makro, kas atceļ drukas darbu. Varat arī pievienot vairākas rūpīgi novietota VBA koda rindiņas, lai paveiktu to pašu. VBA ir programmēšanas valoda, kuru Access izmanto.
Pievienojiet makro vai VBA kodu atskaites notikuma procedūrai On No Data . Access aktivizē notikumu Ieslēgt bez datiem , ja tiek palaista atskaite, kurā nav ierakstu. Šajā rakstā aprakstītais makro un VBA kods parāda atbilstošu ziņojumu un atceļ atskaites drukāšanu, ja atskaitē nav datu. Pievienojot makro vai VBA kodu notikuma procedūrai On No Data , makro vai VBA kods tiek izpildīts ikreiz, kad atverat atskaiti, kurā nav ierakstu. Noklikšķinot uz Labi, lai aizvērtu jebkuru brīdinājuma ziņojumu, makro aizver arī tukšo atskaiti. Pievienojot atskaitei makro vai VBA kodu, tukša atskaite netiks atvērta, kad mēģināsiet to parādīt atskaites vai izkārtojuma skatā, taču varat atvērt atskaiti noformējuma skatā.
Makro izmantošana, lai atceltu drukāšanu
Šajā sadaļā aprakstītais makro parāda brīdinājuma ziņojumu, kad mēģināt drukāt tukšu atskaiti. Noklikšķinot uz Labi, lai aizvērtu ziņojuma lodziņu, makro automātiski atceļ drukāšanas darbību. Ja brīdinājuma ziņojums netiek iekļauts, izskatās, ka, mēģinot drukāt atskaiti, nekas nenotiek — tas visdrīzāk jauc atskaites lietotājus.
Makro izveide
-
Navigācijas rūtī ar peles labo pogu noklikšķiniet uz atskaites, kurā vēlaties veikt izmaiņas, un noklikšķiniet uz Noformējuma skats.
-
Cilnes Noformējums grupā Rādīt/paslēpt noklikšķiniet uz Rekvizītu lapa.
- vai -
Veiciet dubultklikšķi uz lodziņa atskaites augšējā kreisajā vai labajā stūrī atkarībā no reģionālajiem un valodas iestatījumiem.
-
Noklikšķiniet uz cilnes Notikums un rekvizītu lodziņā Ieslēgts bez datiem noklikšķiniet uz
Tiek parādīts dialoglodziņš Veidotāja izvēle.
-
Noklikšķiniet uz Makro veidotājs un pēc tam uz Labi.
Makro noformētājs sāk un parāda tukšu makro.
-
Makro darbību nolaižamajā sarakstā makro noformējuma logā sarakstā atlasiet Ziņojuma lodziņš.
-
lodziņā Ziņojums ierakstiet brīdinājuma ziņojuma tekstu.
Piemēram, varat ievadīt šādu informāciju: Nav ierakstu, par ko ziņot.
-
Ja vēlaties, mainiet argumenta vērtību lodziņā Beep no Jāuz Nē un sarakstā Tips atlasiet ikonas tipu, ko vēlaties parādīt brīdinājuma ziņojumā.
-
Lodziņā Virsraksts ierakstiet brīdinājuma ziņojuma virsrakstu.
Piemēram, varat ievadīt Bez ierakstiem.
-
Atlasiet makro darbību nolaižamo sarakstu zem darbības MessageBox un pēc tam atlasiet CancelEvent.
-
Cilnes Noformējums grupā Aizvērt noklikšķiniet uz Saglabāt.
-
Cilnes Noformējums grupā Aizvērt noklikšķiniet uz Aizvērt. Ja tiek parādīts brīdinājuma ziņojums un tiek jautāts, vai vēlaties saglabāt makro un atskaites rekvizīta izmaiņas, noklikšķiniet uz Jā, aizveriet atskaiti, saglabājiet veiktās izmaiņas, ja tas tiek prasīts, un turpiniet ar nākamajām darbībām, lai to pārbaudītu.
Makro pārbaude
-
Navigācijas rūtī ar peles labo pogu noklikšķiniet uz atskaites, kurā ir makro, un noklikšķiniet uz Drukāt. Atkarībā no izvēlētajām opcijām Access parāda brīdinājuma ziņojumu.
Noklikšķinot uz Labi, lai aizvērtu ziņojumu, darbība CancelEvent aptur drukas operāciju. Tā kā neesat norādījis citu notikumu (piemēram, atskaites atvēršanu skatīšanai), atskaite tiek aizvērta.
VBA koda izmantošana, lai atceltu drukāšanu
Šeit aprakstītais VBA kods darbojas līdzīgi iepriekšējā sadaļā aprakstītajam makro — atverot tukšu atskaiti, tiek parādīts brīdinājuma ziņojums un pēc tam, aizverot brīdinājuma ziņojumu, tiek atcelta drukāšanas darbība.
Pievienot VBA kodu
-
Navigācijas rūtī ar peles labo pogu noklikšķiniet uz atskaites, kurā vēlaties veikt izmaiņas, un noklikšķiniet uz Noformējuma skats.
Piezīme.: Lai pabeigtu šo procedūru, izmantojiet atskaiti, kurā nav ierakstu.
-
Cilnes Noformējums grupā Rādīt/paslēpt noklikšķiniet uz Rekvizītu lapa.
- vai -
Veiciet dubultklikšķi uz lodziņa atskaites augšējā kreisajā vai labajā stūrī atkarībā no reģionālajiem un valodas iestatījumiem.
-
Noklikšķiniet uz cilnes Notikums un rekvizītu lodziņā Ieslēgts bez datiem noklikšķiniet uz
Tiek parādīts dialoglodziņš Veidotāja izvēle.
-
Noklikšķiniet uz Kodu veidotājs un pēc tam uz Labi.
Tiek startēts Visual Basic redaktors, un tiek parādīta tukša notikuma procedūra.
-
Visual Basic redaktorā ierakstiet tālāk norādīto kodu, lai Report_NoData darbības, kad esat pabeidzis, izskatās tieši šādi:
Private Sub Report_NoData (Cancel As Integer)
MsgBox "There are no records to report", vbExclamation, "No Records"
Cancel = True
End Sub -
Kad esat pabeidzis, noklikšķiniet uz Fails un pēc tam uz Saglabāt.
-
Noklikšķiniet uz Fails un pēc tam uz Aizvērt un atgriezties programmā Microsoft Access.
-
Aizveriet atvērto atskaiti un pēc tam noklikšķiniet uz Jā, lai apstiprinātu saglabāšanu.
-
Navigācijas rūtī ar peles labo pogu noklikšķiniet uz tikko mainītās atskaites un noklikšķiniet uz Drukāt. Atkarībā no izvēlētajām opcijām Access parāda brīdinājuma ziņojumu.
The Report_NoData procedure uses the MsgBox function to display the There are no records to report message and an OK button. Noklikšķinot uz Labi, procedūras rindiņā "Cancel=True" tiek norādīts, ka Access var atcelt atskaiti. Atcelšana ir arguments, kas tiek automātiski nodots notikuma procedūrai un kuru Access vienmēr pārbauda, kad notikuma procedūra ir pabeigta.
