Office中国论坛/Access中国论坛

标题: [求助]快捷复制上一条记录 [打印本页]

---

作者: 三山客    时间: 2005-12-15 18:33
标题: [求助]快捷复制上一条记录
如何快捷复制上一条记录，有快捷键吗？复制上一条字段，用何快捷键？

---

作者: lilianban    时间: 2006-12-31 04:35
在默认值里输入=DLast("字段名","表名")

---

作者: 三山客    时间: 2007-1-1 05:54
一年多了！感慨万千......大家真好，谢谢！好像还没有找到用哪个快捷键复制上一条记录，不用再等上...

---

作者: 青苹    时间: 2008-7-2 22:28
那你有没有好办法呢，呵呵

---

作者: 红尘如烟    时间: 2008-7-2 23:16
将键预览（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 编辑 ]

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3