Discussion :

[Caroline1]

Bonsoir,

Y a-t-il moyen de récupérer une erreur de violation de clé par le code?

J'ai une fonction, dans un module standard, pour importer les données d'une ancienne application vers une nouvelle structure de DB.

J'ai désactivé le Warning automatique d'Access (DoCmd.SetWarnings False)... et du coup, je n'ai pas plus de message de confirmation avant le insert (cool) que de message indiquant une violation de clé (oups).

Des pistes où chercher?
Je me suis déjà retrouver avec un problème semblable. J'avais alors utilisé un simple DLook pour voir si une violation s'était produite... Pour cette situation, il me semble que ce serait bien trop lourd de faire ça (insertion de temps en temps contre insertion massive pour ce problème-ci.)

Merci!
Caroline

[Faw]

Si cette erreur porte un numéro tu peux l'intercepter dans une gestion
d'erreurs avec err.number du style

Code :

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

1
2
3
4
5
6
7
8
9
10
11
On error GoTo Err1
...
ton traitement
....
Exit_Err1:
    Exit Sub
Err1:
        If Err.Number =  LaValeur Then 
            MsgBox Err.Description
        End If
    Resume Exit_Err1

[Lou Pitchoun]

Salut,
As tu pensé à remettre

Code :

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

DoCmd.SetWarnings True

juste avant le moment ou tu aurais besoin des messages d'erreurs ??

[Caroline1]

Merci pour vos réponses.

As tu pensé à remettre

Code :

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

DoCmd.SetWarnings True

Oui bien sûr. Il y a deux messages d'avertissement standard qui est activé/désactivé en même temps. Le premier est une demande de confirmation (pour une insertion massive, c'est pas tellement viable. Il faut la désactiver). Le deuxième avertissement survient si l'enregistrement n'a pas été inséré. C'est celui là que j'aimerais bien récupérer...

Si cette erreur porte un numéro

... mais il n'y a pas de numéro d'erreur dans le message. Je commence ma journée avec ça : voir si une gestion d'erreur n'intercepterait pas quand même "quelque chose".

Caroline

[Caroline1]

voir si une gestion d'erreur n'intercepterait pas quand même "quelque chose".

La réponse est non. :-/

[Caroline1]

Solution trouvée :
Utiliser la méthode Execute de Database plutôt que le RunSQL.

• Les messages d'avertissements d'Access n'ont pas besoin d'être désactivés.
• On peut savoir combien d'enregistrement ont pu être insérés/supprimés
• L'option dbFailOnError de la méthode Execute permet de gérer les erreurs qui se produisent (en ajoutant un On Error bien standard).

Code exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Dim db As DAO.Database
Dim strSQL as String
On error goto ErrGestion
 
strSQL = "INSERT INTO tblOrdinateurs(IDOrdinateur) VALUES('Test')"
Set db = CurrentDb
db.Execute strSQL, dbFailOnError
Debug.Print db.RecordsAffected   'pour strSQL-> 0 ou 1
 
Set db = nothing
 
Exit Sub
ErrGestion:
    Select Case err.Number
      Case 3022 'Violation de clé
           'Écrire dans le fichier log
            Debug.Print "L'ordinateur dont le numéro de série est «Test» " & _
                    "existe déjà dans le nouveau système."   '<- En attendant...
           Resume Next
      Case Else
           err.raised err.number 'Erreur non traitée
    End Select