Мой код автонумерации не работает - PullRequest
Новая
       14

Мой код автонумерации не работает

0 голосов
/ 30 ноября 2010

Может кто-нибудь помочь мне здесь?Я пытаюсь сделать пользовательский автономер, когда я нажимаю на кнопку.Код работал нормально, когда набор записей пуст, он дает мне 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

Спасибо за помощь.

1 Ответ

0 голосов
/ 30 ноября 2010

Я предполагаю, что это для веб-страницы.Если это так, то каждый раз, когда ваша страница обрабатывает какое-либо событие, вы работаете с совершенно новым экземпляром типа страницы.То есть ссылка «Я» в этом коде указывает на другой объект каждый раз, когда вызывается функция.

...