recordset as parameter (type mismatch)

[Guest_imported]

Here is a simple project with a reference to the Microsoft ActiveX Data Objects Recordsets 2.5 library.

Why the type mismatch when function a is called.

Private Sub Command1_Click()
Dim rs As Recordset
Set rs = New Recordset
a (rs) 'here is where the type mismatch occurs
End Sub

Function a(rs As Recordset)
MsgBox "a"
End Function

 

[dellyjm]

You need to take out the brackets.

rs = a (rs) is ok. The value is being returned to rs variable.

a rs is the way to go since you're not assigning values.

Delton.
deltonphillips@hotmail.com