access用代码实现的自动编号为何不能像自带的那样进行复制操作不变呢

pq318

Private Sub Form_Current()
If Me.NewRecord Then
Me.Lable3 = "2011-" & Format(Right(DMax("Lable3", "form5"), 4) + 1, "0000")
End If
End Sub
关键是我要进行大量的行复制，但是这个自动编号会改变，没有达到想要的效果，如何做到像自带的那样的效果，谢谢了，呵呵！

pq318

举个例子，比如自动编号24，下行就会是25，其中24行的Lable3 是2011-0038，我要复制24行的到25行，25还是25编号，但是25行本应是2011-0039会变为2011-0038

pq318

呵呵，版主，是不是没有办法实现啊，是平台的问题吗，我看到的技术里面没有实现这个功能的，就是类似EXCEL里面的拖动复制，比如XL-0001，向下拉动，就会有XL-0002,XL-0003,.....,比较头疼啊。

pq318

谢谢了，用了一个复制上个记录解决了，呵呵，非常感谢论坛前辈的帖子，是从里面学到的，感谢了。

pq318

Private Sub Form_AfterUpdate()
Dim Tempid As String
Dim Tempid1 As String
TempidA = Me.Lable2
TempidB = Me.Lable5
TempidC = Me.Lable4
TempidD = Me.Lable3
TempidE = Me.Lable6
TempidF = Me.Lable7
TempidG = Me.Lable8
TempidH = Me.Lable9
TempidI = Me.Lable10
TempidJ = Me.Lable11
TempidL = Me.Lable12
DoCmd.GoToRecord , , acNewRec
Me.Lable2.DefaultValue = "'" & TempidA & "'"
Me.Lable5.DefaultValue = "'" & TempidB & "'"
Me.Lable4.DefaultValue = "'" & TempidC & "'"
Me.Lable3.DefaultValue = "'" & TempidD & "'"
Me.Lable6.DefaultValue = "'" & TempidE & "'"
Me.Lable7.DefaultValue = "'" & TempidF & "'"
Me.Lable8.DefaultValue = "'" & TempidG & "'"
Me.Lable9.DefaultValue = "'" & TempidH & "'"
Me.Lable10.DefaultValue = "'" & TempidI & "'"
Me.Lable11.DefaultValue = "'" & TempidJ & "'"
Me.Lable12.DefaultValue = "'" & TempidL & "'"
End Sub
我做的是数据表窗口，所以都是需要自动的