Trabajar con selección múltiple en access 2003
Trabajo con Access 2003 y algunos controles a través de VBA. Tengo una tabla con un campo "Product" de tipo texto. Realizo una consulta sobre la tabla con un criterio de búsqueda formularios!filtro!lista. En el formulario "filtro" hay un cuadro de lista con todos los productos existentes y con la propiedad selección múltiple en "extendida" de la cual se seleccionan los productos para filtrar en la tabla.
Tengo un botón ACEPTAR para que luego de seleccionar los productos en el cuadro de lista se llame al reporte "Resultados Totales" asociado a la consulta. El código es el siguiente pero no logro que se ejecute correctamente.
Dim stDocName As String
Dim lista As String
Dim selección As Variant
For Each selección In Me.lstProducto.ItemsSelected
lista = selección & Me.lstProducto.ItemData(selección) & ","
Next
If Len(lista) > 0 Then
lista = Left(lista, Len(selección) - 1)
Else
MsgBox "insista"
End If
If Form_Informes.Marco32.Value = 1 Then DoCmd.OpenReport "Resultados_Totales", acPreview
Tengo un botón ACEPTAR para que luego de seleccionar los productos en el cuadro de lista se llame al reporte "Resultados Totales" asociado a la consulta. El código es el siguiente pero no logro que se ejecute correctamente.
Dim stDocName As String
Dim lista As String
Dim selección As Variant
For Each selección In Me.lstProducto.ItemsSelected
lista = selección & Me.lstProducto.ItemData(selección) & ","
Next
If Len(lista) > 0 Then
lista = Left(lista, Len(selección) - 1)
Else
MsgBox "insista"
End If
If Form_Informes.Marco32.Value = 1 Then DoCmd.OpenReport "Resultados_Totales", acPreview