Discussion :

[kluh]

Bonjour, j'ai une question concernant la gestion des erreurs:
Je parcours un recordset, et pour chaque enreg je fais un insert.
Si l'insert se passe mal, j'aimerais tracé l'erreur, mais continué à parcourir ma boucle pour inserer les autres enreg...
Est ce faisable dans une même fonction?
Car si je fais un On Erro GoTo, je vais obligatoirement sortir de ma boucle...

[kluh]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    While Not oRst.EOF
        requeteValues = "'" & oRst.Fields(0).Value & "'"
        For Compteur = 1 To 22
            requeteValues = requeteValues & ", " & "'" & oRst.Fields(Compteur).Value & "'"
        Next Compteur
        'MsgBox "Value " & requeteValues
        requeteInsert = "INSERT INTO MATABLE VALUES(" & requeteValues & ")"
        oDbWrite.Execute requeteInsert, dbFailOnError
        'Si erreur, insert l'id dans une table de log...
        oRst.MoveNext
    Wend

Voici le code...
Suis obligé d'appeler une fonction pour l'insert, dans laquelle je pourais faire mon On Error GoTo ou y a t il une autre solution?

[Petogaz]

salut,

il tout à fait possible de le faire mais en utilisant On error resume next et mettre un teste sur la description de l'erreur pour la tracer à la fin du code.

[keita]

tu pourrais aussi explorer du coté de:
GoSub...Return, instruction
et
On...GoSub, On...GoTo, instructions
dans l'aide d'access.

[kluh]

salut,

il tout à fait possible de le faire mais en utilisant On error resume next et mettre un teste sur la description de l'erreur pour la tracer à la fin du code.

Le problème est que je peux avoir plusieurs erreurs...

[kluh]

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
 
Public maFunction()
...
...
    While Not oRst.EOF 
        requeteValues = "'" & oRst.Fields(0).Value & "'" 
        For Compteur = 1 To 22 
            requeteValues = requeteValues & ", " & "'" & oRst.Fields(Compteur).Value & "'" 
        Next Compteur 
        'MsgBox "Value " & requeteValues 
        requeteInsert = "INSERT INTO MATABLE VALUES(" & requeteValues & ")" 
        oDbWrite.Execute requeteInsert, dbFailOnError 
        'Si erreur, insert l'id dans une table de log... 
        On Error GoTo trace_erreur
        oRst.MoveNext 
    Wend
Exit Function
 
trace_erreur
'mon insert dans ma table qui va bien...
return
End Function

Est ce que ceci fonctionnerait?

[kluh]

tu pourrais aussi explorer du coté de:
GoSub...Return, instruction
et
On...GoSub, On...GoTo, instructions
dans l'aide d'access.

Le pb est qu'après un On Error, il faut obligatoirement un GoTo ou un Resume...

[Frank]

Tu as dans la FAQ une fonction à mettre en place qui permet de tracer les erreurs, de remonter son numéro et sa description.

[Tofalu]

Voici le code...
Suis obligé d'appeler une fonction pour l'insert, dans laquelle je pourais faire mon On Error GoTo ou y a t il une autre solution?

Pourtant c'est la plus belle des méthodes.

Ainsi ta fonction retourne vrai si succès ou une erreur prévue (genre doublons) mais que tu veux passer outre. Et false si une erreur non prévue (genre impossible de contacter la base dorsale)

Et dans ton programme principale, tu boucles sur ton recordset, appelle la fonction et si le résultat vaut true, tu continues à boucler, sinon, tu sors soit en levant une erreur (err.raise) soit avec un Exit For par exemple (si une boucle for)