关于复制粘贴问题

pq318

我有一个数据表窗体，其中有个编码字段,在这个字段中有许多的编码都是要重复的，比如 张三 可能连续的十个张三，现在问题就来了，首先 不能像excel表那样拖动复制，于是咋就想啊，能不能光标向下复制能，于是
Private Sub Form_Open(Cancel As Integer)
SendKeys "^c"
Me.Lable5.SetFocus
End Sub
Private Sub Lable5_GotFocus()
If IsNull(Lable5) = True Then
SendKeys "^v"
End If
End Sub
现在的问题是粘贴是没有问题了，我想的是复制怎么自动生成，不用按ctrl+c啊，我用了 beforeupdate,但是跟焦点冲突不让用啊，有没有在改变Lable5的时候自动复制，向下移动光标的时候就自动粘贴了，谢谢

aslxt

字段值更新后，设置字段的默认值为新值即可，不用复制粘贴
比如某【文本框1】输入“张春桥”,以后新记录的默认值就是“张春桥”
利用该字段的更新后事件
Private Sub 文本框1_AfterUpdate()
  文本框1.DefaultValue = "'" & 文本框1 & "'"
End Sub

pq318

谢谢aslxt的回复，我研究一下啊