如何判断Access数据库 中某个表是否存在?

[wt_sanlian]

如题!
谢谢

[wt_sanlian]

Please help!

[victorycyz]

select [name]
from msysobjects
where [name]="要查找的表名" and [type]=1 and [flags]=0

[wt_sanlian]

victorycyz(中海)
提示在 msysobjects上没有读取数据权限，怎么办?

[changechange]

1、回答 victorycyz的问题：

如何获取对msysobject的操作权限
http://access911.net/eg/swf/msobject.swf

2、回答楼主的问题：
Access不是sqlserver，所以推荐不要直接操作系统表，在Access中应使用如下方法：
请参考专题地址：
http://access911.net/index.asp?board=4&recordid=72FAB71E14DC 以及与其相关的“相关文章”
关于此主题请参考：http://access911.net/index.asp?u1=a&u2=73FAB61E17DC

[changechange]

我认为比较方便的是直接使用错误陷阱

关于此主题请参考：http://access911.net/index.asp?u1=a&u2=77FABE1E1ADC

[woxinfeixiang]

Public Const NameNotInCollection = 3265

Public Function ExistsTableQuery(ByVal lngKind As Long, ByVal TName As String) As Boolean

Dim Test As String
Dim DB As Database
On Error Resume Next

ExistsTableQuery = False
Set DB = CurrentDb

Select Case lngKind
Case 1:

Test = DB.TableDefs(TName).Name
Case 2:

Test = DB.QueryDefs(TName).Name
End Select
If Err.Number <> NameNotInCollection Then
ExistsTableQuery = True

Err = 0
End If
End Function