如何打开另一ACCESS程序

天涯过客　发表于：2013-11-29 12:41:07 　

各位教师好!

如何在一个窗体中用按钮打开另一个ACCESS程序,谢谢

竹笛发表于：2013-11-29 12:46:46

Dim db2_path As String '另外一个数据库文件的路径
db2_path = CurrentProject.Path & "\db2.mdb" '要求打开的文件相对路径
Dim mypassword As String '将要打开数据库的密码
mypassword = "123"
Dim new_db '用于创建文件
Set new_db = CreateObject("access.application") '创建一个新的ACCESS文件
new_db.OpenCurrentDatabase db2_path, False , mypassword '在新文件中打开数据库文件
'MsgBox "[db2] 的 [窗体1] 已经打开,本数据库即将关闭!" '提示
'new_db.UserControl = True '用户激活新打开的文件
'new_db.DoCmd.OpenForm "窗体1" '打开指定的窗体
'Application.Quit '关闭当前的文件

Top

天涯过客发表于：2013-11-29 13:43:01

教师帮我看下以下代码,运行后可以将本数据库关闭,但要打开的数据库显示不出来.

但是在D盘下去看程序,却显示已经锁定<打开状态>,这种怎么处理,谢谢

Me.服务器版本号 = DLookup("版本号", "软件版本")
If Nz(版本号) <> Nz(服务器版本号) Then
Dim strDB As String
'Dim appAccess
Const strConPathToSamples = "D:\升级程序\"
strDB = strConPathToSamples & "清国库存管理系统升级程序.mdb"
Set appAccess = CreateObject("Access.Application")
appAccess.OpenCurrentDatabase strDB
appAccess.DoCmd.OpenForm "升级"

'关掉本数据库 , 以便复制自已(覆盖掉)
DoCmd.Quit acQuitSaveNone
Else
MsgBox "你的软件已经是最新版本,不需要升级", vbOKOnly, "系统提示"
End If
End Sub

Top

麥田发表于：2014-01-11 15:12:32

不用链接表在当前数据库打开其它数据库简单示例[Access软件网]
http://www.accessoft.com/article-show.asp?id=9076

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

如何打开另一ACCESS程序