Office中国论坛/Access中国论坛

标题: 求助.如何实现从一个数据库中窗体的按钮打开另一个数据库中的窗体 [打印本页]

作者: ws178525234 时间: 2008-7-14 13:02
标题: 求助.如何实现从一个数据库中窗体的按钮打开另一个数据库中的窗体
如何实现从一个数据库中窗体的按钮打开另一个数据库中的窗体

作者: ui 时间: 2008-7-14 17:34
要在另一個數據庫先作好一個打開窗體的公共函數

作者: ws178525234 时间: 2008-7-15 11:35
请问具体如何编辑呢?

作者: Grant 时间: 2008-7-15 16:55
打开外部数据库窗体
Dim appAccess As Access.Application

private sub pp（）

' 将字符串初始化为数据库的路径?
Const strConPathToSamples = "D:\temp\dbSub.mdb"
' 创建 Microsoft Access 的实例。
Set appAccess = _
CreateObject("Access.Application")
' 在 Microsoft Access 窗口中打开数据库。
appAccess.OpenCurrentDatabase strConPathToSamples
' 打开“Orders”窗体。
appAccess.DoCmd.OpenForm "frmA"
END SUB

*********************************
打开带密码的数据库
在ACCESS 2002和ACCESS 2003可以使用OpenCurrentDatabase方法打开一个带有密码的ACCESS MDB数据库, 在可是在ACCESS 2000中该方法不支持密码参数,那么如何实现呢?

　　下面这个过程打开一个当前数据库同一目录中带有密码的数据库 db2.mdb (密码：123)

Dim appAccess As Access.Application
Dim db As Database

Private Sub OpenDB()
Dim strDB As String
' 将字符串初始化为数据库的路径。
strDB = CurrentProject.Path & "\db2.mdb"

' 创建 Microsoft Access 的实例。
Set appAccess = CreateObject("Access.Application")
' 在 Microsoft Access 窗口中打开数据库。
Set db = appAccess.DBEngine.OpenDatabase(strDB, False, False, "

WD=123")
appAccess.OpenCurrentDatabase strDB
appAccess.DoCmd.OpenForm "form1"

appAccess.Visible = True
End Sub

****************************
在ACCESSXP下的更简洁：
Private Sub Command0_Click()
Dim App1 As Object
Set App1 = CreateObject("Access.Application")
Dim strURL As String
strURL = CurrentProject.Path & "\1.mdb"
App1.OpenCurrentDatabase strURL, , "123"
App1.DoCmd.OpenForm "窗体1"
App1.Visible = True

End Sub

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)