A l'ouverture d'un état sur l'evenement No_data, j'ai inseré un msgbox
signalant la non presence de données le cas echeant.
Or apres cette info, une autre fenetre ("l'action Openreport a été annulé")
vient s'affiché.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Gilbert
Bonjour dopamind
Il faut gérer ce message dans la procédure qui appelle l'ouverture de ton état avec quelque chose dans ce genre Sub toto DoCmd.OpenReport "aaaaa" Exit_toto: Exit Sub Err_toto: If Err.Number = 2501 'Pas de message Else MsgBox Err.Number & " " & Err.Description, , Titre_Msg_Err End If Resume Exit_toto End Sub
Cordialement Gilbert
Bonjour dopamind
Il faut gérer ce message dans la procédure qui appelle l'ouverture de ton
état avec quelque chose dans ce genre
Sub toto
DoCmd.OpenReport "aaaaa"
Exit_toto:
Exit Sub
Err_toto:
If Err.Number = 2501
'Pas de message
Else
MsgBox Err.Number & " " & Err.Description, , Titre_Msg_Err
End If
Resume Exit_toto
End Sub
Il faut gérer ce message dans la procédure qui appelle l'ouverture de ton état avec quelque chose dans ce genre Sub toto DoCmd.OpenReport "aaaaa" Exit_toto: Exit Sub Err_toto: If Err.Number = 2501 'Pas de message Else MsgBox Err.Number & " " & Err.Description, , Titre_Msg_Err End If Resume Exit_toto End Sub
Cordialement Gilbert
dopamind
merci bien gilbert bonne journée.
"Gilbert" a écrit dans le message de news:%
Bonjour dopamind
Il faut gérer ce message dans la procédure qui appelle l'ouverture de ton état avec quelque chose dans ce genre Sub toto DoCmd.OpenReport "aaaaa" Exit_toto: Exit Sub Err_toto: If Err.Number = 2501 'Pas de message Else MsgBox Err.Number & " " & Err.Description, , Titre_Msg_Err End If Resume Exit_toto End Sub
Cordialement Gilbert
merci bien gilbert
bonne journée.
"Gilbert" <gilbert.vie@infonie.fr> a écrit dans le message de
news:%23ybz9q4oDHA.1740@TK2MSFTNGP12.phx.gbl...
Bonjour dopamind
Il faut gérer ce message dans la procédure qui appelle l'ouverture de ton
état avec quelque chose dans ce genre
Sub toto
DoCmd.OpenReport "aaaaa"
Exit_toto:
Exit Sub
Err_toto:
If Err.Number = 2501
'Pas de message
Else
MsgBox Err.Number & " " & Err.Description, , Titre_Msg_Err
End If
Resume Exit_toto
End Sub
Il faut gérer ce message dans la procédure qui appelle l'ouverture de ton état avec quelque chose dans ce genre Sub toto DoCmd.OpenReport "aaaaa" Exit_toto: Exit Sub Err_toto: If Err.Number = 2501 'Pas de message Else MsgBox Err.Number & " " & Err.Description, , Titre_Msg_Err End If Resume Exit_toto End Sub
