Sí se puede, aunque en un par de pasos.
De primeras, no, no puedes llamar a un procedimiento Sub desde una consulta. Pero sin embargo, sí puedes llamar a una UDF que a su vez llame al Sub.
Para ejecutar un procedimiento Sub o procedimiento de evento escrito en Visual Basic, cree un procedimiento Function que llame al procedimiento Sub o un procedimiento de evento. A continuación, use la acción de macro EjecutarCódigo para ejecutar el procedimiento de la función.
Tienes toda la información en Acción de macro EjecutarCódigo
ACTUALIZACIÓN: Pongo un ejemplo sencillo. Por un lado, yo tengo en un módulo el Sub que quiero ejecutar. El mío simplemente hace un Msgbox.
Sub SALUDAR()
Debug.Print "Hola" 'Escribe Hola en la ventana Inmediato
End Sub
También tengo definida la función. Mi UDF simplemente llama al sub anterior:
Function LLAMAR_A_SUB()
Call SALUDAR
End Function
Luego, mi consulta es así (la he llamado Consulta1)
SELECT LLAMAR_A_SUB() AS Expr1;
Y por último, he replicado tu manera de abrir las consultas desde VBA.
Sub PRUEBAS()
Application.DoCmd.OpenQuery "Consulta1"
Application.DoCmd.Close acQuery, "consulta1", acSaveNo
End Sub
Si ejecuto el Sub pruebas, primero abre la Consulta1, pero esta consulta tiene un campo calculado que llama a la función LLAMAR A SUB, y cuando se ejecuta la función, entonces se ejecuta el Sub Saludar. Y verás que en la ventana inmediato te sale la palabra Hola.