Access 2000 Recordsets

[magicscreen]

How do I pass a DAO recordset as a parameter to a function in Access 2000?

Thanks

 

[thornmastr]

Here is an example which does nothing at all but receive a recordset.

Public Sub sgetrs(rv As Recordset)
On Error GoTo sgetrs_Error



On Error GoTo 0
Exit Sub

sgetrs_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & &quot in procedure sgetrs of Module gmod1"
End Sub


'---------------------------------------------------------------------------------------
' Procedure : sbrecset
' DateTime : 9/28/2002 09:21
' Author : bermanr
' Purpose :
'---------------------------------------------------------------------------------------
'
Public Sub sbrecset()
On Error GoTo sbrecset_Error
Dim rs As Recordset

Set rs = CurrentDb.OpenRecordset("SELECT * FROM tblstate", dbOpenDynaset)
Call sgetrs(rs)


On Error GoTo 0
Exit Sub

sbrecset_Error:

MsgBox "Error " & Err.Number & " (" & Err.Description & &quot in procedure sbrecset of Module gmod1"
End Sub
Robert Berman
Data Base consultant
Vulcan Software Services
thornmastr@yahoo.com