MS Access: On Error GoTo not working

Access 11

Have a Public Sub in my Main module that is designed to read field descriptions from fields in one database and copy them over to field descriptions in the local database.  In it, I use On Error GoTo to handle the errors (mainly intended for a table or the description property for a field not being found).  The compiler seems to be totally ignoring the On Error GoTo directives.  It breaks the code and displays the error as if there was no On Error there, at all.

I've used breaks to step through the code one line at a time.  It's never branching to the named line following GoTo, even though it's immediately before the line raising the error.

I've checked to be sure that "Break on All Errors" is not selected in the VBA editor (Tools -> Options -> General).  It's set to "Break on Unhandled Errors".

Note that NONE of the On Error statements in this sub appear to be working.  I've tried both calling it from the Immediate window as well as making it an OnClick sub on a form.  Same results.

Any ideas?

Thanks,
Bruce

Public Sub LoadDescriptions()
On Error GoTo ShowError

' Reads field descriptions from one database and writes them to the next.
' List of tables to update comes from ExportList.

'From top of Main module:
'Public dbLinked As DAO.Database
'Public dbLocal As DAO.Database

'Public rstLinked As DAO.Recordset
'Public rstLocal As DAO.Recordset

'Public tblsLinked As TableDefs
'Public tblsLocal As TableDefs

'Public tdfLinked As TableDef
'Public tdfLocal As TableDef
'Public tdfNew As TableDef
'Public fld As Field

Dim rstList As DAO.Recordset
Dim xList As Integer    'For iterating ExportList.
Dim yList As Integer
Dim tblName As String

Dim xTbls As Integer    'For iterating Fields in source table.
Dim yTbls As Integer
Dim fldName As String
Dim fldDesc As String
Dim strConnect As String
Dim dbPath As String
Dim flds As Fields

Dim tstLocal As String
Dim tstLinked As String

Dim prp As Property


dbPath = "C:\Documents and Settings\Bruce\Desktop\New AIS\Backups\NewAIS 3-22-11.accdb"
strConnect = ";DATABASE=" & dbPath

Set rstList = CurrentDb().OpenRecordset("ExportList")
rstList.MoveLast
rstList.MoveFirst
yList = rstList.RecordCount

yList = 3  'done for testing

For xList = 1 To yList
    'Get name of table.
    tblName = rstList!tblName
    
    'Delete old linked table, if any.
    If IsTable("linked") Then DoCmd.DeleteObject acTable, "linked"
    
    'Attempt to connect to remote table.  If it's not there, go to next one.
    On Error GoTo AroundTable
    
    Set tdfLinked = CurrentDb.CreateTableDef("linked")
    tdfLinked.Connect = strConnect
    tdfLinked.SourceTableName = tblName
    CurrentDb.TableDefs.Append tdfLinked
        
    'Verify table is in local database.
    If Not IsTable(tblName) Then
        MsgBox "No table named " & tblName & " in this database."
        GoTo AroundTable
    End If
    
'    tblName = tblName & "x"
'    Used for forcing a bad name.  On Error GoTo does not work if used.
    
    'Open the two tables.
    On Error GoTo BadOpenLocal
    Set rstLocal = CurrentDb().OpenRecordset(tblName)
    
    On Error GoTo BadOpenLinked
    Set rstLinked = CurrentDb().OpenRecordset("linked")
    Set flds = rstLinked.Fields
    
    
    'Scan through remote table's fields and get description.  If not
    ' there, an error will be raised when we try to fetch it.
    
    For Each fld In flds
        tstLocal = "test"
        tstLinked = "test"
        fldName = fld.Name
        
On Error GoTo ShowError
        tstLinked = fld.Properties("Description").Value
        'See if the property exists in the local table.
        tstLocal = CurrentDb().TableDefs(tblName).Fields(fldName).Properties("Description")
        CurrentDb().TableDefs(tblName).Fields(fldName).Properties("Description") = tstLinked
        
AroundField:
    Next fld
    
    rstLocal.Close
    rstLinked.Close
    
AroundTable:
    If xList < yList Then rstList.MoveNext
    
Next xList

rstList.Close

MsgBox "All Done!"

ExitPoint:

Exit Sub

NoDesc:
    If tstLinked = "test" Then      'Could not find description in linked table.
        Err.Clear
        Resume AroundField
    Else
        If tstLocal = "test" Then
            If Err.Number = 3270 Then       'The property did not exist.  Add it.
                Err.Clear
                Set prp = CurrentDb().TableDefs(tblName).Fields(fldName).CreateProperty("Description", dbText, "x")
                Resume Next
            Else
                GoTo ShowError
            End If
        Else
            'There was a problem updating the property.
            GoTo ShowError
        End If
    End If
    MsgBox "Fell through NoDesc error trap."
    GoTo ShowError
    
BadOpenLocal:
    MsgBox "Could not open local table " & tblName & "."
    Err.Clear
    Resume AroundTable
    
BadOpenLinked:
    MsgBox "Could not open linked table " & tblName & "."
    rstLocal.Close
    Err.Clear
    Resume AroundTable
    
BadDesc:
    MsgBox "Could not add description '" & tstLinked & "' to field '" & fldName & "' in table '" & tblName & "'."
    Err.Clear
    Resume AroundField
    
ShowError:
    MsgBox "Error: " & Err.Number & vbCrLf & Err.Description
    Resume ExitPoint
    
End Sub

Select allOpen in new window