Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Dynamic Recordset

Sub exaRecordsetPosition()     Dim db As Database     Dim rsDyna As Recordset     Set db = CurrentDb     Set rsDyna = db.OpenRecordset("Books", dbOpenDynaset)     rsDyna.MoveFirst     Do While Not rsDyna.EOF         Debug.Print rsDyna!PubID & " / " & rsDyna!Title         Debug.Print rsDyna.AbsolutePosition         Debug.Print Format$(rsDyna.PercentPosition         rsDyna.MoveNext     Loop     rsDyna.Close End Sub