function return recordset? 1

[imarosel]

Function returnRawCurveSet

Set rawCurveSet = New ADODB.Recordset
rawCurveSet.Open rawCurveSQL, CurrentProject.Connection, adOpenKeyset

returnRawCurveSet = rawCurveSet

end function


subroutine
Dim rawCurveSet2 As ADODB.Recordset

[highlight]rawCurveSet2 = returnRawCurveSet[/highlight]

rawCurveSet2.MoveFirst
MsgBox rawCurveSet2![mw]

end subroutine

I get a compile error; invalid use of property.

What am I missing?

 

[PHV]

You have to use the Set instruction to instantiate an object:
Function returnRawCurveSet
Dim rawCurveSet As ADODB.Recordset
Set rawCurveSet = New ADODB.Recordset
rawCurveSet.Open rawCurveSQL, CurrentProject.Connection, adOpenKeyset
[!]Set[/!] returnRawCurveSet = rawCurveSet
End Function

subroutine
Dim rawCurveSet2 As ADODB.Recordset
[!]Set[/!] rawCurveSet2 = returnRawCurveSet
rawCurveSet2.MoveFirst
MsgBox rawCurveSet2![mw]
end subroutine

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[imarosel]

Sha-Bam! Thanks PHV. You sure are quick on the draw. I tried this earlier, but only in one place not both.

Thanks.