私のオートナンバーコードは機能しません

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

私はこれがウェブページ用であると推測しています。その場合、ページがイベントを処理するたびに、ページのタイプの全く新しいインスタンスで作業しています。つまり、関数が呼び出されるたびに、そのコードが別のオブジェクトを指していることで、あなたは「私」の参照になります。