Undgå at åbne en rapport, hvis ingen data at vise
Vi kan forhindre en rapport, åben, hvis ingen data at vise, og til dette bruger vi to former afhængigt af den version af Access:
1 - Alle versioner af Access
Placer koden nedenfor egenskaber rapporten, hvis "Aktivering af forb.
Brug begivenhed Enabling (Aktivér) Rapport:
Private Sub Report_Activate ()
Hvis DCOUNT ("*", Me.RecordSource) = 0 Så
MsgBox "Ingen poster at vise" vbDefaultButton1, "Fejl!"
AcReport DoCmd.Close, "rapport navn"
End If
End Sub
2 - Fra version 7 (Access 95) blev tilføjet event ', hvis ingen data', så kan vi urilizar følgende kode:
Private Sub Report_NoData (Cancel As Integer)
MsgBox "Ingen data i rapporten.", VbInformation, "Fejl!"
Annuller = True
End Sub
Hvis du vil se kører downloade eksempel: Undgå åbning rapport






























Jeg spekulerer på, hvilken version af Access, som du bruger til at åbne systemet Salg på min maskine, er en besked format database ikke genkendt.
Alle eksempler er lavet i Access 2003. Kan jeg sende i et andet format, før Access 2003, hvis du ønsker.
Godmorgen, jeg laver en skemaform, denne form er der tre felter i hver kolonne med formler (expressaão) eksempler:
Calculado1 Periode - (minus) periode calculado2
(Space w / sætte dato) (plads p / sætte dato)
Calculado3 Periode - (minus) periode calculado4
(Space w / sætte dato) (plads p / sætte dato)
Calculado5 Periode - (minus) periode calculado6
(Space w / sætte dato) (plads p / sætte dato)
efter at han gør resultatet af forskellen af dato så ganger med 30 med relation til en månedlig "X", så resultatet af udtryk i disse kolonner vil resultere i at tilføje en anden med et felt kaldet Credit, og p / vises Resultatet i feltet Crediton Gotta udfylde alle de kolonner som felter ikke er af datasn eller at sætte datoen 00/00/0000, hvis jeg stod op var det allerede nok, blot mangler dette w / afslutte mit arbejde.
Hvis du kan hjælpe mig tak og tillykke til bloggen Abrç. Thiago
Hvis du ikke har forstået Poso Send w / du via e-mail fra allerede takke Dem for Deres opmærksomhed.
Du kan bruge NZ-funktionen
Calculado1 Periode - (minus) NZ (calculado2 periode)
Hej Jose
Jeg har hentet dit salg systemet, MS har mange
til DEBUG, downloades til system salg for mig.
taknemmelig.
Du har en prøve fil hvordan du bruger DLookup funktionen = e = DLookup
Hej, jeg kom til at kende sin blog, og ønsker god aften
bjsss
Jeg venter på dit besøg
Det er super enkelt at forhindre en åben rapport
1) Åbn rapporten i designvisning og åbne Egenskaber for formular.
2) Gå til Event fanen og vælg Hvis ingen data
3) Klik på ellipse (...)
4) Indtast koden herunder
Private Sub Report_NoData (Cancel As Integer)
MsgBox ("NO oplysninger til denne rapport")
End
End Sub
5) Luk editor VISUAL BASIC
6) Bemærk, at der vises i option Hændelsesprocedure er ingen data
7) Du kan køre dit program.
Der er mange måder at nå et mål, bare vælge og være kreativ.
Du kan bruge NZ-funktionen
Calculado1 Periode - (minus) NZ (calculado2 periode)
Godmorgen! Du kan oprette en knap på formularen til at udføre en backup af databasen?
Grateful.
Tillykke med jobbet! Jeg besøger dit websted daglige ... BTW, ville jeg angive stedet http://www.iAulas.com.br der vil du finde mere end 10.000 lærebøger til fri download alle former for emner, herunder uddelingskopier adgang ... Jeg har hjulpet ...
blev virkelig ser vidunderlige eksempler på adgang
Mange tak