Creación de Tipo Lista Seelcionar todo Access VB
Tengo creado un campo de tipo lista con varios Items, pero necesito tener un botón que sea para Seleccionar todos los registros que allan en la lista
Como seria el código para poder hacer el proceso
Respuesta de Eduardo Pérez Fernández
1
Voy a suponer que el cuadro de lista se llama lstLoterias.
Adicione un botón que con el nombre btnTodos y en el evento Al hacer clic ingrese este código:
Dim intNumAct As Integer For intNumAct = 0 To Me.lstLoteria.ListCount - 1 Me.lstLoteria.Selected(intNumAct) = True Next intNumAct
Adicione un botón con el nombre btnDesmarar y en el evento Al hacer clic ingrese este código:
Dim varPosicion As Variant 'deselecciona los item de la lista For Each varPosicion In lstLoteria.ItemsSelected Me.lstLoteria.Selected(varPosicion) = False Next varPosicion
