问重新查询后恢复连续表单

EN

Dim uniqueId : uniqueId = me.uniqueField_Value
' uniqueId hold the current selected unique field value
   Form.Requery
       With Me.RecordsetClone
      '   if uniqueId is numeric use next line
        .FindFirst "[uniqueField] = "  uniqueId 
      ' if uniqueId is string uncomment next line and comment previous line 
      '  .FindFirst "[uniqueField] = " & """" & uniqueId & """"
        If Not .NoMatch Then
            Me.Bookmark = .Bookmark
        End If
    End With

'---------------------------------------------------------------------
' Requery a continuous form, keeping the selected record and scroll position as it is before
' With ideas by Stephen Lebans - http://www.lebans.com/SelectRow.htm
'---------------------------------------------------------------------
Public Sub FormRequeryPosition(F As Form)

On Error GoTo Err_FormRequeryPosition

    Dim OrigSelTop As Long
    Dim RowsFromTop As Long
    Dim OrigCurrentSectionTop As Long
    
    ' Must cache the current props because Requery will reset them
    OrigSelTop = F.SelTop
    OrigCurrentSectionTop = F.CurrentSectionTop
    
    ' Turn off screen redraw
    F.Painting = False
    
    ' Requery the Form
    F.Requery
    
    ' Calculate how many rows, if any, the selected row was from the top prior to the Requery
    ' Check if Header is visible or not
    If F.Section(acHeader).Visible = True Then
        RowsFromTop = (OrigCurrentSectionTop - F.Section(acHeader).Height) / F.Section(acDetail).Height
    Else
        RowsFromTop = OrigCurrentSectionTop / F.Section(acDetail).Height
    End If
    
    ' Setting the SelTop property forces this row to appear at the top of the Form.
    ' We will subtract the number of rows required, if any, so that the original
    ' current row remains at the original position prior to the Requery.
    ' First set the current record to the last record.
    ' This is required due to the method that the Access GUI manages the ScrollBar.
    
    ' Prevent error on empty form
    If F.RecordsetClone.RecordCount > 0 Then
        ' With complex record source or many records, Access may not know .RecordCount yet -> use MoveLast to get it
        F.RecordsetClone.MoveLast
        F.SelTop = F.RecordsetClone.RecordCount
        F.SelTop = OrigSelTop - RowsFromTop
        DoEvents
        
        F.Painting = True
        ' Now setfocus back to the original row prior to the Requery
        ' In unknown conditions this raises a runtime error 3001 "Invalid argument"
        On Error Resume Next
        F.RecordsetClone.AbsolutePosition = F.CurrentRecord + RowsFromTop - 1
        If Err.Number = 0 Then
            F.Bookmark = F.RecordsetClone.Bookmark
        End If
    End If
    
Exit_FormRequeryPosition:
    F.Painting = True
    Exit Sub

Err_FormRequeryPosition:
    MsgBox "Error " & Err.Number & ": " & Err.Description & vbCrLf & "Line: " & Erl
    Resume Exit_FormRequeryPosition
    
End Sub