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!!!
