Access VBA: Est-il possible de réinitialiser erreur de manipulation

On error goto 0 donner la main à visual basic pour le traitement des erreurs (en général de la boîte de message)

On error goto label va rediriger votre code de étiquette:

On error resume next va ignorer l'erreur et de continuer

Resume next rediriger le code à la ligne suivante après l'erreur est générée

cela signifie que les combinaisons d'instructions telles que

On Error goto 0
...
On Error goto 0

ne font pas sens

Et si vous souhaitez rediriger une "erreur" d'instruction que vous avez à faire de cette façon:

Do While Not rs.EOF

    On Error Resume Next
    rs2.Open strsql
    On error Goto 0

    rs2.moveNext

Loop

Si vous souhaitez rediriger l'erreur à un label (pour le traitement ou autre) et ensuite revenir à l'endroit du code où l'erreur s'est produite, vous devez écrire quelque chose comme:

On error goto label
...
...
On error goto 0
exit sub (or function)

label:
....
resume next
end function

Mais vraiment, je vous conseille d'être plus rigoureux sur votre gestion d'erreur. Vous devez d'abord être en mesure de faire quelque chose comme ça:

Set objexcel = CreateObject("excel.Application")
objexcel.Visible = True

On Error GoTo error_Treatment
wbExists = False
Set wbexcel = objexcel.Workbooks.Open("C:\REPORT3.xls")
Set objSht = wbexcel.Worksheets("Sheet1")
objSht.Activate
wbExists = True
On error GoTo 0

Set db = DBEngine.opendatabase("C:\book.mdb")
Set rs = db.OpenRecordset("records")

Set rs2 = CreateObject("ADODB.Recordset")
rs2.ActiveConnection = CurrentProject.Connection

For Each tdf In CurrentDb.TableDefs
    ....
    'there are a number of potential errors here in your code'
    'you should make sure that rs2 is closed before reopening it with a new instruction'
    'etc.'
Next tdf

Exit sub

error_treatment:
SELECT Case err.number
   Case **** '(the err.number raised when the file is not found)'
       objexcel.Workbooks.Add
       Set wbexcel = objexcel.ActiveWorkbook
       Set objSht = wbexcel.Worksheets("Sheet1")
       Resume next 'go back to the code'
   Case **** '(the recordset cannot be opened)'
       ....
       ....
       Resume next 'go back to the code'
   Case **** '(whatever other error to treat)'
       ....
       ....
       Resume next 'go back to the code'
   Case Else
       debug.print err.number, err.description '(check if .description is a property of the error object)'
       'your error will be displayed in the immediate windows of VBA.' 
       'You can understand it and correct your code until it runs'
End select
End sub

La prochaine étape sera d'anticiper les erreurs dans votre code, de sorte que l'objet err, ne sera pas augmenté. Vous pouvez par exemple écrire une fonction générique comme celui-ci:

Public function fileExists (myFileName) as Boolean

Vous pouvez alors profiter de cette fonction dans votre code par les tests de l'existence de votre fichier xls:

if fileExists("C:\REPORT3.xls") Then
    Set wbexcel = objexcel.Workbooks.Open("C:\REPORT3.xls")
Else
   objexcel.Workbooks.Add
   Set wbexcel = objexcel.ActiveWorkbook
Endif        
Set objSht = wbexcel.Worksheets("Sheet1")
objSht.Activate

Vous n'avez pas besoin de votre wbExist variable... plus

De la même manière, vous devez anticiper le cas où votre jeu d'enregistrements a pas de documents. L'écriture en bas de rs.MoveFirst avant le test, il pourrait générer une erreur. Vous devez ensuite rédiger

If rs.EOF and rs.BOF then
Else
    rs.moveFirst
    Do while not rs.EOF
         rs.moveNext
    Loop
Endif

OriginalL'auteur Philippe Grondier

essayer

On Error Goto 0

Pour plus d'aide, regardez ici: http://msdn.microsoft.com/en-us/library/bb258159.aspx

OriginalL'auteur Dirk Vollmar