循环修改表格名称

小冉　发表于：2015-08-13 11:13:07 　

For Each tbl In Db1.TableDefs
tbl.Name = tbl.Name & "车辆GPS"
Db1.Execute ("alter table " & tbl.Name & " add column haha integer")

Next tbl

希望编写一个程序，统一修改库中各表格的名称，并添加一列；但运行出来后，只修改了第一个表格的名称，添加了属性，然后就弹出对话框说“MSysAccessStorage 正被别的用户或进程使用”，不知如何解决？

还是循环语句有错误？

缪炜发表于：2015-08-14 08:46:46

你的数据库是不是被打开着，有进程是否是打开的

金宇发表于：2015-08-15 15:59:22

需要加个条件将Access自带的系统表排除，因为系统表是不允许被改名的。

For Each tbl In Db1.TableDefs

If Left(tbl.Name, 4) <> "MSys" Then
tbl.Name = tbl.Name & "车辆GPS"
Db1.Execute ("alter table [" & tbl.Name & "] add column haha integer")

end if

Next tbl

总记录：2篇页次：1/1 9 1 :

Access交流中心