MS Access VBA如何实现等效Ctrl+'复制上条记录同字段值功能

你之前用的两个方案失效是必然的：

• SendKeys 属于全局模拟按键，强依赖窗体焦点状态，只要操作过程中出现控件失焦、后台弹窗、切换窗口的情况，按键就会发送到错误的位置，稳定性极差，生产环境基本不推荐用。
• DLast 函数本身的设计就不是用来取界面排序后的最后一条记录，它读取的是表物理存储顺序里的最后一条写入数据，完全无视你窗体上设置的筛选、排序规则，返回随机错误值是正常现象。

针对绑定型窗体（你能用Ctrl+'快捷键取值说明窗体是绑定到记录源的），最稳定的方案是直接读取窗体当前加载的记录集，定位到上一条记录后给指定字段赋值，完全匹配你手动按Ctrl+'的取数逻辑，不会出错。

实现步骤 #

1. 打开窗体设计视图，右键窗体空白处选择「查看代码」，进入VBA编辑界面
2. 粘贴以下代码，把代码里的控件名、字段名替换成你自己窗体上对应的名称即可：

Private Sub Form_Current()
    ' 仅在新增空白记录时触发填充，避免误改已有记录数据
    If Not Me.NewRecord Then Exit Sub
    
    Dim rs As DAO.Recordset
    Set rs = Me.RecordsetClone
    
    ' 同步定位到当前记录位置，再向上移动一条
    rs.Bookmark = Me.Bookmark
    rs.MovePrevious
    
    ' 确认存在上一条记录时才执行赋值，避免移动到记录集头部报错
    If Not rs.BOF Then
        ' ========== 以下部分替换为你需要重复填充的6个字段 ==========
        ' 格式为：Me!【窗体控件名】 = rs!【记录源字段名】
        Me!txtField1 = rs!Field1
        Me!txtField2 = rs!Field2
        Me!txtField3 = rs!Field3
        Me!txtField4 = rs!Field4
        Me!txtField5 = rs!Field5
        Me!txtField6 = rs!Field6
        ' ========== 替换部分结束 ==========
    End If
    
    rs.Close
    Set rs = Nothing
End Sub

可选调整 #

• 如果不想新增记录时自动填充，想要手动触发填充，可以在窗体上加一个按钮，把上面除了If Not Me.NewRecord Then Exit Sub之外的代码放到按钮的Click事件里，点一次按钮就完成一次指定字段的填充。
• 如果运行代码提示「用户定义类型未定义」，就打开VBA编辑器的「工具-引用」菜单，勾选Microsoft DAO 3.6 Object Library或者更高版本的DAO库即可；不想加引用的话，把Dim rs As DAO.Recordset改成Dim rs As Object也能正常运行。

方案优势 #

• 完全遵循窗体当前的筛选、排序规则，取到的上一条记录和你界面上看到的上一条完全一致，不会出现取数错误
• 不需要切换控件焦点，直接给控件赋值，没有SendKeys的稳定性问题
• 只填充你指定的6个字段，剩下的字段保持空白，不需要逐字段按快捷键操作，新增记录时自动完成填充。

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