0

誰でもここで私を助けることができますか? ボタンをクリックすると、ユーザー定義の自動番号を付けようとしています。レコードセットが空の場合、コードは正常に機能し、最初のレコードで 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

助けてくれてありがとう。

4

1 に答える 1

0

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

于 2010-11-30T05:11:16.220 に答える