Problem With Listview And Checkbox

[eirt]

can u guys help me with this code?

Dim itm As ListItem
                    For Each itm In lvList.ListItems
                        If itm.Checked Then
                              rs.Index = "JobNumber"
                              rs.Seek "=", lvList.SelectedItem.ListSubItems(1)
                                  If Not rs.NoMatch Then
                                      Call UpdateReport
                                      MsgBox lvList.SelectedItem.ListSubItems(1).Text
                                  Else
                                      MsgBox "ERROR", vbCritical, "ERROR"
                                  End If
                        Else
                        End If
                    Next itm

it does not work. can u help me gusys with this? thanks!



-

[zynder]

What is the error?

[leinad31]

Is JobNumber the primarykey of the table? If not then use Find method instead, in criteria specify fieldname for match in the same manner you would create a criteria in an SQL WHERE clause.

[Hack]

Try this

Dim itm As ListItem
Dim i As Long
 
  For i = 1 To lvList.ListItems.Count
      If lvList.ListItems.Item(i).Checked = True                        
         rs.Index = "JobNumber"
         rs.Seek "=", lvList.SelectedItem.ListSubItems(1)
              If Not rs.NoMatch Then
                 Call UpdateReport
                 MsgBox lvList.SelectedItem.ListSubItems(1).Text
              Else
                 MsgBox "ERROR", vbCritical, "ERROR"
              End If
      'Else
      'if you are not going to do anything with the Else 
      'then you dont need it
      End If
  Next itm