我试图从 MS-Access 2007 中的函数检索 ADODB 记录集,但收到一条非常烦人的错误消息:“参数不可选(错误 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
最佳答案
您使用 rs 两次,一次作为函数,一次作为记录集的名称:
Private Sub Form_Load()
Set Myrs= Rs("tblDocumentCode")
Debug.Print MyRs(0).Value
End Sub
关于ms-access - 将参数传递给 vba 函数时收到错误消息 : "Argument not optional (Error 449)",我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/3541124/