Código:
bueno en el codigo anterior mi problema es que marca error al tratar de eliminar el registro seleccionado del listview y el error es el siguiente:With ListView1
For i = .Items.Count To 1 Step -1
If .Items.Item(i).Checked = True Then
vnumero = Trim(.Items.Item(i).Text)
rst = dbs.OpenRecordset("select * from clientes where num_cliente like '" & vnumero & "'")
If rst.RecordCount >= 1 Then
dbs.Execute("DELETE * FROM clientes WHERE num_cliente= '" & vnumero & "'")
End If
End If
Next i
End With
"El límite inferior de la colección ListView1.ListItems cambió de 1 a 0"
como puedo hacerle para que estas dos opciones pueda hacer que funcione, espero y me haya dado a entender. les agradezco de antemano y les envio un cordial saludo esperando y puedan ayudarme se los agradezco mucho..saludoss!!!

