Office中国论坛/Access中国论坛

标题: 请问各位高手:这段代码应放在什么地方? [打印本页]

作者: ouxingwang 时间: 2004-2-28 03:51
标题: 请问各位高手:这段代码应放在什么地方?
看了朱亦文先生的文章,很受启发,但却不知这段代码放在哪儿?并诚请各位高手帮我改一下代码,让代码满足我的要求,我的想法如下:,我想双击数据库文件db1,自动打开数据库db2的窗体form1,并且关闭数据库db1.
以下是朱亦文先生提供的文章:
在ACCESS2000中如何用VBA代码打开一个带有密码的数据库
　　在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

作者: paul16 时间: 2004-2-28 21:00
为什么不直接打开DB2呢？
可以放在自启动宏中！或用启动窗体中的加载事件！

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