Voorkom dat het openen van een rapport als er geen gegevens om aan te tonen
Woensdag de 20 mei 2009We kunnen voorkomen dat een rapport geopend als er geen gegevens aan te tonen, en om deze gebruiken we twee vormen aannemen, afhankelijk van de versie van Access:
1 - Alle versies van Access
Plaats hieronder de code in de eigenschappen van het rapport, het evenement 'enabling'
Gebruik het evenement Enabling (Activeren) Verslag:
Private Sub Report_Activate ()
Als DCount ("*", Me.RecordSource) = 0 Then
MsgBox vbDefaultButton1, "Geen records om te laten zien" "Fout!"
AcReport DoCmd.Close, "report naam"
End If
End Sub
2 - Vanaf versie 7 (Access 95) werd toegevoegd het evenement 'als er geen gegevens', dan kunnen we de volgende code urilizar:
Private Sub Report_NoData (Cancel As Integer)
MsgBox "Er zijn geen gegevens in het rapport.", VbInformation, "Fout!"
Cancel = True
End Sub
Om te zien draait het downloaden van de voorbeeld: Voorkom opening rapport
