使用DoCmd.GoToRecord ,,acNewRec后，如何让连续子表单显示新记录上方4-5条记录？

我太懂这个痛点了！Access默认新建记录时直接跳到底部只显示新行，完全看不到上面的记录，要让它上方保留4-5条记录，得绕开这个默认逻辑，试试下面几个实用的方法：

方法一：记录集书签定位法（最可靠） #

这个方法通过记录集克隆先定位到新记录上方的位置，再跳回新记录，让窗体自动保留上方的显示区域：

Private Sub Form_Open(Cancel As Integer)
    Dim rs As DAO.Recordset
    Set rs = Me.RecordsetClone
    
    ' 先定位到新记录并保存它的书签
    rs.MoveLast
    rs.MoveNext ' 移动到新记录行
    Dim newRecBookmark As Variant
    newRecBookmark = rs.Bookmark
    
    ' 往回移动5条记录（你可以改成4条，按需调整）
    Dim i As Integer
    For i = 1 To 5
        rs.MovePrevious
        If rs.BOF Then Exit For ' 如果记录不够，提前终止循环
    Next i
    
    ' 定位到这条上方的记录，再跳回新记录
    Me.Bookmark = rs.Bookmark
    Me.Bookmark = newRecBookmark
    
    Set rs = Nothing
End Sub

注意：要确保窗体的RecordsetType设置为动态集或动态集（不一致的更新），这样记录集克隆才能正常同步窗体的记录。如果窗体有筛选/排序，记得同步记录集的筛选和排序：rs.Filter = Me.Filter、rs.Sort = Me.Sort。

方法二：手动调整ScrollTop属性（适合已知行高的情况） #

如果你的Access版本是2010及以上，可以直接修改窗体的ScrollTop属性，手动往上滚动指定高度：

Private Sub Form_Open(Cancel As Integer)
    DoCmd.GoToRecord ,,acNewRec
    
    ' 获取单条记录的高度（细节节的高度就是行高，无额外间距的情况）
    Dim rowHeight As Integer
    rowHeight = Me.Section(acDetail).Height
    
    ' 往上滚动5行的高度
    Me.ScrollTop = Me.ScrollTop - (rowHeight * 5)
    
    ' 防止滚动到负数位置
    If Me.ScrollTop < 0 Then Me.ScrollTop = 0
End Sub

这个方法简单直接，但需要确保行高是固定的，如果你的记录行高有变化（比如有展开/折叠的控件），可能会出现偏差。

方法三：自定义新建记录按钮（替换默认导航） #

如果是点击底部默认的“新建记录”导航按钮出现这个问题，可以自己添加一个按钮，替换默认的导航按钮，在按钮的Click事件里用方法一的逻辑处理，彻底绕过Access的默认导航行为。

内容的提问来源于stack exchange，提问作者user1550044