多条记录加一

Question

我有这个代码可以访问：

Option Compare Database

Public Sub batchAdd(records As Integer)

    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim i As Integer

    Set db = CurrentDb
    Set rs = db.OpenRecordset("tblMeters")

    i = 1

    Do While i <= records

        rs.AddNew
        rs!value1 = Me.value1
        rs!Ticket = Me.Ticket
        rs!value2 = Me.value2
        rs!value3 = Me.value3
        rs!value4 = Me.value4
        rs!value5 = Me.value5
        rs!value6 = Me.value6
        rs!value7 = Me.value7
        rs.Update

        i = i + 1

    Loop

    rs.Close
    Set rs = Nothing
    Set db = Nothing

End Sub

Private Sub cmdAddRecords_Click()

    batchAdd Me.txtRecords
    Me.tblMeters_sub.Requery

End Sub

我的问题是如何为插入的每条记录增加 +1 的票证价值。

示例：如果我插入价值 1 到 10 次的票，第一次是 1，第二次是 2，然后是 3 ....我如何更改票值的代码？

Answer 1

将此行调整为：

rs!Ticket = i

多条记录加一

Multiple record increase by one

ms-access-2010