Abrir formulario con Selección Múltiple cuadro de lista

Sólo por aportar otra posible solución

Supongamos que tengo la tabla Clientes

Voy a usar el pais para hacer la multiselección, que como bien te dijo Eperezfer tienes que poner el cuadro de lista con Selección Múltiple simple

Creo una tabla llamada Aux que sólo va a servir para "guardar" los paises

Creo un formulario con origen de registros en la tabla Clientes pero se lo modifico de forma

Esto es para que los países que voy a elegir en el cuadro de lista me sirvan como "filtro". Con lo cual el formulario me quedaría

Es decir no me aparecen los campos porque la tabla Aux aún está vacía. Pero si elijo algunos países(en este caso sólo elijo los dos primeros, por problemas de espacio en la imagen) y pulso el botón

Ya puedo cambiar lo que tenga que cambiar. La tabla Aux de momento está como

Pero si vuelvo a pulsar el botón la tabla Aux se vacía, lista para una nueva consulta. Al cuadro de lista lo he llamado Elegir. El código del botón es simplemente

Private Sub Comando18_Click()
If Nz(DCount("*", "aux")) = 0 Then
Dim vFila As Variant
For Each vFila In Me.Elegir.ItemsSelected
DoCmd.RunSQL "insert into aux(pais)values('" & Me.Elegir.ItemData(vFila) & "')"
Me.Requery
Next
Else
DoCmd.RunSQL "delete * from aux"
me.requery
End If
End Sub

Es decir, que si no hay nada en la tabla Aux me realice lo anterior y que si hay algo me lo borre, para la siguiente consulta.

Buen día, icue Gonzáles, voy a probar la idea que pusiste. Gracias

Ya he respondido a otras preguntas sobre como se recorre un cuadro de lista. En su caso pruebe con lo siguiente. El cuadro de lista debe tener en Propiedades, Otros "Selección Múltiple"=Simple

Dim varPos As Variant
For Each varPos In Me.Lista_Actuliza.ItemsSelected
     DoCmd.OpenForm "F_Mov_Lista_Actualizar", acNormal, , "[T_Cur_1.Movi_U] = '" & Me.Lista_Actuliza.Column(2,varPos) & "' And T_Cur_1.Num_Cert = " & Me.Lista_Actuliza.Column(1,varPos)
Next VarPos

Gracias por tu pronta respuesta eperezfer,  ahí lo probé pero solo me devuelve la última selección. Osea selecciono tres y solo la última me aparece en el formulario que se abre.

Si efectivamente eso debe suceder, se está abriendo el formulario más de una vez, en este caso se complica un poco por que debe es construir una consulta concatenando cada selección del cuadro de lista. Algo como:

Dim strSQL As String

strSQL="SELECT * FROM tabla_datos WHERE iditem="  Me.Lista_Actuliza.ItemData(varPos) 

strSQL=strSQL & ", & "....."

Y después se pasa como Argumento en el formulario y a este se le cambia el origen de datos al resultado de lo que tenga  en OpenArgs, esto es lo que tenga strSQL, es decir, algo como Me.RecordSource=Me.OpenArgs

DoCmd. OpenForm "F_Mov_Lista_Actualizar", acNormal, , ,strSQL.

Es solo una idea.

De nuevo gracias, a ver me querés decir que primero debo hacer una consulta y luego ejecutarla mediante el botón?..

No la consulta se construye a partir de los datos seleccionados y se pasa como argumento al abrir el formulario, en este caso la orden Docmd. Openform …. Va Después de la instrucción Next varPos

Posiblemente hay otra forma y es CLONAR el formulario pero requiere que tenga conocimiento de programación con CLASES y sirve siempre y cuando no tenga más de 5 o 6 ítems seleccionados, toda vez, que se abrirá en pantalla esas veces el formulario pero cada uno con la información filtrada.

Ah, bien

Dim strSQL As String

*strSQL="SELECT * FROM T_Cur_1 WHERE iditem="  Me.Lista_Actuliza.ItemData(varPos) 

*strSQL=strSQL & ", & "....."

*Esta línea me marca con error en "Me."

Me hizo falta el & antes de Me.

Ah genial, ahí lo probé y me tira error 13 no coinciden los tipos.

Si su información no es confidencial puede enviarme la base de datos a [email protected], así puede entender mejor su consulta.

Si no hay drama se la envío. ¿Por acá se puede?

No al correo que le indiqué es [email protected] y en el Asunto coloca su pregunta.

He preparado un ejemplo sencillo para que pueda ponerlo en practica, a la vez, sirve para otras personas que consultan en TodoExpertos.

Solo muestro las imágenes, quienes estén interesados pueden solicitarlo a [email protected]. Favor colocar en el Asunto "Estoy interesado en el ejemplo Instanciar formulario"

Seleccionar los clientes a editar mediante un cuadro de lista

Ejemplo con clientes seleccionados para editar

Observe que he seleccionado 4 clientes, entonce al hacer clic en "Actualizar", obtendríamos 4 instancias del formulario de edición.

Creo que con esto respondo su pregunta. Solicite el ejemplo solo es adaptarlo a sus necesidades.

NOTA: El ejemplo lo elaboré en Access 2003 y sirve para todas las versiones a partir de ésta.

Estimado, muchas gracias ahí te envié la base. Gracias

La respuesta del amigo Icue es la más acertada cuando al ejecutar el filtro se obtienen muchos registros. Solo elaboré el ejemplo atendiendo su pregunta y el código que trató de ejecutar, lo único es que tiene menos código que la propuesta de Icue y se explica como se crean instancias de los formularios, algo que no han preguntado en TodoExpertos. Me parece excelente lo explicado por Icue.

¡Gracias! voy a probarlo

Buen día, eperezfer, tu ejemplo va de maravilla pero quisiera saber como hago para que no me habrá formularios individuales, sino en un formulario continuo. Gracias

Es igual lo probé inclusive con un subformulario

Intenté pero no hay caso, ya que no conozco mucho de vb, como tuviera que hacer para que se abra un formulario continuo?

Hay que insistir así se aprende revise su correo le envíe los 2 ejemplos.

Ejemplo con subformulario

EJEMPLO CON FORMULARIO CONTINUO

El ejemplo del formulario continúo también puede mostrar todos los registros, en este caso no se hace la llamada a la instancia del formulario.

Estudie el código y me comenta.