Hola a todos, tengo un problema que ya me está sacando los choros del canasto. Les cuento, tengo un form en el cual hay un listbox cuya propiedad style está en 1 o sea checkbox. Este listbox se llena con datos extraidos desde mi BD en access. El asunto que yo necesito que el usuario pueda seleccionar una o varias de las opciones que se le presentan, entiendo que de la manera en q esta construido el objeto listbox eso se puede hacer. El problema, y he aki lo que no entiendo, es que si yo selecciono (de 5 opciones) la primera y la ultima cuando en mi codigo pregunto por cuales fueron seleccionadas solo detecta la ultima que seleccione!!!!. Además por lo que pude observar después de mucho probar es que si yo marco dos opciones cualesquiera pero le doy foco a otro elemento de mi listbox (sin seleccionarlo) entonces lo detecta como seleccionado y para ese elemento se ejecutan las otras acciones!!!!. Hasta aki no se, lo que me gustaria saber es de que forma se comporta el listbox cuando está en ejecución y como accedo a los valores que he seleccionado, importa el orden en el que hago la seleccion???? hay algo malo???
adjunto el codigo donde consulto por la opcion seleccionada
Código:
For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then
SelEstac = delim & List1.Text & delim
strcondatos = "select estacion.id_estacion from estacion where estacion.nombre=" & SelEstac
rsDatos.Open strcondatos, conex
id = rsDatos!id_estacion
rsDatos.Close
strcondatos = "select count(*) as tot from caudal_medio where caudal_medio.id_estacion=" & id
rsDatos.Open strcondatos, conex
tot_medicion = rsDatos!tot
rsDatos.Close
strcondatos = "select count(*) as tot from caudal_medio where caudal_medio.id_estacion=" & id & "and caudal_medio.medicion=0"
rsDatos.Open strcondatos, conex
tot_ceros = rsDatos!tot
rsDatos.Close
res_diagn(id) = tot_ceros * 100 / tot_medicion
est = "Estacion "
dp = " : "
mensaje = est & id & dp & res_diagn(id) & "%"
MsgBox (mensaje)
End If
Next i
Muchas gracias