access读取所有的表

[Roger_mrj]

怎么在access中依次读取所有的表，并进行处理

[lzp4881]

select Name from MSysObjects where type=1

[未央舫]

select name from MSYSOBJECTS where type=1 and flags=0

[Roger_mrj]

引用 2 楼 weiyf27 的回复:

select name from MSYSOBJECTS where type=1 and flags=0

这个只是能读取出表名，我主要是想对这个数据库里的所有表依次自动处理，比如我所有的表都有相同的字段，然后所有这些表中的这个字段都删除

[sunqv]

谢谢大家，问题已经解决了我是用下面的代码得到的表名 然后循环进行处理的 On Error Resume Next '对错误信息进行处理,如果不包含表则直接执行下一句sql Dim dbs As Database Dim tdf As TableDef Dim strSql As String Dim strName As String Set dbs = CurrentDb For Each tdf In dbs.TableDefs strName = tdf.Name If UCase。。。。。。Then strSql = "第一句代码 " DoCmd.RunSQL strSql '运行第1个更新语句 ElseIf UCase。。。。。。 Then strSql = "第一句代码 " DoCmd.RunSQL strSql '运行第1个更新语句 End If Next MsgBox "操作执行完毕"