How do I rename a MS Access Table ??

[omarswan]

Hi, is it possible to rename a MS-Access Table in VB, and if so How?

[smalig]

Yes, certainly!

The follow code change name Table1 to Table2 in MS Access database.


Dim dbTest As Database
Dim tblObj As DAO.TableDef
Dim sTBLName As String
Dim bIncludeSysTables As Boolean

Set dbTest = OpenDatabase("d:\db1.mdb", True)

For Each tblObj In dbTest.TableDefs
If (tblObj.Attributes And dbSystemObject) = 0 Or bIncludeSysTables Then
sTBLName = tblObj.Name
If sTBLName = "Table1" Then tblObj.Name = "Table2"
End If
Next

dbTest.Close


Best regards.