| 導購 | 订阅 | 在线投稿
分享
 
 
 

用代碼打開Access文件的兩種方法

來源:互聯網  2008-05-18 23:55:17  評論

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

  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
󰈣󰈤
王朝萬家燈火計劃
期待原創作者加盟
 
 
 
>>返回首頁<<
 
 
 
 
 熱帖排行
 
 
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有