[求助]菜鸟求救：关于打开数据库

tennis

我想打开并显示一个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

f't，为啥不可以删除自己的帖子呀？

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

tennis

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