RE:Como borro datos en modo multiselect de listbo
Publicado por
martin (1 intervención) el 04/03/2013 16:39:46
Buenas tardes: aún con el código que han puesto me sigue pasando lo mismo... me borra sólo el primer elemento... Por favor, alguien puede ayudarme. Este es mi codigo:
Esto es para obtener los items seleccionados para determinada accion
Private Sub agregaContacto_Click()
Dim oItem As Variant
Dim iCount As Integer
Dim I As Integer
'método para agregar los contactos seleccionados de la lista
iCount = 0
idesContactos = ""
If Me.lContacto.ItemsSelected.Count <> 0 Then
For Each oItem In Me.lContacto.ItemsSelected
If iCount = 0 Then
idesContactos = idesContactos & Me.lContacto.ItemData(oItem)
iCount = iCount + 1
Else
idesContactos = idesContactos & "," & Me.lContacto.ItemData(oItem)
iCount = iCount + 1
End If
Next oItem
Else
MsgBox "No ha seleccionado ningún elemento de contactos", vbInformation, "CR-Contactos"
Exit Sub
End If
Call seleccionar(idesContactos)
Call eliminaElementos(Me.lContacto)
End Sub
Y este es el codigo de eliminar..
Private Sub eliminaElementos(valor As ListBox)
Dim I As Integer
On Error GoTo Errores
For I = 0 To valor.ListCount - 1
If valor.Selected(I) = True Then
MsgBox valor.ItemData(I)
valor.RemoveItem I
valor.Requery
I = I - 1
End If
Next I
Exit Sub
Errores:
Err.clear
End Sub
Muchas gracias