Discussion :

[nico84]

Bonjour à tous,

J'ai un gros souci avec la gestion des erreurs sous Access : dans tous mes codes VBA je mets l'instruction

Code :

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

DoCmd.SetWarnings Mode_debug

devant DoCmd.RunSQL UPDATE, DELETE ou INSERT

Ainsi quand je teste l'appli je peux controler que les instructions se passent normalement, mais je dois sans arrêt valider des messages

Code :

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

vous allez mettre à jour 1 ligne

Une fois chez le client

Code :

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

setwarnings=false

donc plus de message débile mais si access rencontre un problème il n'execute pas l'instruction et ne fait aucune alerte

Y a-t-il une solution qui renvoie sur une gestion d'erreur ou qui ne met un message qu'en cas de problème ???

[Domi2]

Bonjour,

Tu peux utiliser la méthode "Execute". Exemple :

Code :

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

1
2
3
4
5
6
7
On Error Goto GestionErreur
 
Dim strSql As String
 
strSql = ("UPDATE...;")
 
CurrentDb.Execute strSql, dbFailOnError

En cas d'erreur, les mises à jour sont annulées et tu rentres dans ta gestion d'erreur. Là, tu peux encore améliorer en récupérant le numéro d'erreur et réagir en conséquence.

Domi2

[nico84]

Super merci beaucoup

J'avais déjà une gestion d'erreur donc j'ai juste à remplacer mes RunSQL

En plus le message d'erreur est bien plus précis