Renaming tables

[Keith Emery]

I want to rename all tables in a database from XXXName1 to
Name1

I think I should be using

with each tabledef in db

But can't get the correct sytax

Thanks

 

[Alex Dybenko]

first make sure you have a reference to DAO, then:
dim tdf as tabledef

for each tdf in dbs.tabledefs
if tdf.name like "???Name1" then
tdf.name=mid(tdf.name,4)
end if
next tdf

 

[Keith Emery]

Very neat, thanks

-----Original Message-----
first make sure you have a reference to DAO, then:
dim tdf as tabledef

for each tdf in dbs.tabledefs
if tdf.name like "???Name1" then
tdf.name=mid(tdf.name,4)
end if
next tdf

--
Alex Dybenko (MVP)
http://Alex.Dybenko.com
http://www.PointLtd.com





.