Melding geen records gevonden bij formulier

[gebo51]

Hallo

Ik heb een formulier (met een gekoppeld subformulier) die zich opent nadat er via een dialoogvenster twee criteria zijn ingevoerd.

Bij een rapport kun je bij een event met vba aangeven dat een bericht moet worden getoond bij 'geen gegevens' Bij een formulier mis ik ik echter dit event.

Is het wel mogelijk om dit event bij een formulier in te geven, of moet ik het op een andere manier oplossen.

Bedankt alvast

 

[Guus2005]

In het dialoog venster kan je aftesten of het resultaat van je parameters wel records bevat. Aan de hand daarvan kan je bepalen of het form geopend moet worden of niet.

 

[gebo51]

Dank je Guus2005 voor je snelle reactie.

Ik denk zelf aan een if else statement opnemen bij de ok knop met de verwijzing naar de query.

Stel dat de querynaam 'qry1' is.
Hoe stel ik dan de if else statement op?
Of is dit niet de juiste manier??

Bedankt maar weer...

 

[Guus2005]

Geen records gevonden

if dcount("*","tabelnaam","veld1 = '" & me.veld1 & "'") > 0 then
   docmd.openform "formnaam"
else
   msgbox "Geen records gevonden", vbcritical, "Applicatie naam"
endif

Enjoy!

 

[gebo51]

:thumb:Beste Guus2005,

Dank voor je reactie.
Het werkt!
Helemaal perfect:thumb: