我的自动编号代码不起作用

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

我猜这是一个网页。如果是这种情况，每次页面处理任何事件时，您都在使用页面类型的全新实例。也就是说，你是“我”的参考，因为每次调用函数时，代码都会指向不同的对象。