loop items selected in listbox to edit a field

[Dale]

Access 2003 Front Connected to SQL 2005 Backend

I have a multi-select listbox that shows a filtered list according to
a date range referenced from a ctrl on the form.
I need to update 2 fields on only the selected records. I have tried
a couple of different methods without success.
This is my current code:
Dim i As Integer
For i = 0 To Me.List5.ListCount - 1
'Me.List5.options = dbSeeChanges
strSQL = "SELECT * FROM qDeposit_1 WHERE TransID =" &
Me.List5.ItemData(0)
Set rs = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset,
dbSeeChanges)
If rs.RecordCount 0 Then
rs!DepositDate = Date
End If
Next i
Now I am getting a runtime error 3061 too few parameters, expected
2, and it appears to be the "set rs" line that is causeing the
problem.
Am I going about this in the right fashion or should I be trying a
different approach?
As Always
Any and ALL help Appreciated!

[Salad]

Dale wrote:

Access 2003 Front Connected to SQL 2005 Backend

I have a multi-select listbox that shows a filtered list according to
a date range referenced from a ctrl on the form.
I need to update 2 fields on only the selected records. I have tried
a couple of different methods without success.
This is my current code:
Dim i As Integer
For i = 0 To Me.List5.ListCount - 1
'Me.List5.options = dbSeeChanges
strSQL = "SELECT * FROM qDeposit_1 WHERE TransID =" &
Me.List5.ItemData(0)
Set rs = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset,
dbSeeChanges)
If rs.RecordCount 0 Then
rs!DepositDate = Date
End If
Next i
Now I am getting a runtime error 3061 too few parameters, expected
2, and it appears to be the "set rs" line that is causeing the
problem.
Am I going about this in the right fashion or should I be trying a
different approach?
As Always
Any and ALL help Appreciated!

Perhaps use Column instead of ItemData.

strSQL = "SELECT * FROM qDeposit_1 WHERE TransID =" & Me.List5.Column(0,i)

Por Ti, Baby
http://www.youtube.com/watch?v=9GTF-YYa1VM