[AC-2002] SetWarnings - Message personnalisé [Résolu]

[delisle59]

Bonjour,

J'ai le code suivant:

Code :

1
2
3
4
5
 
DoCmd.SetWarnings False
DoCmd.RunSQL ("Insert into .....")
'J'aimerais récupérer l'erreur ici
DoCmd.SetWarnings True

J'aimerais pouvoir personnaliser le message s'il y a insertion de doublon ou aviser l'usager que tout c'est bien déroulé s'il n'y a pas eu de doublons. Je n'arrive pas à récupérer le message d'erreur.

Merci de bien vouloir m'aider.
Patrice

[ClaudeLELOUP]

Bonjour,

Un exemple :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Sub tst()
On Error GoTo GestionErreur
DoCmd.SetWarnings False
DoCmd.RunSQL ("Insert into .....")
'J'aimerais récupérer l'erreur ici
DoCmd.SetWarnings True
Exit Sub
GestionErreur:
Select Case Err.Number
  Case 3450
    MsgBox "c'est ça que tu veux ?"
  Case Else
    MsgBox "une autre erreur à traiter : " & Err.Number & "  " & Err.Description
 
End Select
End Sub

[Jack78960]

Bonjour, je pense que tu as inversé le setWarning.

Code :

1
2
3
4
DoCmd.SetWarnings True
DoCmd.RunSQL ("Insert into .....")
'J'aimerais récupérer l'erreur ici
DoCmd.SetWarnings False

avec cette commande,les messages données par access seront visible par l'utilisateur ==> bien sur pour avoir un message d'alerte, ta table, dans lequel tu insères les enregistrement, doit avoir un index qui interdira les doublons ( clef unique) ==> dans ce cas , Access te donnera le nombres d'enregistrements éliminés

[delisle59]

Merci Jack mais ce que je veux c'est gérer moi même le message.

Pour Claude, j'ai déjà une trappe d'erreur mais le problème c'est que Access ne semble pas générer d'erreur mais un avertissement et il ne passe pas par la trappe d'erreur. De là mon problème.

[ClaudeLELOUP]

J'ai testé avant de poster ma réponse. Chez moi ça marche.
Mon code se trouve dans un module général (donc pas dans celui d'un formulaire).
Si ta trappe d'erreur ne fonctionne pas, essaie de modifier ton code en le déportant hors ton formulaire.

Comprends-tu ce que je veux dire ?

Si non, poste le code complet. Je pourrai alors être plus concret.

[Kloun]

Bonjour,

Et mettre un

Code :

currentdb.execute MonSQL, dbfailOnError

à la place de

Code :

1
2
3
4
DoCmd.SetWarnings False
DoCmd.RunSQL ("Insert into .....")
'J'aimerais récupérer l'erreur ici
DoCmd.SetWarnings True

[ClaudeLELOUP]

Evitons les MP(rivés) quand c'est possible...

... et pour ton MP(ersonnalisé) ,
la solution de Kloun est ta solution :

J'ai une table1 avec un [ChampUnique] sans doublon.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Public Sub tst2()
On Error GoTo GestionErreurs
CurrentDb.Execute "INSERT INTO Table1 ( champUnique ) SELECT ""a"" AS Expr1;", dbFailOnError
Exit Sub
GestionErreurs:
Select Case Err.Number
  Case 3022
     MsgBox " il y a des doublons!"
  Case Else
     MsgBox Err.Number & "   " & Err.Description
End Select
End Sub

à la 2ème exécution, tu trappes l'erreur.

Je ne connaissais pas

Code :

currentdb.execute MonSQL, dbfailOnError

Merci kloun !

[delisle59]

Merci à tous,

Ce problème n'en est plus un maintenant