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