| 判断对象是否存在数据库中的模块 |
|
| 作者：想不通 文章来源：Access开发者 点击数： 本日：{$DayHits} 更新时间：2006-10-22 21:37:29 |
一组判断对象是否存在数据库中的模块
----判断查询是否存在------------------
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 |
| 文章录入：tm 责任编辑：tm |
|
上一篇文章： 单机类模块编程简介
下一篇文章： 用于将数字换汉字大写数字的函数 |
| 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
用户登录 
新用户注册 
网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）
