ListView Checkbox Click Question

[Ace]

Hi Everyone,

Is there an easier way of doing this? Sometimes when this code runs I get an error: Object block or with variable block not set. Other times it runs just fine. Anyways, what I am trying to do is get a sql statement to run when a user selects or deselects any check box in the ListView. I can't seem to figure out how to get it to work without looping through the ListView each time. I would appreciate any help. Thanks.

Private Sub lvwHistory_ItemCheck(ByVal Item As MSComctlLib.ListItem)
    Dim objItem As ListItem
    
    For Each objItem In lvwHistory.ListItems
                
        If objItem.Checked = True Then
            mcnAP.Execute "UPDATE DateRegister SET Void = Yes WHERE ID = " & objItem.Tag & ""
        Else
            mcnAP.Execute "UPDATE DateRegister SET Void = No WHERE ID = " & objItem.Tag & ""
        End If
    
    Next

End Sub

[Xa0z]

By adding this if you shouldn't get the error I think

Private Sub lvwHistory_ItemCheck(ByVal Item As MSComctlLib.ListItem)
    Dim objItem As ListItem
    
    For Each objItem In lvwHistory.ListItems
        If Not objItem Is Nothing Then
            If objItem.Checked = True Then
                mcnAP.Execute "UPDATE DateRegister SET Void = Yes WHERE ID = " & objItem.Tag & ""
            Else
                mcnAP.Execute "UPDATE DateRegister SET Void = No WHERE ID = " & objItem.Tag & ""
            End If
        End If
    Next
End Sub