title: Me.Recordset.AbsolutePosition can not move to current record in the form
body: <p>i have a form with data sheet view i want to use this form as a list box (multi select extended), so when i click on each record/field in the form it uses (clear selection function) for unselected other records and just select record i have focused, now problem is when click on each field after running clear selection function it goes to the first record and did not moves cursor to current focused record.</p>
  
  <p>it seems below code</p>
  
  <pre><code> Me.Recordset.AbsolutePosition = Pos1 
  </code></pre>
  
  <p>does not work and will not be moved to current focused record.</p>
  
  <p>the complete code is like below:</p>
  
  <pre><code>  Private Sub P_Click()
  On Error Resume Next
  Dim ct As Control
  Dim Cnt As Long, Rws As Long
  Dim Pos1 As Long, Pos2 As Long
  
  Pos1 = Me.Recordset.AbsolutePosition
  
  Set ct = ActiveControl
  
  
  ' Clear other selections if Ctrl or Shift key
  ' is not simultaneously pressed.
  If CtrlPressed = 0 And ShiftPressed = 0 Then
     P_ClearSelections
  
     Me.Recordset.AbsolutePosition = Pos1
  
  
  
      Me.IsSelected = True
  
      ct.SetFocus
      GoTo ExitPoint
  End If
  
  If ShiftPressed &gt; 0 Then
      Rws = Me.SelHeight
      If Rws &gt; 1 Then
          Pos2 = Me.SelTop - 1
          For Cnt = Pos2 To Pos2 + Rws - 1
              Me.Recordset.AbsolutePosition = Cnt
              Me.IsSelected = True
          Next
      End If
      GoTo ExitPoint
  End If
  
  Me.IsSelected = True
  
   ExitPoint:
  ' Save the status
  Me.Dirty = False
  ' Update display in SF_Selected
  Me.Parent("SF_Selected").Requery
  
  ActiveControl.SelLength = 0
  
  Set ct = Nothing
  On Error GoTo 0
   End Sub
  </code></pre>
  
  <p><strong>function clear selection is like below;</strong></p>
  
  <pre><code>   Public Sub P_ClearSelections()
  On Error Resume Next
  
  DoCmd.Echo False
  ' Clear all check boxes
  CurrentDb.Execute "UPDATE tblItems " &amp; _
          "SET IsSelected = False;", dbFailOnError
  Me.Requery
  
  
  DoCmd.Echo True
  
  On Error GoTo 0
  End Sub
  </code></pre>