[Toutes versions] Etat Plantage sur Nodata [Résolu]

[Aladin_23]

Bonjour le forum
J' ai un etat base sur une zone de liste déroulante, avec le code suivant sur l' évenement apres maj de la zone de liste deroulante

Code :

1
2
3
Dim stDocName As String
stDocName = "rptRécapitulatifPériodique"
DoCmd.OpenReport stDocName, acViewPreview, , "[Matricule] =" & Me.Matricule_Choisi

Si il existe des données en rapport au matricule l' Etat fonctionne correctement.
Pour palier le problème d' abscence de données, j' ai placé ce dode sur l' évenement NOdata de l' Etat

Code :

1
2
3
4
5
6
7
Dim strMsg As String, strTitre As String
    Dim intStyle As Integer
    strMsg = "il n' existe pas de données pour cette personne ."
   intStyle = vbOKOnly
    strTitre = "Abscence de donnée"
     MsgBox strMsg, intStyle, strTitre
    Cancel = True

En lancant l' Etat pour un matricule sans donnée, j' ai une erreur vba qui me renvoie sur le

Code :

DoCmd.OpenReport stDocName, acViewPreview, , "[Matricule] =" &

Merci d' avance pour toute aide
Aladin

[Aladin_23]

Bonjour le forum
Pb résolu en ajoutant une gestion d' erreur qui annule l' action d' ouverture de l' Etat
Aladin