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