Bookmark solution to navigate...

thenelson,

I am looking for Boomark solution.

Thanks.

You could also could be written as:

DoCmd.GoToRecord acDataForm, Me.Name, iConst

in one line.

In that case:
recordset.{MoveFirst | MoveLast | MoveNext | MovePrevious}

There is no move to new record in a record set.

So, we don't need to use bookmark at all, right?

Could you please complete my original code the way that you see it could work?

Thanks,

mike

You code moves to the desired record at recordset level. It does not show the changes on the form. Also record position 1/10, 2/10, etc. is not addressed yet.

txtNoOfNos = .AbsolutePoisition + 1 & "/" & .RecordCount I have it figured out for the record count (I thought it was included in the original question).

Sorry I didn't see your post

So far I have the following. All works except add new record for which I will post a new question later:


Function fnGoto(iConst As Integer)
   Dim rs As DAO.Recordset
   Dim i As Integer
   Dim BM As Variant
   Dim iPosition As Long
   Dim iEnable As Integer
   Dim iTotal As Integer
   
   Set rs = Me.RecordsetClone
   With rs
   rs.MoveFirst
   Do Until rs.EOF
       If !ID = Me!ID Then
           iPosition = .AbsolutePosition
           Exit Do
       ElseIf Nz(Me!ID, "") = "" Then
           .MoveLast
           iPosition = .RecordCount
           iEnable = -1
           Exit Do
       End If
       .MoveNext
   Loop
   
   .MoveLast
   iTotal = .RecordCount
   .MoveFirst
       
    Select Case iConst
       Case 0: iPosition = iPosition - 1
       Case 1: iPosition = iPosition + 1
       Case 2: iPosition = 0
       Case 3: iPosition = .RecordCount - 1
       Case 5: iPosition = -1
   End Select
           
    If iPosition = -1 Then
       DoCmd.GoToRecord acDataForm, Me.Name, acNewRec
       Me!txtNoOfNos = "(New)"
   Else
           
       .MoveFirst
       For i = 0 To .RecordCount - 1
           If .AbsolutePosition = iPosition Then
               BM = .Bookmark
               iPosition = .AbsolutePosition + 1
           Exit For
           End If
           .MoveNext
       Next i
       Me.Bookmark = BM
       Me!txtNoOfNos = iPosition & "/" & .RecordCount
   End If
   iEnable = iPosition
   End With

    rs.Close

    ' routing to enable or disable the command buttons  as required.
   EnableDisableFor iEnable, iTotal
   
End Function