windows - 在不同模块中 Access VBA Form Private Sub 调用 Public Function

Question

在我的数据库中，我在一个模块中有一个公共(public)函数，它接收一个 SQL 字符串并返回一个打开的记录集。此函数在被此模块和其他模块中的其他公共(public)子程序调用时工作正常。

但是，如果我尝试使用完全相同的代码调用相同的函数，则会出现编译错误:“参数数量错误或属性分配无效。”

如果我将确切的代码剪切并粘贴到另一个模块中作为公共(public)子模块，它可以正常工作。我怀疑这个问题与命名或隐藏变量有关。不幸的是，我无法通过搜索找到任何解决方案。

Public Function Query(SQL As String) As ADODB.Recordset
   Dim cnnConn As ADODB.Connection
   Dim rsRecord As New ADODB.Recordset
   Set cnnConn = CurrentProject.Connection
   rsRecord.ActiveConnection = cnnConn
   rsRecord.Open SQL
   Set Query = rsRecord
End Function

Private Sub Setup()
   Dim rs As New ADODB.Recordset
   Dim SQL As String
   SQL = "Select * FROM [Configuration]"
   Set rs = Query(SQL) <--- Compile Error
   rs.Close
End Sub

非常感谢任何帮助。

Answer 1

我的直觉是问题是由使用 Query 作为该自定义 VBA 函数的名称引起的。

将函数从 Query 重命名为 fnQuery 并将其返回值更改为 Set fnQuery = rsRecord。然后将 Setup() 过程中的赋值语句更改为 Set rs = fnQuery(SQL)