Access数据表窗体加载时按ID调用SetFocus定位指定记录问题

我之前也踩过这个一模一样的坑！你遇到的情况太典型了——GotoID在按钮点击、窗体已打开时都正常，唯独在窗体加载时执行了却没效果，数据表始终停在第一条记录，核心原因是窗体Load事件的触发时机早于数据记录集完全绑定的时机。

Access的数据表窗体在Load事件触发时，窗体本身的UI元素加载完成了，但后台的数据源记录集可能还在初始化加载，这时候你调用定位代码，相当于对着一个还没准备好的记录集操作，代码不报错但根本起不到作用。

给你几个实测有效的解决方案：

方案1：改用Form_Current事件（最稳妥） #

Current事件是在记录集加载完成、第一条记录显示之后才触发的，这时候操作记录集就完全没问题了。为了避免每次切换记录都触发定位，我们可以用静态变量确保只执行一次：

Private Sub Form_Current()
    Static hasRunOnce As Boolean
    ' 只在窗体第一次加载时执行定位
    If Not hasRunOnce Then
        ' 替换成你需要定位的目标ID
        GotoID 1234
        hasRunOnce = True
    End If
End Sub

方案2：在Load事件中延迟执行 #

如果坚持要用Load事件，可以通过DoEvents让Access先完成数据绑定，或者用定时器延迟执行，确保记录集就绪：

方法A：用DoEvents强制等待 #

Private Sub Form_Load()
    ' 让Access优先完成数据绑定工作
    DoEvents
    ' 调用定位过程
    GotoID 你的目标ID
End Sub

方法B：用定时器延迟执行（更可靠） #

如果DoEvents还是不行，试试定时器，给记录集足够的加载时间：

Private Sub Form_Load()
    ' 设置100毫秒后触发定时器事件
    Me.TimerInterval = 100
End Sub

Private Sub Form_Timer()
    ' 关闭定时器，避免重复执行
    Me.TimerInterval = 0
    ' 执行定位
    GotoID 你的目标ID
End Sub

检查你的GotoID过程是否正确 #

另外，确保你的定位过程是直接操作记录集，而不是依赖DoCmd.GotoRecord（后者在窗体未完全就绪时容易失效）。推荐的GotoID写法：

Sub GotoID(targetID As Long)
    With Me.Recordset
        .FindFirst "ID = " & targetID
        If Not .NoMatch Then
            ' 通过书签定位，这是Access中最可靠的方式
            Me.Bookmark = .Bookmark
        End If
    End With
End Sub

按上面的方法调整后，数据表窗体加载时应该就能准确跳转到指定ID的记录了！

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