Förhindra att öppna en rapport om inga data som visar
Onsdag, maj 20, 2009Vi kan förhindra en rapport öppen om inga data som visar, och för detta använder vi två former beroende på vilken version av Access:
1 - Alla versioner av Access
Placera koden nedan i egenskaperna för rapporten, om "möjligt för"
Använd händelsen Enabling (Aktivera) Betänkande:
Private Sub Report_Activate ()
Om DAntal ("*", Me.RecordSource) = 0 Då
MsgBox "Inga poster att visa" vbDefaultButton1, "Fel!"
AcReport DoCmd.Close, "Rapport namn"
End If
End Sub
2 - Från version 7 (Åtkomst 95) tillsattes händelsen "om inga data ', då kan vi urilizar följande kod:
Private Sub Report_NoData (Avbryt As Integer)
MsgBox "Inga uppgifter i rapporten.", VbInformation, "Fel!"
Avbryt = Sant
End Sub
För att se köra hämta exempel: Förhindra öppning rapport
