Office中国论坛/Access中国论坛 › Access中国门户旧版 ›Access› 编程心得绝招› 实际编程 › 查看内容

一组判断对象是否存在数据库中的模块

1970-1-1 08:00| 发布者: 想不通| 查看: 1040| 评论: 0

一组判断对象是否存在数据库中的模块
----判断查询是否存在------------------
Function IsQueryInDatabase(strQueryName As String) As Integer

Dim db As DAO.Database
Dim I As Integer
Set db = CurrentDb
IsQueryInDatabase = False
db.QueryDefs.Refresh
For I = 0 To db.QueryDefs.Count - 1
      If strQueryName = db.QueryDefs(I).Name Then
         '查询存在
         IsQueryInDatabase = True
         Exit For
      End If
Next I
Set db = Nothing

End Function
'----判断表是否存在------------------
Function IsTableInDatabase(strTableName As String) As Integer

Dim db As DAO.Database
Dim I As Integer
Set db = CurrentDb
IsTableInDatabase = False
db.TableDefs.Refresh
For I = 0 To db.TableDefs.Count - 1
      If strTableName = db.TableDefs(I).Name Then
         '表存在
         IsTableInDatabase = True
         Exit For
      End If
Next I
Set db = Nothing

End Function
'----判断窗体是否存在------------------
Function IsFormInDatabase(strFormName As String) As Integer

Dim dbCurrent As DAO.Database
Dim strname As String

On Error GoTo Exit_IsFormInDatabase

IsFormInDatabase = False
Set dbCurrent = CurrentDb
strname = dbCurrent.Containers("Forms").Documents(strFormName).Name
IsFormInDatabase = True

Exit_IsFormInDatabase:

End Function
'----判断宏是否存在------------------
Function IsMacroinDatabase(strMacroName) As Integer
Dim dbCurrent As DAO.Database
Dim strname As String

On Error GoTo Exit_IsMacro

IsMacroinDatabase = False
Set dbCurrent = CurrentDb
strname = dbCurrent.Containers("Scripts").Documents(strMacroName).Name
IsMacroinDatabase = True

Exit_IsMacro:
End Function

收藏分享邀请

帐号		自动登录	找回密码
密码			注册

一组判断对象是否存在数据库中的模块

最新评论

相关分类