我可以在不同的表上使用相同的记录集变量吗？

Question

我是 Microsoft Access 的新手。

如何在不同的表上使用相同的记录集变量？

Answer 1

是的，只要您不希望变量指向两个记录集，就可以。

但问题是你为什么要这么做？您希望节省什么？资源？没什么大不了的。代码的可读性也会受到影响。如果您一周后或其他人稍后查看您的代码，他们可能不会意识到发生了什么。因此我建议每个表/查询一个记录集变量。

还有变量的范围。如果在子例程/函数中定义，则它仅在该子例程/函数中可见。如果位于顶部，则该表单/报告/模块中的所有 sou/函数都可以看到它。如果您声明它在模块中是全局的，那么它将在任何地方都可见。

所以问题是你为什么问？

Answer 2

是的，但在将记录集变量重新分配给另一个记录集之前，必须确保关闭该记录集。这是一个例子：

Dim rs As DAO.Recordset
Dim bTimeToChangeRecordsets As Boolean

Set rs = CurrentDb.OpenRecordset("Contacts")

'add business logic here'

If bTimeToChangeRecordsets Then
    rs.Close
    'setting to Nothing is not necessary here,'
    'because setting to a new recordset instance has the '
    'same effect on the variable reference count '
    Set rs = CurrentDb.OpenRecordset("Comments")
End If

'more business logic'

rs.Close
Set rs = Nothing

关于这个问题的许多评论都集中在是否需要将记录集变量设置为Nothing，是否以及何时需要这样做，以及是否还需要在记录集上调用Close释放记录集引用之前的记录集。关于这个主题有一些精彩的评论，分布在有关堆栈溢出的相当多的问题上； 这个特别重要与您的情况相关。我还会引导您阅读这篇知识库文章和这本深入的书籍摘录。

冒着过度简化的风险，我可以这样总结问题：如果 Access 引用计数工作良好，则无需担心通过将引用设置为 Nothing 来显式释放引用，也无需显式关闭记录集。然而，实践经验告诉我们，考虑到 Access 的行为，这两个习惯都应该成为 VBA 最佳实践编码的一部分。