Listbox Con chekboes

Hola Mrtool espero que me puedas dar una mano con el siguiente problema.
Tengo un Listbox con Checkboxes (Activados desde la propiedad del Style)
A dicho listbox lo lleno con elementos y sus itemdata desde una tabla
Para que se entienda un poco mejo te doy ejemplo:
Cargo esto en el list
Verde Itemdata 1
Azul Itemdata 3
Blanco Itemdata 5
Rojo Itemdata 9
Mi Problema es que no estoy pudiendo guardar en una tabla los itemdata de los elementos que estén seleccionados.
Este es mi código: (a modo de ej, el código es más complicado)
For i = 0 To lst.ListCount - 1
    If lst.Selected(w) = True Then
       rs.AddNew
       rs!id_color = LstMaterias.ItemData(LstMaterias.Selected(w))
       rs.Update
    end if
next
El problema que tengo es que guarda el mismo itemdata repitiéndose, o sea si el usuario selecciono "azul" y "rojo" guarda dos registros pero con el mismo itemdata (3), lo que necesito es que me guarde (3 y 5), si selecciono los 5 elementos que guarde (1,3,5,9)
Espero que me puedas dar una mano, disculpa si esta un poco confuso es que te estoy escribiendo bastante cansado.
Desde ya muchas gracias, saludos

1 respuesta

Respuesta
1
Viendo el código veo que usas siempre la 'W' para ver si está seleccinoado o no cuando cvreo que deberías usar el 'i'. De otra forma estas usando siempre el mismo valor aunque hagas el bucle.
Haz la prueba y si no te va bien me lo comentas.
Gracias por responder
Vos sabes que la "w" fue un error de copiar y pegar, no me di cuenta que declare la I como un contador y después use la w, Bueno done esta la w va la i, así tengo el código y no me funciona.
Espero que me puedas ayudar.
asi seria el codigo q tengo:
For i = 0 To lst.ListCount - 1
    If lst.Selected(i) = True Then
       rs.AddNew
       rs!id_color = LstMaterias.ItemData(LstMaterias.Selected(i))
       rs.Update
    end if
next.
Gracias por responderme y disculpa pero me confundí con las letras
Estas mezclando los datos y los objetos.
Prueba esto:
Cambia List1 por el que quieras procesar en tu código veo dos ( lst y lstmaterias)
Dim cont As Integer
For cont = 1 To Me.List1.ListCount - 1
    If Me.List1.Selected(cont) = True Then ' si está seleccionado
        Debug.Print Me.List1.List(cont) ' haces lo que quieras con ellos
    End If
Next cont
Si lo que necesitas es un lst multicolumna mejor usa un ListView que es más potente que el normal.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Un checkbox dentro listview

Como puedo hacer el proceso de leer mediante un ciclo For o while los valores de aquelloa registros que seleccione mediante un checkbox de una lista de tipo Listview con el fin de identificar unicamente los registros que yo haya seleccionado Ayuda...
1 respuesta

Busqueda parcial en Listview

Necesito realizar una busqueda en un listview, pero quiero que sea una busqueda parcial para que no necesariamente tecleen todo el nombre para que lo pueda encontrar, mira este es mi codigo y funciona pero solo si capturan el nombre completo. Private...
1 respuesta

Filtrar datos dentro de un listview

Mi pregunta es si me pudieran ayudar a filtrar la informacion que tengo en un listview, esta información es la lista de archivos de un carpeta y si pongo algún dato en un textbox se filtre en el listview, siempre y cuando existan datos coincidentes.
1 respuesta

Comprobar si hay elemento seleccionado en ListBox

No veo como resolver la siguiente cuestión: Tengo un Listbox con datos y un botón para borrarlos. EL botón de borrado, no sólo elimina los elementos del ListBox, sino que también actúa sobre un contador. Lo que quiero es que el botón no haga nada (no...
2 respuestas

Agregar datos a un Listview

Mi nombre es Arturo, mi pregunta es la siguiente, estoy haciendo un modulo de consulta y lleno un listview con checkbox para seleccionar uno o más registros, a estos elementos seleccionados los necesito pasar a otro Listview por lo que tengo...
1 respuesta

Igualar campo a Listbox

El asunto es cómo hacer coincidir el contenido completo de un listbox, sin necesidad de seleccionar nada previamente( lo que creo lo debería simplificar de alguna forma) con el de un campo de una tabla, es decir a medida que introduzco o elimino...
1 respuesta

Consulta acerca de utilización de Selected(i) en Listbox en VBA Excel

De Excel tengo una consulta acerca de la utilización del Selected(i) en un Listbox de VBA Excel, ya había consultado cierto código pero me quedé con esa duda, espero me puedan ayudar explicandome la forma en la que funciona Selected(). De antemano...
2 respuestas

ListBox

Tengo una listbox creada y con datos dentro pero... No se como consultar cada una de las filas y tampoco se mirar si estas están marcadas o no. Se que es una pregunta fácil pero llevo mucho tiempo probando las propiedades y métodos y no lo...
1 respuesta

Imprimir filas seleccionadas con multiselectextended de listbox e imprimirlas

Hace un par de días que estoy creando una macros para el inventario de bodega, tengo bastante avanzado todo esto, pero me quede pegado en la impresión de mis datos. Les cuento, existe una matriz de rango amplio que se muestra completa en el listbox,...
1 respuesta

DBGrid a Listbox - agregar / quitar elementos

Para simplificar una pregunta anterior: tengo un DBGrid, un ListBox y 2 botones (Agregar y Quitar): * Al seleccionar un elemento del DBGrid y presionar el botón agregar, ese elemento debe ser copiado al ListBox. No tiene que permitir la entrada de...
1 respuesta