Bericht (msgbox) weergeven wanneer er geen data is.

[Marcotica]

Hallo,

Ik heb in een formulier een knop gemaakt.
Deze knop opent een rapport die is opgebouwd uit een query.
Het kan voor komen dat de query geen data weergeeft. Dus dan wordt er een leeg rapport getoond.
Nu zou ik een msgbox getoond willen krijgen als ik op de knop druk "open rapport", wanneer er geen data in het rapport/query staat.
Dus het script kijkt dan eerst of er data is, zoniet dan dient het rapport niet geopend te worden, maar een bericht venster getoond te worden.

(Het lijkt erop dat ik op de achtergrond eerst de query moet openen en dan uitzoeken of er data in zit, zoniet dan de msgbox tonen.)

heb e.e.a. geprobeert, maar krijg dit voor elkaar.
Wie o Wie kan mij hierin assisteren.

Mvg

Marco

 

[OctaFish]

Met een klein stukje code op het rapport:

Private Sub Report_NoData(Cancel As Integer)
    MsgBox "Geen gegevens"
    Cancel = True
End Sub

 

[Marcotica]

Met een klein stukje code op het rapport:

Private Sub Report_NoData(Cancel As Integer)
    MsgBox "Geen gegevens"
    Cancel = True
End Sub

7:45 uur
Michel,
De melding wordt inderdaad weergegeven. Echter het script dat nog bestaat om het het rapport te openen wordt daarna alsnog aangeroepen, maar dan geeft ie foutmelding. Foutmelding: 2501 "De actie Openreport is geannuleerd".
Hoe moet ik hiermee omgaan dan?

gr. Marco

8:25 uur.
Inmiddels opgelost. Inplaats van een vb script om de rapporten te openen, heb ik dit gedaan middels een macro.
Zodra de rapporten opend wordt er gekeken of er data is. Zo niet dan krijg ik de melding. Zodra er wel data is dan wordt het rapport goed geopend.
Bedankt voor de aanzet weer Michel

gr. Marco