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

Question

我试图从 MS-Access 2007 中的函数检索 ADODB 记录集，但收到一条非常烦人的错误消息：“参数不可选（错误 449）”。

我真的不明白我做错了什么，请帮忙！

问候，

Stefan

函数：

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 记录集填充您的表单 - 它是默认。

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