我的AutoNumber代码不工作

Question

有人能帮我吗？当我点击一个按钮时，我正在尝试做一个用户定义的自动编号。当记录集为空时，代码工作得很好，它在我的第一个记录上给我一个1，但是，当我再次单击该按钮后，它又给我一个1。这是我的代码。

Private Sub BtnNew_Click()
    Dim rsClone As Recordset
    Dim pVal As Integer

    Set rsClone = Me.RecordsetClone

    If Not (rsClone.BOF) Then
        DoCmd.GoToRecord , , acNewRec
        rsClone.MoveLast
        pVal = rsClone.AbsolutePosition + 2
        Me.CatgId.Value = pVal
        Me.CatgId.SetFocus
    Else
        rsClone.AddNew
        Me.CatgId.Value = 1
        Me.CatgId.SetFocus
    End If
End Sub

谢谢你的帮助。

Answer 1

我猜这是一个网页。如果是这样的话，每次您的页面处理任何事件时，您都在使用页面类型的全新实例。也就是说，每次调用函数时，代码中"Me“引用都指向不同的对象。