ms访问编译错误：用户定义类型未定义

Question

我正在尝试将其添加到我的代码中：

Dim myRS1 As DAO.Recordset

但它给了我这个错误：

Compile error: user-defined type not defined

我已经浏览了这些链接：

• 编译错误：用户定义类型未定义
• 编译器错误：未定义用户定义类型
• 什么是“编译错误 用户定义类型未定义”？
• w7 -> VB6 错误“用户定义类型未定义”
• http://www.tek-tips.com/viewthread.cfm?qid=1731794

还是没有效果。

我尝试添加

Microsoft Access 3.6

库，但它显示

Error in loading DLL

我不明白，我以前的项目使用完全相同的代码，但它们工作得很好。

Answer 1

我想我们这里讨论的是 Access 2003。 在 Visual Basic 窗口中，菜单“工具 > 引用”已勾选并选择“Microsoft DAO 3.6 对象库”，它应在窗体底部显示 DLL 的位置。它会是这样的：

C:\Program Files\Common Files\Microsoft Shared\DAO\DAO360.DLL

检查 DLL 和关联文件是否存在。将文件夹内容与另一台工作电脑进行比较，并根据需要跨文件进行复制。 （始终备份原始状态。）错误“加载 DLL 时出错”可能表示 DLL 已损坏。

另请检查 Visual Basic 窗口中的“对象浏览器”菜单“视图 > 对象浏览器”。您应该能够在顶部组合中选择“DAO”库，然后浏览它的类和成员。

Answer 2

在 Dim 语句、函数或子过程参数中查找任何未通过 DAO 限定的“数据库”或“记录集”变量类型引用。将 DAO 添加到这些类型引用中。

没有 DAO 的示例会导致错误：

Function tLookupParam(pstrSQL As String, pdb As Database) As Variant

添加 DAO 的示例。为了防止错误：

Function tLookupParam(pstrSQL As String, pdb As DAO.Database) As Variant