Office中国论坛/Access中国论坛

标题: [求助]菜鸟求救：关于打开数据库 [打印本页]

作者: tennis 时间: 2004-10-28 19:56
标题: [求助]菜鸟求救：关于打开数据库
我想打开并显示一个access数据库（希望如双击.mdb文件时的效果一样），模仿打开excel文件写了以下代码，但第四行出现了错误Private Sub Command1_Click()

Dim ac As Access.Application

Set ac = New Access.Application

ac.OpenAccessProject "G:\db1.mdb" '××××

ac.Visible = True

ac.CloseCurrentDatabase

End Sub

提示：“实时错误'7866':Microsoft Access 不能打开这个数据库，因为它已丢失或已被其他用户按独占方式打开。"请问怎样才能达到我的目的呀？感激不尽！

[此贴子已经被作者于2004-10-28 13:05:14编辑过]

作者: tennis 时间: 2004-10-28 22:46
f't，为啥不可以删除自己的帖子呀？

[此贴子已经被作者于2004-10-28 14:57:20编辑过]

作者: tennis 时间: 2004-10-28 22:47
ok，自己解决了标准模块中：

Public ac As New Access.Application

用户窗体中：

Private Sub Command1_Click()

With ac

      On Error Resume Next

      .OpenCurrentDatabase "G:\db1.mdb"

      .Visible = True

      .DoCmd.OpenTable "table1", acViewNormal

End With

End Sub

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