Dynamic Recordset : Recordset « Access « VBA / Excel / Access / Word

Home
VBA / Excel / Access / Word
1.Access
2.Application
3.Data Type
4.Data Type Functions
5.Date Functions
6.Excel
7.File Path
8.Forms
9.Language Basics
10.Math Functions
11.Outlook
12.PowerPoint
13.String Functions
14.Windows API
15.Word
16.XML
Microsoft Office PowerPoint 2007 Tutorial
Microsoft Office Excel 2007 Tutorial
Microsoft Office Word 2007 Tutorial
VBA / Excel / Access / Word » Access » Recordset 
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

 
Related examples in the same category
1.Looping Through a Recordset
2.Retrieve data from Recordset by table column name
3.Move cursor in result set
4.Build a string text from result set
5.Creating a Custom Recordset
6.Creating a Disconnected Recordset
7.Filling a Combo Box with a Disconnected Recordset
8.The Supports Method of the Recordset Object
9.Using the EOF Property to Determine the Bounds of a Recordset
10.A Recordset That Does Not Support the RecordCount Property
11.A Recordset That Supports the RecordCount Property
12.Whether Records Are Returned in a Recordset
13.The Sort Property of the Recordset Object
14.Using the AbsolutePosition Property
15.Using the Bookmark Property
16.Refreshing Recordset Data
17.Assigning Recordsets Dynamically to a form
18.Set recordset to form
19.Row order in Dynamic Recordset
20.Snapshot Recordset
21.Set Index and seek the recordset
java2s.com  |  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.