Access - Copiar de un campo de listbox a un subformulario en access vba

Tengo un problema:
Tengo una base de ordenes de compra, tengo un formulario con un subformulario que me hacen la orden, entonces como son muchos productos, tengo un boton de abrir otro formulario de busqueda, y este tiene un cuadro de busqueda y un listbox que me muestra el producto, yo quisiera que al darle doble clic, me copie el campo de codigo de producto y me lo ponga en el subformulario de productos del formulario principal de ordenes de compra, gracias

Le muestro algo que utilizo aunque lo hago es con un formulario, la idea es la misma:




Tengo este formulario de ventas con un subformulario, al hacer clic en la lupa izquierda del campo "NOMBRE DE LA RES", se abre el formulario para hacer la búsqueda. Si en Buscar digito be, me filtra como muestra la imagen.




Ahora hago doble clic sobre la columna RES, obtengo en el subformulario el nombre de esta res. Le muestro el código que utilizo


Para el caso suyo que utiliza el cuadro de lista tendría que cambiar Me.idres por el nombre del cuadro de lista, algo como


En donde: formprincipal es el nombre del formulario padre del subformulario
cuadrocombinado es el nombre del cuadro combinado del subformulario desde donde se hace la llamada.
lstLista es el nombre del cuadro de lista del formulario que utiliza para hacer lal búsqueda.

Muchas gracias voy a probarlo y comento, muy agradecido.

Muchas gracias por tomarse la molestia de ayudarme, con gusto le envio lo que tengo para que me ayude porque me da un error.

Tengo este formulario con un subformulario en el cual tengo un boton que me abre otro formulario de busqueda



al darle click abre este formulario



e hice lo que entendi del programa o sea esto



pero me sale este error




muchas gracias por su ayuda

YA LO TENGO MUCHAS GRACIAS SOLO ERA ESTO:


Forms!FRM_ORDEN_DE_COMPRA!FRM_MOVIMIENTO_ORDEN_DE_COMPRA!ID_PRODUCTO = Me.LST_PRODUCTO

GRACIAS POR TU AYUDA AMIGO BENDICIONES

Me alegro excelente

Thank you very much for the good answers. I have learned a lot of lessons here
duck life

Hola amigo, muy buena tu solucion, el problema es que si pongo por ejemplo:

Forms!VentaRapida!VentaRapidaSub.Form!Codigo.SetFocus
Forms!VentaRapida!VentaRapidaSub.Form!Codigo = Me.Lista1
Forms!VentaRapida!VentaRapidaSub.Form!Producto.SetFocus
Forms!VentaRapida!VentaRapidaSub.Form!Producto = Me.Lista1
Forms!VentaRapida!VentaRapidaSub.Form!Precio.SetFocus
Forms!VentaRapida!VentaRapidaSub.Form!Precio = Me.Lista1

En los 3 campos me pone el codigo, tengo un cuadro lista llamado Lista1 con los campos "Codigo", "Producto", "Precio" y un formulario padre llamado "VentaRapida" y un Subform "VentaRapidaSub"

Saludos

Los combos 'devuelven' como valor por defecto el de la columna predeterminada (se le puede indicar cual, por defecto la que detecte como ID) de la línea (Ítem) que este seleccionada.

Para que devuelva el valor de cualquier otra columna, hay que indicárselo expresamente mediante su propiedad Column.

Si se aplica desde VBA (y de izquierda a derecha) comienzan a numerar desde cero (0), si se hace desde fuera de VBA se comienzan a numerar desde uno (1).

Reutilizando una de las asignaciones publicadas:


En que nn representa al numero de la columna que tiene el valor deseado.

Hola, solucionado! Gracias

Saludos