MSAccess VBA编码中的更改

Question

I have been coding in MSAccess since the Win95 days. Over the years, these apps have been upgraded to the latest versions of MSAccess. I am guessing that the change occurred sometime after Access 2003.

I am sure that this is a trivial question, but I can't seem to find the answer in the documentation online.

In the old days, my Modules would look like this:

    Option Compare Database

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

Where Classes is usually a table or query in my database. This continues to work in older databases that have been converted to the latest version.

When I try to create a new database using the above code, I get error 13, type mismatch error, with no explanation of what is wrong and how to fix it.

So 2 questions: Why does it work on old databases but not newly created ones, and what is the correct way to open and refer to my tables in my VBA code?

Thanks for your help, Dan

Answer 1

尝试检查“参考”，是否缺少任何内容，还请按以下方式声明db

Dim db As DAO.Database