Ataskaitos spausdinimo atšaukimas, jei joje nėra įrašų

Pastaba:  Norėtume jums kuo greičiau pateikti naujausią žinyno turinį jūsų kalba. Šis puslapis išverstas automatiškai, todėl gali būti gramatikos klaidų ar netikslumų. Mūsų tikslas – padaryti, kad šis turinys būtų jums naudingas. Gal galite šio puslapio apačioje mums pranešti, ar informacija buvo naudinga? Čia yra straipsnis anglų kalba , kuriuo galite pasinaudoti kaip patogia nuoroda.

Pagal numatytuosius parametrus galite spausdinti ataskaitas, kuriose nėra įrašų. Norėdami išspręsti šią problemą galite naudoti makrokomandą arba Microsoft Visual Basic for Applications (VBA) kodą, kad nustatytumėte, ar ataskaitoje yra įrašų, ir atšauktumėte spausdinimo operaciją, jei jų nėra. Šiame straipsnyje aprašyti veiksmai, kaip naudoti abu būdus.

Ką norėtumėte daryti?

Naudoti makrokomandą atšaukti spausdinimą

Naudokite VBA kodą atšaukti spausdinimą

Jei ataskaitoje nėra įrašų, tikriausiai norėsite atšaukti jos spausdinimo užduotį. Pavyzdžiui, jei pradedate prekiauti nauju produktu, greičiausiai bus toks laikotarpis, kai dar nebūsite įregistravęs jokio pardavimo. Todėl turite atsižvelgti į galimybę, kad jūsų ataskaitose gali nebūti išsamių įrašų, o pagal agregavimo funkcijas, pavyzdžiui, funkciją Skaičiavimas, nebus ką skaičiuoti. Norėdami gražiai sutvarkyti tokius atvejus, galite kurti makrokomandą, kuri atšauktų spausdinimo užduotį. Tą patį tikslą pasiekti galite įtraukę kelias kruopščiai padėto VBA kodo eilutes. VBA yra programavimo kalba, kurią naudoja programa Microsoft Office Access 2007.

Galite pridėti makrokomandą arba VBA kodas pranešimo Apie ne Data įvykio procedūra. Office Access 2007 sukelia įvykis Nesant duomenims , kiekvieną kartą, kai paleidžiate ataskaitą, kurioje nėra įrašų. Makrokomandą arba VBA kodas šiame straipsnyje aprašyta parodys atitinkamą pranešimą ir atšaukti spausdinti ataskaitą, kai ataskaitoje nėra duomenų. Jei norite pridėti makrokomandą arba VBA kodą Nesant duomenims įvykio procedūra, makrokomandą arba VBA kodą, bus vykdoma kiekvieną kartą, kai atidarote ataskaitą, kurioje yra įrašų. Kai spustelėsite gerai , kad uždarytumėte įspėjimo pranešimą, makrokomanda uždarys tuščią ataskaitą. Jei norite pridėti makrokomandą arba VBA kodas pranešimą, tuščia ataskaita neatsidaro, kai bandote jį Rodyti ataskaitos rodinys arba maketo rodinyje, bet galite atidaryti ataskaitą kaip dizaino rodinį.

Makrokomandos naudojimas spausdinimui atšaukti

Šiame skyriuje aprašyta makrokomanda parodys įspėjimo pranešimą, kai bandysite spausdinti tuščią ataskaitą. Jei norėdami uždaryti pranešimo langą spustelėsite Gerai, makrokomanda automatiškai atšauks spausdinimo operaciją. Jei įspėjimo pranešimo neįtrauksite, bandant spausdinti ataskaitą atrodys, kad nieko nevyksta – tai gali sutrikdyti ataskaitos vartotojus.

Makrokomandos kūrimas

  1. Naršymo srityje dešiniuoju pelės mygtuku spustelėkite norimą keisti ataskaitą, tada spustelėkite Dizaino rodinys.

  2. Skirtuko Dizainas grupėje Rodymas/slėpimas spustelėkite Ypatybių lapas.

    ARBA

    Dukart spustelėkite ataskaitos lauką, (pagal jūsų regiono ir kalbos parametrus) esantį viršutiniame kairiajame arba dešiniajame kampe.

  3. Spustelėkite skirtuką įvykis ir Nesant duomenims ypatybės lauke spustelėkite Daryklės mygtukas .

    Bus parodytas dialogo langas Daryklės pasirinkimas.

  4. Spustelėkite Makrokomandų daryklė, tada spustelėkite Gerai.

    Paleidžiama makrokomandų kūrimo programa ir rodoma tuščia makrokomanda.

  5. Pirmoje makrokomandos eilutėje spustelėkite stulpelio Veiksmas lauką ir sąraše pažymėkite Pranešimo_laukas.

  6. Apatinės makrokomandų kūrimo programos sekcijos dalies Veiksmo argumentai lauke Pranešimas įveskite įspėjimo pranešimo tekstą.

    Pavyzdžiui, galite įvesti tokį tekstą: Ataskaitoje nėra įrašų.

  7. Pasirinktinai pakeiskite lauko Pypsėjimas argumento reikšmę Taip į Ne ir sąraše Tipas pasirinkite piktogramos, kurią norite rodyti savo įspėjimo pranešime, tipą.

  8. Lauke Pavadinimas įveskite savo įspėjimo pranešimo pavadinimą.

    Pavyzdžiui, galite įvesti Įrašų nėra.

    Jūsų keitimai bus rodomi viršutinės makrokomandų kūrimo programos dalies stulpelyje Argumentas šalia veiksmo Pranešimo_laukas.

  9. Viršutinėje makrokomandų kūrimo programos dalyje spustelėkite kitą stulpelio Veiksmas langelį (esantį po Pranešimo_laukas), tada pažymėkite Atšaukti_įvykį.

    Jūsų makrokomanda atrodys taip (galima naudoti kitą argumentų tekstą):

    Spausdinimo operaciją atšaukiančios makrokomandos pavyzdys

  10. Skirtuko dizainas grupėje uždarymas spustelėkite Įrašyti kaip, ir tada naudokite dialogo langą Įrašyti kaip įveskite makrokomandos pavadinimą.

  11. Uždarykite makrokomandą. Jei bus rodomas įspėjimo pranešimas ir klausiama, ar įrašyti makrokomandos ir ataskaitos ypatybių keitimus, spustelėkite Taip ir pereikite prie kitų tikrinimo veiksmų.

