MS Access VBA编码的变化

Question

自Win95以来，我一直在MSAccess中编码。多年来，这些应用程序已升级到最新版本的MSAccess。我猜这个改变发生在Access 2003之后的某个时间。

我确信这是一个微不足道的问题，但我似乎无法在网上找到答案。

在过去，我的模块看起来像这样：

    Option Compare Database

    Private Sub PrintReports_Click()
    Dim db As Database
    Dim rs As Recordset
        Set db = CurrentDb
        Set rs = db.OpenRecordset("Classes", dbOpenDynaset)
...

其中Classes通常是我的数据库中的表或查询。这继续适用于已转换为最新版本的旧数据库。

当我尝试使用上面的代码创建一个新数据库时，我收到错误13，输入错配错误，没有解释错误以及如何解决它。

所以有两个问题：为什么它适用于旧数据库而不是新创建的数据库，以及在我的VBA代码中打开和引用我的表的正确方法是什么？

谢谢你的帮助，丹

Answer 1

尝试检查“引用”，是否缺少任何内容也声明db如下

Dim db As DAO.Database