Record variable

[Guest]

How can I pass a whole record from a recordset to another procedure?

 

[Allen Browne]

Pass the Recordset.

In this example, ShowIt() prints the value of the ID field of the current
record from Table1:

Function Test()
Dim rs As DAO.Recordset
Set rs = dbengine(0)(0).OpenRecordset("Table1")
Call ShowIt(rs)
rs.Close
End Sub

Function ShowIt(rs As DAO.Recordset)
Debug.Print rs!ID
End Function

 

[Guest]

Thanks Allen. However is there a way I can send a single record from the
recordset?

 

[Allen Browne]

Not sure I understand what you are trying to do, Steve.
Perhaps someone else does.