1、只需 打開 ,不需控制 打開 后的 文件 : Application.FollowHyperlink "D:\db1.mdb" 2、 打開 后可控制所 打開 數(shù)據(jù)庫及其中的對象: '當指向 Application 對象的變量超出范圍時，它所表示的 Microsoft Access 實例也將關(guān)閉。所以，必須在模塊級說明這個變量

Application.FollowHyperlink "D:\db1.mdb"

2、打開后可控制所打開數(shù)據(jù)庫及其中的對象:

'當指向 Application 對象的變量超出范圍時，它所表示的 Microsoft Access 實例也將關(guān)閉。所以，必須在模塊級說明這個變量。

Dim appAccess As Access.Application

Sub CreateForm()

'打開D:\DB1.MDB文件并創(chuàng)建一個窗體之后關(guān)閉

Const strConPathToSamples = "D:\"

Dim frm As Form, strDB As String

'把文件路徑賦給變量

strDB = strConPathToSamples & "db1.mdb"

' 創(chuàng)建一個新的Access對象

Set appAccess = CreateObject("Access.Application")

' 打開指定的Access文件

appAccess.OpenCurrentDatabase strDB

'用下面這句可顯示被打開的文件,否則不顯示

appAccess.Visible = True

' 創(chuàng)建新窗體

Set frm = appAccess.CreateForm

' 保存新窗體

appAccess.DoCmd.Save , "NewForm1"

' 關(guān)閉Access文件

appAccess.CloseCurrentDatabase

Set appAccess = Nothing

End Sub

聲明：本網(wǎng)頁內(nèi)容旨在傳播知識，若有侵權(quán)等問題請及時與本網(wǎng)聯(lián)系，我們將在第一時間刪除處理。TEL:177 7030 7066 E-MAIL:11247931@qq.com