1、只需 打开 ,不需控制 打开 后的 文件 : Application.FollowHyperlink "D:\db1.mdb" 2、 打开 后可控制所 打开 数据库及其中的对象: '当指向 Application 对象的变量超出范围时，它所表示的 Microsoft Access 实例也将关闭。所以，必须在模块级说明这个变量
1、只需打开,不需控制打开后的文件:Application.FollowHyperlink "D:\db1.mdb"
2、打开后可控制所打开数据库及其中的对象:
'当指向 Application 对象的变量超出范围时，它所表示的 Microsoft Access 实例也将关闭。所以，必须在模块级说明这个变量。
Dim appAccess As Access.Application
Sub CreateForm()
'打开D:\DB1.MDB文件并创建一个窗体之后关闭
Const strConPathToSamples = "D:\"
Dim frm As Form, strDB As String
'把文件路径赋给变量
strDB = strConPathToSamples & "db1.mdb"
' 创建一个新的Access对象
Set appAccess = CreateObject("Access.Application")
' 打开指定的Access文件
appAccess.OpenCurrentDatabase strDB
'用下面这句可显示被打开的文件,否则不显示
appAccess.Visible = True
' 创建新窗体
Set frm = appAccess.CreateForm
' 保存新窗体
appAccess.DoCmd.Save , "NewForm1"
' 关闭Access文件
appAccess.CloseCurrentDatabase
Set appAccess = Nothing
End Sub
下载本文