Access Eksempler

Undgå at åbne en rapport, hvis ingen data at vise

Onsdag, maj 20, 2009

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

Posted in Ikke kategoriseret | 13 kommentarer »