Function GetObject(ObjectType As String, Accessname As String) As String
'功能:获取其他Access数据库中的对象字符串
'参数:ObjectType--类型参数，AllForms=窗体；AllReports=报表；AllMacros=宏；AllModules=模块；AllDataAccessPages=数据访问页
' Accessname --Access数据库名称字符串
Dim appAccess As New Access.Application
Dim obj As AccessObject
Dim objs As Object
appAccess.OpenCurrentDatabase Accessname
appAccess.Visible = True
Select Case ObjectType
Case "AllForms"
Set objs = appAccess.CurrentProject.AllForms
Case "AllReports"
Set objs = appAccess.CurrentProject.AllReports
Case "AllMacros"
Set objs = appAccess.CurrentProject.AllMacros
Case "AllModules"
Set objs = appAccess.CurrentProject.AllModules
Case "AllDataAccessPages"
Set objs = appAccess.CurrentProject.AllDataAccessPages
Case Else
Exit Function
End Select
For Each obj In objs
If obj.IsLoaded = False Then
GetObject = GetObject & obj.Name & ";"
End If
Next obj
appAccess.CloseCurrentDatabase
Set appAccess = Nothing
End Function
Function GetObjCtl(ObjectType As String, Accessname As String, Objectname As String) As String
'功能:获取其他Access数据库中的对象中控件字符串
'参数:ObjectType--类型参数，AllForms=窗体；AllReports=报表；AllMacros=宏；AllModules=模块；AllDataAccessPages=数据访问页
' Accessname--Access数据库名称字符串
' Objectname --对象名称字符串
Dim appAccess As New Access.Application
Dim ctls As Controls
Dim ctl As Control
Dim obj As Object
appAccess.OpenCurrentDatabase Accessname
appAccess.Visible = True
Select Case ObjectType
Case "AllForms"
appAccess.DoCmd.OpenForm Objectname
Set obj = appAccess.Forms(Objectname)
Case "AllReports"
appAccess.DoCmd.OpenReport Objectname, acViewPreview
Set obj = appAccess.Reports(Objectname)
Case "AllDataAccessPages"
appAccess.DoCmd.OpenDataAccessPage Objectname
Set obj = appAccess.DataAccessPages(Objectname)
Case Else
Exit Function
End Select
Set ctls = obj.Controls
For Each ctl In ctls
GetObjCtl = GetObjCtl & ctl.Name & ";"
Next ctl
appAccess.CloseCurrentDatabase
Set appAccess = Nothing
End Function作者: chaojianan 时间: 2009-11-25 20:56
收藏了，谢谢todaynew。 作者: heqing3000 时间: 2009-12-31 15:18
收藏了。谢谢！作者: wufeng980114 时间: 2009-12-31 20:37
谢谢了作者: ycxchen 时间: 2010-1-1 09:55
谢谢，学习！作者: dragonszr 时间: 2010-1-5 22:08
学习学习再学习!作者: leijiqiang 时间: 2010-1-11 08:38
学习下下作者: c101 时间: 2010-1-11 09:09
谢谢分享作者: 路遥 时间: 2010-1-25 13:21
收藏，楼主文采不错
将抽象的概念用形象的比喻解说，让人一目了然
赞一个！～～作者: forever1qaz 时间: 2010-1-25 16:25 10#ui作者: forever1qaz 时间: 2010-1-25 16:26
看看学习下。。以备不时之需！作者: zhanghonglgq 时间: 2010-1-26 10:38
非常有用作者: li08hua 时间: 2010-1-27 13:24
谢谢分享！作者: 风啸啸 时间: 2010-2-26 12:40
好好学习。作者: lovelaceliu 时间: 2010-3-11 21:53
学习了，收藏以备后用作者: zhengweb_0 时间: 2010-3-17 09:27
收了作者: lovehere 时间: 2010-3-18 17:19
虽然不是很明白，收藏先作者: szyuer 时间: 2010-3-18 17:42
谢谢,学习一下...作者: ZHENGLIAN 时间: 2010-8-17 11:55
收藏,看什么时候能用再参考!作者: gddsb 时间: 2010-8-18 22:31
收藏,看什么时候能用再参考!作者: gddsb 时间: 2010-8-18 22:32
学习 学习!! 作者: lkkl66 时间: 2010-8-18 23:34 回复 todaynew 的帖子
收藏哦！在实际程序编写中，有许多地方要参考用到的！
谢谢了！
