Hacer que un cuadro de lista de opción múltiple me traiga los valores que tengan la misma terminación que mi campo de proyecto

Te propongo una forma:

En el evento "Después de actualizar" de tu campo "Código de proyectos" o en uno de estos eventos del cuadro de lista, "Al entrar" o "al recibir el enfoque" le pones este código:

Private Sub...
Dim miSQL As String
miSQL=" SELECT ID, [Codigo de productos] FROM TUTABLA WHERE [Codigo de proyecto] LIKE '*" & Nz(Me.txtCodProyecto,"") & "'"
Me.lstProductos.Rowsource=miSQL
Me.lstProductos.Requery
End Sub

Es decir, tienes que construir una SQL (puedes copiar la que tienes en la propiedad "origen de la fila" de tu cuadro de lista) y filtrarla por el valor que tengas en el cuadro "Codigo de proyecto" de tu formulario (es la parte del WHERE). Luego se la asignas como "origen de la fila" y recargas el cuadro.

Hola primero que nada muchas gracias porla respuesta

Me sale un error medice error de compilación :

No se encontró el método o el dato miembro

Y me señala esta parte del código

Código del proyecto se llamami campo donde meto el código del proyecto en el formulario

& Nz(Me.codigo_del_proyecto,"") & "'"

espero me puedas ayudar

Saludos

Si te da ese error es porque tu cuadro de texto (en el formulario) no se llama codigo_del_proyecto (o codigo de proyecto). Puedes comprobarlo fácilmente si sacas las propiedades de ese cuadro y vas a la pestaña Otras->Nombre.

Ese será el nombre que tengas que usar en el código. Si el nombre llevara algún acento (código), lo mejor es que lo pongas entre corchetes:

& Nz(Me.[código_del_proyecto],"") & "'"

A ver si así lo resuelves.

Esta parte no te funciona porque no has puesto los nombres que tu tienes en tu BD, sino que has pegado literalmente la SQL que te puse yo de ejemplo (y que obviamente no podía estar bien al desconocer tus campos).

Este es el código que funciona en tu caso concreto:

Private Sub Codigo_del_proyecto_AfterUpdate()
Dim miSQL As String
miSQL = "SELECT [Productos].[Codigo], [Productos].[Categorias], [Productos].[Precio] FROM Productos WHERE [Codigo] LIKE '*" & Nz(Me.Codigo_del_proyecto, "") & "'"
Me.Codigo_de_los_productos.RowSource = miSQL
Me.Codigo_de_los_productos.Requery
End Sub