ACC2002：当在 access 数据库中设置或检索报表的记录集属性时出现运行时错误 2593

解决方案

可以通过将记录源属性设为表、查询或 SQL SELECT 语句的名称，模拟将报表绑定到 DAO 记录集对象。 如果您想使用与您打开的 DAO 记录集的相同报表源，请将报表的记录源属性设为 DAO 记录集的名称属性。 下面的示例说明了如何打开基于查询的 DAO 记录集，以及如何将报表的记录源属性设为与记录集相同的源。

Microsoft 所提供的编程示例只用于说明目的，不附带任何明示或默示的保证，包括（但不限于）用于特定目的的适用性和/或适销性的各项默示保证。 本文假定您对演示所用的编程语言和创建、调试程序所用的工具已经非常熟悉。 Microsoft 的支持人员可以帮助解释某个特定程序的功能，但他们不会修改这些示例来增加功能，也不会重新构造程序来满足特殊的要求。 如果您的编程经验有限，那么您可能需要与 Microsoft 认证伙伴联系或者拨打 Microsoft 收费咨询电话（800）936-5200。有关 Microsoft 认证伙伴的更多信息，请访问以下网页：

http://www.microsoft.com/partner/referral/

有关 Microsoft 提供的支持选项的详细信息，请访问以下网页：

http://support.microsoft.com/directory/overview.asp

1. 注意事项：执行本文中的步骤将会修改示例数据库 Northwind.mdb。需要备份 Northwind.mdb 文件，并在数据库副本上执行这些步骤。
   
   
2. 打开示例数据库 Northwind.mdb。
3. 当主切换面板窗体出现时将其关闭。
4. 在视图菜单上，指向数据库对象，然后单击报表。
5. 在“数据库”窗口中，单击按汉语拼音顺序的产品列表 报表，然后单击设计。
6. 在视图菜单上，单击属性以显示属性页。
7. 在编辑菜单中，单击选择报表以验证所显示的属性页是否为报表的属性页。
8. 单击数据选项卡，然后清除记录源属性。
9. 在视图菜单上，单击代码，查看窗体的模块。
10. 向模块中添加以下代码：

    Private Sub Report_Open(Cancel As Integer)
        Dim db As DAO.Database
        Dim rs As DAO.Recordset
        
        Set db = CurrentDb
        
        'Open a DAO recordset based on the Alphabetical List of Products query
        Set rs = db.OpenRecordset("按汉语拼音顺序的产品列表", dbOpenDynaset)
        Me.RecordSource = rs.Name
    End Sub

11. 在文件菜单上，单击关闭并返回到 Microsoft access。
12. 在文件菜单上，单击保存，然后关闭报表。
13. 在打印预览中打开“按汉语拼音顺序的产品列表”报表。

注意，该报表绑定到“按汉语拼音顺序的产品列表”查询中的数据，该查询是 DAO 记录集对象的源。