Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access TRAITEMENT D'ERREUR

TRAITEMENT D'ERREUR

1 réponse
Avatar
jpbataille
Bonjour,


Lorsque ACCESS crée du code VB il inclus un traitement d'erreur :

'================================================================
Private Sub TATA_Click()
On Error GoTo Err_TATA_Click

......
du code
......

Exit_TATA_Click:
Exit Sub

Err_TATA_Click:
MsgBox Err.Description
Resume Exit_TATA_Click

End Sub
'================================================================


Pourquoi faire un "RESUME" vers le "Exit_TATA_Click" alors que si on
laisse dérouler on sort quand même de la routine ?


Je ferais comme cela

'...........
Exit_TATA_Click: 'pour enjamber le traitement d'erreur
Exit Sub

Err_TATA_Click: 'traitement d'erreur
MsgBox Err.Description

End Sub
'==========================================================
Signaler un problème avec ce contenu

1 réponse

Supprimer
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
Avatar
Raymond [mvp]
Bonjour.

tu as tout à fait raison. tu peux supprimer le Exit_TATA_Click et le
resume. Mais ceci est fait et prévu pour rajouter des fonctions à la sortie
même s'il y a une erreur, telle que fermer des recordset ou charger les
objets à nothing. Dans bien des cas il faut le faire.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA


"JP Bataille" a écrit dans le message de
news:
Bonjour,


Lorsque ACCESS crée du code VB il inclus un traitement d'erreur :

'=============================================================== > Private Sub TATA_Click()
On Error GoTo Err_TATA_Click

......
du code
......

Exit_TATA_Click:
Exit Sub

Err_TATA_Click:
MsgBox Err.Description
Resume Exit_TATA_Click

End Sub
'=============================================================== >

Pourquoi faire un "RESUME" vers le "Exit_TATA_Click" alors que si on
laisse dérouler on sort quand même de la routine ?


Je ferais comme cela

'...........
Exit_TATA_Click: 'pour enjamber le traitement d'erreur
Exit Sub

Err_TATA_Click: 'traitement d'erreur
MsgBox Err.Description

End Sub
'==========================================================