Access-VBA: Ist es möglich, reset Fehlerbehandlung

On error goto 0 hand geben, um visual basic für Fehler-Behandlung (im Allgemeinen message box)

On error goto label leitet den code zu label:

On error resume next wird den Fehler ignorieren und fortfahren

Resume next Umleitung der code, um die nächste Zeile nach dem Fehler ausgelöst

bedeutet es, dass Kombinationen von Anweisungen wie

On Error goto 0
...
On Error goto 0

keinen Sinn machen

Und wenn Sie umleiten möchten einen "on error" - Anweisung, die Sie haben, es zu tun auf diese Weise:

Do While Not rs.EOF

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

    rs2.moveNext

Loop

Wenn Sie umleiten möchten einen Fehler auf einem Etikett (für die Behandlung oder was auch immer) und dann gehen Sie zurück zu dem code, wo der Fehler aufgetreten, haben Sie etwas zu schreiben wie:

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

label:
....
resume next
end function

Aber ich wirklich raten, Sie werden strenger auf Ihre Fehler-management. Sie sollten zunächst in der Lage sein, etwas zu tun:

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

Der nächste Schritt wird sein, zu antizipieren, die Fehler in Ihrem code so, dass das err-Objekt wird nicht erhoben werden. Sie können zum Beispiel schreiben eine generische Funktion wie diese:

Public function fileExists (myFileName) as Boolean

Können Sie dann nutzen Sie diese Funktion in Ihrem code durch die Prüfung der Existenz Ihrer xls-Datei:

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

Brauchen Sie nicht Ihre wbExist variable mehr...

In der gleichen Weise, sollten Sie erwarten der Fall, wenn das recordset keine Datensätze. Aufschreiben, rs.MoveFirst vor der Prüfung, könnte es ein Fehler. Sie sollten dann schreiben

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

versuchen

On Error Goto 0

Für weitere Hilfe schau mal hier: http://msdn.microsoft.com/en-us/library/bb258159.aspx