Selección Multiple Cuadro de lista
Publicado por Luis (26 intervenciones) el 04/06/2015 06:25:46
Estimados:
Mediante el asistente de Access pude crear un cuadro de lista multiple que se llama Lista100 lo puse sobre el cuadro de texto llamado Tipocont, (este último asociado a la tabla donde quiero que quede ingresado la selección multiple)
Al ejecutar el formulario le indico los distintos tipo de datos que quiero que junte en "Tipocont, pero al revisar la tabla destino no aparece las selecciones marcadas...(pensé que al ser mediante el asistente la conexión entre el cuadro de lista y el cuadro de texto de la tabla destino seria automática, al menos que haya faltado algún paso después del asistente...
Encontré la siguiente solución que guarda en la tabla la selección múltiple
Mi pregunta es ¿si me faltó algo después del asistente para que la conexión sea mejor entre el cuadro de lista y el cuadro de texto ligado con la tabla? y así evitar el código antes mencionado..
Y lo otro es que a pesar que guarda las selecciones múltiples separadas por una coma, cuando paso por los registros ingresados no muestra la selección que se hizo previamente.
Agradeciendo la paciencia y una pronta respuesta, les saluda
Luis
Mediante el asistente de Access pude crear un cuadro de lista multiple que se llama Lista100 lo puse sobre el cuadro de texto llamado Tipocont, (este último asociado a la tabla donde quiero que quede ingresado la selección multiple)
Al ejecutar el formulario le indico los distintos tipo de datos que quiero que junte en "Tipocont, pero al revisar la tabla destino no aparece las selecciones marcadas...(pensé que al ser mediante el asistente la conexión entre el cuadro de lista y el cuadro de texto de la tabla destino seria automática, al menos que haya faltado algún paso después del asistente...
Encontré la siguiente solución que guarda en la tabla la selección múltiple
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Comando6_Click()
Dim i As Integer, _
strCadena As String
For i = 0 To Me.Lista100.ListCount - 1
If Me.Lista100.Selected(i) Then
strCadena = strCadena & Me.Lista100.Column(1, i) & ","
End If
Next i
Me.Tipocont = Left(strCadena, Len(strCadena) - 1)
End Sub
Private Sub Lista100_Click()
End Sub
Mi pregunta es ¿si me faltó algo después del asistente para que la conexión sea mejor entre el cuadro de lista y el cuadro de texto ligado con la tabla? y así evitar el código antes mencionado..
Y lo otro es que a pesar que guarda las selecciones múltiples separadas por una coma, cuando paso por los registros ingresados no muestra la selección que se hizo previamente.
Agradeciendo la paciencia y una pronta respuesta, les saluda
Luis
Valora esta pregunta


0