Toegang Voorbeelden

Voorkom dat het openen van een rapport als er geen gegevens om aan te tonen

We 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

Geplaatst in Uncategorized | 13 Comments »

Hoe maak je een formulier geopend te voorkomen als geen records om te laten zien?

Soms is het noodzakelijk is om een ​​formulier geopend te voorkomen als er records, blijkt bijvoorbeeld bij het doen van een query en zich niet te registreren is niet nodig, hoeven we niet te open vorm te zijn omdat we geen gegevens om weer te geven. Dus wat we hebben om te controleren is of er gegevens aan te tonen en als er geen tonen een bericht en belemmeren de vorm open. Hoe?

Het is gemakkelijk om net onder zet de code in de vorm eigenschappen in het evenement 'te openen':

= 0 Then Als Form.RecordsetClone.RecordCount
MsgBox "Geen records gevonden.", VbExclamation, "Fout!"
DoCmd.Close acForm, "vinden gegevens"
Exit Sub
End If

Om een voorbeeld te zien downloaden: Voorkom Vorm Open

Geplaatst in voorbeelden , formulieren , Modules | 2 Comments »