将参数传递给 vba 函数时获取错误消息：“参数不是可选的（错误 449）”

Question

我正在尝试从 MS-Access 2007 中的函数中检索 ADODB 记录集，但收到一条非常烦人的错误消息：“Argument not optional (Error 449)”。

我真的不知道我做错了什么，请帮忙！

问候，

斯蒂芬

功能：

Function Rs(sourceSQL As String) As ADODB.Recordset

' Create New Disconnected Recordset

Dim rsConnection As ADODB.Connection
Dim rsRecordset As ADODB.Recordset

Set rsConnection = New ADODB.Connection
rsConnection.Open CurrentProject.Connection

Set rsRecordset = New ADODB.Recordset

rsRecordset.CursorLocation = adUseClient
rsRecordset.Open sourceSQL, rsConnection

Set Rs = rsRecordset

Set rsRecordset.ActiveConnection = Nothing

End Function

函数调用：

Private Sub Form_Load()

Call Rs("tblDocumentCode")

Debug.Print Rs.txtDocumentCode(0).Value

End Sub

Answer 1

您使用 rs 两次，一次作为函数，一次作为记录集的名称：

Private Sub Form_Load()

Set Myrs= Rs("tblDocumentCode")

Debug.Print MyRs(0).Value

End Sub

Answer 2

假设“txtDocumentCode”是记录集中的一个字段，这个：

  Private Sub Form_Load()
    Call Rs("tblDocumentCode")
    Debug.Print Rs.txtDocumentCode(0).Value
  End Sub

...应该改成这样：

  Private Sub Form_Load()
    Debug.Print Rs("tblDocumentCode").Fields("txtDocumentCode").Value
  End Sub

据我所知，这应该可以工作，而无需将函数返回的记录集分配给变量。

但是让我退后一步，建议修复这个语法错误引出了一个问题：她正在做什么是非常不可取的。每次调用此函数时，您都会打开一个新连接，但 Access 更适用于反复使用的单个连接。 Jet/ACE 后端和服务器后端都是如此。初始化连接所需的开销将使您的表单加载非常缓慢。

但更糟糕的是，这不是 Access 编程——这是“来自缺乏绑定表单/控件的编程环境的难民”编程。您应该将 ODBC 与链接表一起使用，然后您可以将记录源分配给您的表单，而无需处理 ADO 记录集。如果你坚持做你正在做的事情，你可能根本不使用 Access，因为你放弃了 Access 75% 或更多的优势，而且你没有从中获得任何性能或并发优势（给自己买一个充满问题的世界）。

当然，现在我再看一遍，您使用的是 CurrentProject.Connection，我不确定它如何与 ODBC 链接表交互。事实上，我猜这可能是 ADP 而不是 MDB/ACCDB，但这更没有意义，因为您根本不需要在 ADP 中做任何额外的事情来使用 ADO 记录集填充您的表单——它是默认。

所以，一般来说，除了语法错误之外，还有一些问题——你正在做的事情根本没有多大意义。