V
Victoria.sv
Please could somebody help me with my problem. I have list box in the
form, the sourse of that list is SQL query. I would like to update
only selected records in that list ( multiple) and my code is
following:
For intItem = 1 To Form_InCheck.List4.ListCount - 1
If Form_InCheck.List4.Selected(List4.ListIndex) = 0 Then
With rs
.Edit
.Fields("Supplied") = True
.Update
.MoveNext
End With
End If
Form_InCheck.List4.Requery
Next intItem
If I stop running on NEXT the first record is updated if I select it
and stay the same if was not selected ( so that's what I want), but if
I let the code run to end All record become updated with no difference
were they selected or not.
Please can anybody help me?
Thanks a lot!
Victoria
form, the sourse of that list is SQL query. I would like to update
only selected records in that list ( multiple) and my code is
following:
For intItem = 1 To Form_InCheck.List4.ListCount - 1
If Form_InCheck.List4.Selected(List4.ListIndex) = 0 Then
With rs
.Edit
.Fields("Supplied") = True
.Update
.MoveNext
End With
End If
Form_InCheck.List4.Requery
Next intItem
If I stop running on NEXT the first record is updated if I select it
and stay the same if was not selected ( so that's what I want), but if
I let the code run to end All record become updated with no difference
were they selected or not.
Please can anybody help me?
Thanks a lot!
Victoria