Discussion :

[David1259]

Bonjour le forum

Doit-on toujours mettre ça dans tout les formules

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
On Error GoTo Err_Aperçu_Click
 
 
 
Exit_Aperçu_Click:
    Exit Sub
 
Err_Aperçu_Click:
    MsgBox err.Description
    Resume Exit_Aperçu_Click

si non dans quelle cas on le met
et sont buts "en cas erreur" c'est bien ça


merci david @+

[Heureux-oli]

Salut,

Premier chose, ce ne sont pas des formules mais du code VBA.
Ce code est généré par Access lorsque tu utilises un assistant.
Il n'est pas nécessaire de mettre ce code à chaque fois. Ce code sert à gérer les éventuelles erreurs qui pourraient se produire lors de l'exécution de cette routine.

si on détaille le code d'un peu plus près, on obtient ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

On Error GoTo Err_Aperçu_Click

En cas d'erreur d'exécution, aller à Err_Aperçu_Click qui est une étiquette.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Err_Aperçu_Click:
    MsgBox err.Description
    Resume Exit_Aperçu_Click

Une étiquette est toujours suivie de :, ce qui fait que ces lignes sont exécutées si une erreur se produit.
la première ligne est une étiquette, la seconde appelle une fonction qui affichera au travers d'une boîte de message l'erreur qui vient de se produire.
Et enfin, la dernière demande de continuer le code à partir d'une autre étiquette.
Cette dernière est suivie du d'une commande qui va sortir de la procédure et arrêter l'exécution de ton code.

Si tu veux en apprendre un peu plus en VBA, tu peux toujours lire ce que tu trouveras ici : http://heuruexoli.developpez.com/office/word/vba01/