Makrokomandos tikrinimas

  • Naršymo srityje dešiniuoju pelės mygtuku spustelėkite ataskaitą, kurioje yra makrokomanda, tada spustelėkite Spausdinti. Atsižvelgiant į pasirinktas parinktis, turėtų būti rodomas panašus įspėjimo pranešimas:

    Pranešimo laukas, rodomas, kai ataskaitoje nėra įrašų

    Spustelėjus Gerai norint uždaryti pranešimą, veiksmas Atšaukti_įvykį sustabdo spausdinimo operaciją. Kadangi nenurodėte jokio kito įvykio (pavyzdžiui, atidaryti ataskaitą peržiūrai), ataskaita uždaroma.

Puslapio viršus

VBA kodo naudojimas spausdinimui atšaukti

Čia aprašytas VBA kodas veikia panašiai kaip ankstesniame skyriuje aprašyta makrokomanda – atidarius tuščią ataskaitą, bus rodomas įspėjimo pranešimas, o uždarius įspėjimo pranešimą spausdinimo operacija bus atšaukta.

VBA kodo įtraukimas

  1. Naršymo srityje dešiniuoju pelės mygtuku spustelėkite norimą keisti ataskaitą, tada spustelėkite Dizaino rodinys.

    Pastaba: Norėdami atlikti šią procedūrą naudoti ataskaitą, kurioje yra įrašų.

  2. Skirtuko Dizainas grupėje Rodymas/slėpimas spustelėkite Ypatybių lapas.

    ARBA

    Dukart spustelėkite ataskaitos lauką, (pagal jūsų regiono ir kalbos parametrus) esantį viršutiniame kairiajame arba dešiniajame kampe.

  3. Spustelėkite skirtuką įvykis ir Nesant duomenims ypatybės lauke spustelėkite Daryklės mygtukas .

    Bus parodytas dialogo langas Daryklės pasirinkimas.

  4. Spustelėkite Kodo daryklė, tada spustelėkite Gerai.

    Paleidžiama Visual Basic rengyklė ir rodoma tuščia įvykio procedūra.

  5. Įveskite šį kodą Visual Basic rengyklėje, kad baigus procedūra Ataskaita_Nėra_duomenų (Report_NoData) būtų rodoma tiksliai taip:

    Private Sub Report_NoData (Cancel As Integer)
    MsgBox "There are no records to report", vbExclamation, "No Records"
    Cancel = True
    End Sub
  6. Kai baigsite, spustelėkite failas, ir spustelėkite įrašyti.

  7. Spustelėkite failasir tada spustelėkite uždaryti ir grįžti į Microsoft Office Access.

  8. Uždarykite atidaryti ataskaitą, ir spustelėkite taip patvirtinti įrašyti.

  9. Naršymo srityje dešiniuoju pelės mygtuku spustelėkite ką tik pakeistą ataskaitą, tada spustelėkite Spausdinti. Bus parodytas toks pranešimas:

Pranešimo laukas, rodomas, kai ataskaitoje nėra įrašų

Atliekant procedūrą Ataskaita_Nėra_duomenų (Report_NoData), funkcija Pranešimo_laukas naudojama pranešimui Ataskaitoje nėra įrašų ir mygtukui Gerai rodyti. Spustelėjus Gerai, procedūros eilutė 'Atšaukti=Teisinga'(Cancel=True) nurodo programai Access atšaukti ataskaitą. Atšaukti yra argumentas, kuris automatiškai pateikiamas įvykio procedūrai ir kurį programa Access visuomet tikrina užbaigusi įvykio procedūrą.

Puslapio viršus

Tobulinkite savo „Office“ įgūdžius
Ieškoti mokymo
Pirmiausia gaukite naujų funkcijų
Prisijunkite prie „Office Insider“ dalyvių

Ar ši informacija buvo naudinga?

Dėkojame už jūsų atsiliepimus!

Dėkojame už jūsų atsiliepimą! Panašu, kad gali būti naudinga jus sujungti su vienu iš mūsų „Office“ palaikymo agentų.

×