[求助]快捷复制上一条记录

三山客

如何快捷复制上一条记录，有快捷键吗？复制上一条字段，用何快捷键？

lilianban

在默认值里输入=DLast("字段名","表名")

三山客

一年多了！感慨万千......大家真好，谢谢！好像还没有找到用哪个快捷键复制上一条记录，不用再等上...

青苹

那你有没有好办法呢，呵呵

红尘如烟

将键预览（KeyPreview）属性设为＂是＂，然后在键释放事件中加入如下代码：

1. Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
   
2. If Shift = acAltMask Then
   
3. If KeyCode = vbKeyZ Then
   
4. DoCmd.GoToRecord , , acPrevious
   
5. DoCmd.RunCommand acCmdSelectRecord
   
6. DoCmd.RunCommand acCmdCopy
   
7. DoCmd.GoToRecord , , acNext
   
8. DoCmd.RunCommand acCmdSelectRecord
   
9. DoCmd.RunCommand acCmdPaste
   
10. End If
    
11. End If
    
12. End Sub

复制代码

使用注意：这里设置的复制上条记录的快捷键为Alt+Z,可以任意定义为其它快捷键，但不能和ACCESS本身的快捷键相冲突
如果表中有无重复索引字段时，请自己加入更改该字段值的代码，如果为自动编号类型则可以不用理会

[ 本帖最后由 红尘如烟 于 2008-7-2 23:19 编辑 ]