how to set bookmark back to beginning record 1

[DougP]

I have this code which works great

    Dim rs As Object
    Dim SQLString As String
    Set rs = Me.Recordset.Clone
    
    SQLString = "[Project Number] = '" & Me![cboFindProjectNumber].Column(0) & "' And [Service] = '" & Me![cboFindProjectNumber].Column(1) & "' And [Number] = '" & Me![cboFindProjectNumber].Column(2) & "'"
    rs.FindFirst SQLString
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark

How can I easily show the first record on the screen
by clicking a button called Refresh.

TIA

DougP

 

[DougP]

Nevermind I figured it out, Sorry

    Dim rs As Object
    Dim SQLString As String
    Set rs = Me.Recordset.Clone
    rs.MoveFirst
    Me.Bookmark = rs.Bookmark

DougP

 

[MajP]

or simply
DoCmd.GoToRecord , , acFirst

 

[DougP]

Yep, much cleaner
have a star

DougP