Changing the name of a table

[Rafael]

How Can I change de Name of a Access Table from VB?

Thanks
Rafael


------------------

[MartinLiss]

Public Sub RenameTable(sOldName As String, sNewName As String)

    Dim nCtr As Integer
    Dim bFound As Boolean
   
    On Error GoTo ErrorRoutine

    'strip off owner if necessary
    If InStr(sNewName, ".") <> 0 Then
        sNewName = Mid(sNewName, InStr(sNewName, ".") + 1, Len(sNewName))
    End If
    
    'Search to see if table exists
    For nCtr = 0 To gdbTargetDB.TableDefs.Count - 1
        If UCase(gdbTargetDB.TableDefs(nCtr).Name) = UCase(sOldName) Then
            gdbTargetDB.TableDefs(nCtr).Name = sNewName
            bFound = True
            Exit For
        End If
    Next
    
    If Not bFound Then
        gsErrText = "Table name not found"
        Err.Raise 10010
        Exit Sub
    End If
    
ErrorRoutine:

    If Err.Number <> 0 Then
        'Put your error code here
    End If


End Sub

------------------
Marty