VB编程技巧：表或查询是否存在

时　间:2008-05-20 09:07:44
作　者:UMVSOFT整理   ID：16  城市：江阴
摘　要:VB编程技巧：表或查询是否存在
正　文:

Public Const NameNotInCollection = 3265

Dim DB As Database


Private Function ExistsTableQuery(TName As String) As Boolean


Dim Test As String

On Error Resume Next


\' 该名字在表名中是否存在。

Test = db.TableDefs(TName).Name

If Err <> NameNotInCollection Then

ExistsTableQuery = True

\' Reset the error variable:

Err = 0

\' 该名字在查询中是否存在。

Test = db.QueryDefs(TName$).Name

If Err <> NameNotInCollection Then

ExistsTableQuery = True

End If

End If

End Function


Access软件网QQ交流群 (群号:54525238) 　　　　　　Access源码网店