调用access对象，并打开了...

Question

on error goto err1
err1:

Answer 1

你要把它关了才可以再开哦！很久没用ＶＢ了，试一下这个：Set AccApp = nothing或看看它有没有close的方法。

Answer 2

on error goto Err
  ...
  出错Err:
  db.Open
  resume

Answer 3

不是吧，这样的代价太大了！ACCESS对象中因该有属性或方法可判断的？因为数据库关了，可ACCESS对象还在呀！有谁知道？

Answer 4

    If AccApp.Visible = False And mNoReportData = False Then
        AccApp.OpenCurrentDatabase (App.Path & "\数据库.mdb")
        
    End If
源码

Answer 5

ACCESS打开一个数据库后，会在其目录下生成.ldb文件。
判断此文件是否存在，就可以知道用户是否已经关闭了该数据库。