Why an extra record???

[rbasram]

I have a functiona that loop through a listbox and then adds a new the record into the table but after this procedure i get an extra blank record i have no idea why any suggetions...

Private Sub Command19_Click()

Dim lrsMyRecordSet As Recordset
Dim liLoop As Variant

Set lrsMyRecordSet = CurrentDb.OpenRecordset("test", dbOpenDynaset)

For liLoop = 0 To lstAllProduct.ListCount

lstAllProduct.Selected(liLoop) = True
lrsMyRecordSet.AddNew
lrsMyRecordSet("Pt&quot = Me.lstAllProduct.Column(0, liLoop)
lrsMyRecordSet("CT#&quot = Me.[txtCTracking]
lrsMyRecordSet("T#&quot = Me.[Tracking#]
lrsMyRecordSet("Pub#&quot = Me.[Publication#]
lrsMyRecordSet!Tt = Me.[txtTitle]
lrsMyRecordSet!DID = txtDocumentID
lrsMyRecordSet!AID = Me.txtAuthorName
lrsMyRecordSet.Update
Next liLoop


End Sub

 

[Craig0201]

Try changing the For statement to

For liLoop = 1 To lstAllProduct.ListCount


Craig

 

[Skeptik]

Hi! try this!

For liLoop = 1 To lstAllProduct.ListCount do



next liloop

Skep