Seleccionar registros en un cuadro de lista para visualizarlos en un informe

Pregunta

¿Cómo puedo decirle a un informe que me muestre sólo los registros que previamente he seleccionado en un cuadro de lista que tiene la propiedad Selección múltiple activada?

Respuesta

Para hacer eso que pides puedes hacerlo de varias maneras. Yo te propongo una bastante simple:

Construye una variable con los diferentes valores que servirán como criterio para filtrar los registros del informe, y luego pásaselos a la instrucción DoCmd.OpenReport, en el argumento [WhereCondition], dentro de una cláusula IN. Esta cláusula IN admite múltiples valores separados por comas como criterio.

En la sección Ejemplos podrás bajarte una base de muestra con un formulario y un informe que muestran los pedidos y detalles de pedido de la base Neptuno, pero pego aquí el trozo de código que hace lo que necesitamos. Verás que no es demasiado complejo:

Código

Dim NumerosPedidos As String
Dim ElementoSeleccionado As Variant

    ' formamos una cadena con los números de pedidos seleccionados en el
    ' cuadro de lista y separados por comas (en este caso, sería algo
    ' como "10248,10249,10250,...")
    For Each ElementoSeleccionado In Me.lstPedidos.ItemsSelected
        NumerosPedidos = NumerosPedidos & Me.lstPedidos.ItemData(ElementoSeleccionado) & ","
    Next
    ' si había algún pedido seleccionado
    If Len(NumerosPedidos) > 0 Then
        ' quitamos la última coma de la cadena
        NumerosPedidos = Left(NumerosPedidos, Len(NumerosPedidos) - 1)
        ' y abrimos el informe en vista previa para visualizar los pedidos seleccionados
        DoCmd.OpenReport "Pedidos", acViewPreview, , "IdPedido IN(" & NumerosPedidos & ")"
    Else
        ' no se ha seleccionado ningún elemento del cuadro de lista
        MsgBox "Por favor, selecciona algún pedido"
    End If

Créditos

con el fin de dar a conocer el trabajo de uno de los más grandes en el mundo de Access en español, y tras solicitar su permiso, replico este artículo de Juan M Afán de Ribera. Todos los derechos y autoría corresponden a él. Access & VBA FAQ – Seleccionar registros en un cuadro de lista para visualizarlos en un informe (archive.org)