Page 1 sur 1

Etat sans données

Posté : 26 mars 2007, 09:55:13
par Chorguy
Hello,

J'ai un état filtré qui s'ouvre et je gère dans le Nodata le fait qu'il n'y ait pas de données : Msgbox "Pas de données ..." Cancel = true. Ca fontionne bien, l'état se ferme, mais j'ai un message d'erreur d'Access me disant que ma commande d'ouverture de l'état à échouer.

Comment faire d'autre que de tester le numéro d'erreur dans le gestionnaire d'erreur de l'ouverture de l'état ? Si je le fais comme ça
(if err.number <> xxx then
msgbox err.description
end if
et sortie du code)
j'ai peur de louper une vraie erreur.

Que me conseillez-vous ? Merci d'avance

Posté : 28 mars 2007, 19:05:31
par nouv
bonjour,

en admettant que tu ouvres ton état à l'aide d'un bouton dans un formulaire.
en admettant que ton état est basé sur une requête qui sert de filtre
le code vba est du genre [nom état = service ; nom requête = filtre service]

Code : Tout sélectionner

    stDocName = "service"
    DoCmd.OpenReport stDocName, acPreview, "filtre service"
pour que l'état ne s'ouvre pas il suffit de compter le nombre d'enregistrement donné par ton filtre

Code : Tout sélectionner

    totalenregistrement = DCount&#40;"*", "filtre service"&#41;
    If totalenregistrement = 0 Then Exit Sub
bon là je lui dit de sortir de la commande d'ouverture mais tu peux marquer ce que tu veux à la place d'exit sub

><>