Spausdinti ataskaitą, jei jame nėra jokių įrašų atšaukimas

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 nustatymus galite išspausdinti ataskaitas, kuriose yra jokie įrašai. Norėdami išspręsti šią problemą, galite naudoti makrokomandą arba Microsoft Visual Basic for Applications (VBA) kodas ataskaitoje nėra įrašų ir atšauktumėte spausdinimo operaciją. Šiame straipsnyje aprašoma, kaip naudoti abu būdus.

Ką norėtumėte daryti?

Naudoti makrokomandą atšaukti spausdinimą

Naudokite VBA kodą atšaukti spausdinimą

Tikriausiai norėsite atšaukti spausdinti ataskaitą jame nėra jokių įrašų. Pavyzdžiui, jei pradedate parduoti naują produktą, yra gali būti tam tikrą laiką, jei dar neturite užregistruoti bet kokį pardavimą. Todėl turėtumėte galimybę, gali savo ataskaitų nėra išsamios informacijos įrašų ir agregavimo funkcijos, pvz., funkcija Count , gali būti nieko skaičiuoti. Elegantiška tvarkyti toks įvykis, galite sukurti makrokomandą, kuri atšaukia spausdinimo užduotį. Taip pat galite įtraukti kelias eilutes atidžiai perkeltas į VBA kodą daryti tą patį. VBA yra programavimo kalba, Access naudoja.

Galite pridėti makrokomandą arba VBA kodas pranešimo Apie ne Data įvykio procedūra. Access 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į.

Naudoti makrokomandą atšaukti spausdinimą

Šiame skyriuje aprašytus Makrokomandos rodomas įspėjimo pranešimas, kai bandote spausdinti tuščią ataskaitą. Kai spustelėsite gerai , kad uždarytumėte langą pranešimą, makrokomandos automatiškai atšaukia spausdinimo operaciją. Jei jums negali būti įspėjimo pranešimas, kuris bus rodomas, jei nieko nevyksta, kai bandote spausdinti ataskaitą, ką nors, kad tikriausiai bus suklaidinti vartotojų ataskaitos.

Makrokomandos kūrimas

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

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

    –arba–

    Du kartus spustelėkite langelį viršutiniame kairiajame arba dešiniajame kampe ataskaitą, atsižvelgiant į jūsų regiono ir kalbos parametrus.

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

    Rodomas dialogo langą Daryklės pasirinkimas .

  4. Spustelėkite Makrokomandų daryklėir spustelėkite gerai.

    Makrokomandų prasideda ir rodoma tuščia makrokomanda.

  5. Makrokomandų veiksmus makrokomandų dizaino lango išplečiamajame sąraše pasirinkite MessageBox iš sąrašo.

  6. lauke pranešimas įveskite tekstą įspėjimo pranešimą.

    Pavyzdžiui, galite įvesti šiuos veiksmus: įrašai, į ataskaitą.

  7. Jei norite, pakeiskite lauko Pypsėjimas argumento reikšmę iš taip į ne ir sąraše tipas pasirinkite norimą piktogramą, kurią norite Rodyti įspėjimo pranešimą.

  8. Lauke pavadinimas įveskite pavadinimą įspėjimo pranešimą.

    Pavyzdžiui, galite įvesti Ne įrašus.

  9. Pasirinkite išplečiamajame sąraše makrokomandų veiksmų po MessageBox veiksmą, ir tada pažymėkite Atšaukti_įvykį.

  10. Skirtuko dizainas grupėje uždarymas spustelėkite įrašyti.

  11. Skirtuko Dizainas grupėje Uždarymas spustelėkite Uždaryti. Jei įspėjimo pranešimas, klausia, ar norite įrašyti pakeitimus į makrokomandą ir ataskaitos ypatybės, spustelėkite taip, uždarykite ataskaitą, įrašykite keitimus, jei būsite paraginti ir pereikite prie tolesnių veiksmų, kad jį patikrintumėte.

Patikrinkite savo makrokomandą

  • Naršymo srityje dešiniuoju pelės mygtuku spustelėkite ataskaitą, kurioje yra makrokomanda ir spustelėkite Spausdinti. Atsižvelgdami į rodomas parinktis pasirinkote, "Access" rodo įspėjimą.

    Kai spustelėsite gerai , kad uždarytumėte pranešimą, veiksmą sustabdo spausdinimo operaciją. Kadangi nurodėte kito įvykio (pavyzdžiui, atidaryti ataskaitą peržiūrai), ataskaita uždaroma.

Puslapio viršus

Naudokite VBA kodą atšaukti spausdinimą

Čia aprašytas VBA kodas veikia panašiai kaip ankstesniame skyriuje aprašyta makrokomanda – rodomas įspėjimo pranešimas, kai atidarote tuščią ataskaitą, ir tada atšaukia spausdinimo operaciją, kai uždarote įspėjimo pranešimą.

VBA kodo įtraukimas

  1. Naršymo srityje dešiniuoju pelės mygtuku spustelėkite ataskaitą, kurią norite keisti, 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–

    Du kartus spustelėkite langelį viršutiniame kairiajame arba dešiniajame kampe ataskaitą, atsižvelgiant į jūsų regiono ir kalbos parametrus.

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

    Rodomas dialogo langą Daryklės pasirinkimas .

  4. Spustelėkite Kodo daryklė, ir spustelėkite gerai.

    "Visual Basic" rengyklę paleidžiama ir rodoma tuščia įvykio procedūra.

  5. Įveskite šį kodą programoje "Visual Basic" rengyklę, kad Ataskaita_Nėra_duomenų tvarka atrodo lygiai taip pat, kaip tai, kai tai padarysite:

    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 Access.

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

  9. Naršymo srityje dešiniuoju pelės mygtuku spustelėkite ataskaitą, ką tik pakeisti, ir spustelėkite Spausdinti. Atsižvelgdami į rodomas parinktis pasirinkote, "Access" rodo įspėjimą.

Procedūra Ataskaita_Nėra_duomenų naudoja funkciją laukas rodomi įrašai, į ataskaitą pranešimą ir gerai mygtuką. Kai spustelėsite gerai, kad "atšaukti = TRUE (teisinga)" procedūros eilutė nurodo programa Access atšaukti ataskaitą. Atšaukti yra argumentas, kuris automatiškai perduodama įvykio procedūra visada pažymėtas ir prieigos kai įvykio procedūra bus baigtas.

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ų.

×