Mehrere Rekordanstieg von einem

Question

Ich habe diesen Code für den Zugriff:

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 

Meine Frage war, wie das Ticket Wert von +1 für jeden Datensatz eingefügt zu erhöhen.

Beispiel: Wenn ich das Ticket mit einem Wert von 1 bis 10 Mal einlege, wird das erste Mal 1 und das zweite 2, dann 3 .... Wie ändere ich diesen Code für den Ticketwert?

Answer 1

Passen Sie diese Zeile:

rs!Ticket = i