• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 326
  • Last Modified:

Recordset bookmarks

This code doesn't seem change the bookmark value.  I can't tell why not.
    Dim State_rst As DAO.Recordset
    Dim lngCountOfSourceItems As Long
    Dim lngOriginatingRecord As Long           ' will be a recordset bookmark
    Dim i As Integer ' my record counter index

    Set State_rst = CurrentDb.OpenRecordset("tblStates", dbOpenDynaset)
    State_rst.MoveLast           'Makes sure count below is correct
    Let lngCountOfSourceItems = State_rst.RecordCount
    State_rst.MoveFirst          ' Make sure to start at beginning
    For i = 1 To lngCountOfSourceItems
        Let lngOriginatingRecord = State_rst.Bookmark 
        << do something >>

Open in new window

  • 3
3 Solutions
DatabaseMX (Joe Anderson - Microsoft Access MVP)Database ArchitectCommented:
Dim lngOriginatingRecord As Variant' will be a recordset bookmark


Let lngCountOfSourceItems = State_rst.RecordCount


lngCountOfSourceItems = State_rst.RecordCount

You don't need or want Let.

DrftrBobAuthor Commented:
If I may ask a silly question, what type of data is a bookmark?  If silly, I can accept that.  I suppose debug.print won't display the data properly.  My watched variable seems to be an array now.  Dang - it's late.
DatabaseMX (Joe Anderson - Microsoft Access MVP)Database ArchitectCommented:
"what type of data is a bookmark"
Variant (binary string)
DatabaseMX (Joe Anderson - Microsoft Access MVP)Database ArchitectCommented:
"Bookmark: A property of a Recordset object or a form that contains a binary string identifying the current record.) that uniquely identifies the current record (current record: The record in a recordset that you can modify or retrieve data from. There is only one current record in a recordset, but a recordset may have no current record, for example, after a record has been deleted from a dynaset-type recordset.) in a Recordset object.
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Train for your Pen Testing Engineer Certification

Enroll today in this bundle of courses to gain experience in the logistics of pen testing, Linux fundamentals, vulnerability assessments, detecting live systems, and more! This series, valued at $3,000, is free for Premium members, Team Accounts, and Qualified Experts.

  • 3
Tackle projects and never again get stuck behind a technical roadblock.
Join Now