Update table with incremental

[Onlylonely]

Hi Guys,

Any clue to update the table with incremental number?

With rst

Do Until .EOF

If (![Remark] = "Rework") Then
Rework = Rework + 1
Else

End If
.MoveNext
Loop
End With

For R = 1 To 19

CurrentDb.Execute "INSERT INTO Issuetbl (Part_Number, Serial_Number, Job_Number , Step, Character_ID, Remark) " & _
" VALUES ('" & Me.txtPN & "','" & Me.txtSN & " ','" & Me.txtJN & "', '1' , " & R & " , 'Rework'  )"

Next

Call Load_update_Step1

 

[June7]

You want to increment groups of 3 records? Why iterate 19 times?

 

[Minty]

PMFJI - this is the second thread I've read where you seem very focused on keeping "Status" type information updated in tables.

Ideally you should calculate this type of information based on other data, as trying to keep it updated at all touch points in your database becomes very difficult, as you are discovering.

On this question you appear to be running an Insert query but are describing performing an Update?