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

1 Respuesta

Respuesta
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

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas