Access - seleccion multiple en cuadro de lista guardar

 
Vista:

seleccion multiple en cuadro de lista guardar

Publicado por sebastian (58 intervenciones) el 17/11/2006 23:24:44
Bueno mi problema es el siguiente:

Tengo una tabla de cursos otra de alumnos y una tercera de inscripCursos
en donde uniria a las primeras dos.

Cree un formulario origen del control inscripCursos con dos campos cuadro de lista seleccion multiple,
El tema que me deja seleccionar un curso y yo selecciono los alumnos con Ctrl
pero no me guarda las selecciones que hago
Yo selecciono Curso 1 y Alumno1
Alumno2
Alumno3

esto en la tabla tendria que quedar Curso1 Alumno1
Curso1 Alumno2
Curso1 Alumno3

Alguien me dice como hago para que me guarde asi?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:seleccion multiple en cuadro de lista guardar

Publicado por Salo (152 intervenciones) el 19/11/2006 21:26:42
La actualización debes hacerla por fuerza mediante VBA. Mira en la ayuda 'Propiedad de Selecciona Multiple'. Yo te adjunto un ejemplo existente alli

Ejemplo de la propiedad Selected

El siguiente ejemplo usa la propiedad Selected para mover los elementos seleccionados del cuadro de lista lstOrigen al cuadro de lista lstDestino. La propiedad TipoDeOrigenDeLaFila (RowSourceType) del cuadro de lista lstDestino está establecida a Lista de valores y la propiedad OrigenDeLaFila (RowSource) del control se ha construido desde todos los elementos seleccionados en el control lstOrigen. La propiedad SelecciónMúltiple (MultiSelect) del cuadro de lista lstOrigen está establecida a Extendida. La función CopySelected( ) es llamada desde el botón de comando cmdCopyItem.

Sub cmdCopyItem_Click()
CopySelected Me
End Sub

Function CopySelected(frm As Form) As Integer
Dim ctlSource As Control
Dim ctlDest As Control
Dim cadItems As String
Dim entCurrentRow As Integer
Set ctlSource = frm!lstOrigen
Set ctlDest = frm!lstDestino
For entCurrentRow = 0 To ctlSource.Listcount - 1
If ctlSource.Selected(entCurrentRow) Then
cadItems = cadItems & ctlSource.Column(0, _
entCurrentRow) & ";"
End If
Next entCurrentRow
' Restablecer propiedad OrigenDeLaFila del control de destino.
ctlDest.RowSource = ""
ctlDest.RowSource = cadItems
End Function
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar