Access - Crear Funcion o Procedimiento

Hola a Todos, espero que puedan ayudarme .... Tnego el siguiente código que necesito usar en dos formularios diferentes y me gustaría saber como puedo hacer para transformarlo en una funcion a la cual llame cuando me haga falta.
La verdad que no tengo idea de como hacerlo ni como se llama a una funcion, asi que si alguien me puede dar una mano estaré muy agradecida.
Saludos
Sandra
**********************
Este es el código:

DoCmd.RunSQL "INSERT INTO FCParaCompensar ( Cuit, nombre, Razon, Dire, Loca, Armado," & _
" AlaFirma, Archivo, Sistema, Tipo, [Nº doc], [Fecha doc], ImporteUSD, Moneda," & _
" Cotizacion, ImporteARS, MontoCompensa, MonedaLocal, SaldoResCompe, Reclamado, Parcial," & _
"ActaNro, AnioActa, Acreedor ) SELECT Historial.Cuit, Historial.nombre, Historial.Razon," & _
" Historial.Dire, Historial.Loca, Historial.Armado, Historial.AlaFirma, Historial.Archivo," & _
" Historial.Sistema, Historial.Tipo, Historial.[Nº doc], Historial.[Fecha doc]," & _
" Historial.ImporteUSD, Historial.Moneda, Historial.Cotizacion, Historial.ImporteARS," & _
" Historial.MontoCompensa, Historial.MonedaLocal, Historial.SaldoResCompe," & _
" Historial.Reclamado, Historial.Parcial, Historial.ActaNro, Historial.AnioActa," & _
" Historial.Acreedor from Historial" & _
" WHERE (((Historial.Cuit)=[Forms]![ModActa]![CUIT]) AND ((Historial.ActaNro)=[Forms]![ModActa]![Texto145]) AND ((Historial.AnioActa)=[Forms]![ModActa]![Texto147]));"

Hola sandra

realmente lo que pides es muy simple, tan solo debes insertar un modulo, crear como publica la funcion que describes arriba y listo, ya la puedes utilizar desce cualquier parte de access.

si no sabes crear funciones o procedimientos busca en la ayuda o en internet el tema "funciones definidas por el usuario" en visual basic.

espero te sirva

Yair, muchas gracias por tu ayuda .... pero al no tener ni idea de como crear la funcion .... leo los articulos y no doy pie con boda.

Como creo la funcion? poniendo en un modulo nuevo
Declare Function A Public? No necesito pasarle ningun otro parametro

y como la llamo desde el código?
= A

Me parece que no es asi .... que algo le falta.

Bueno, espero no molestarte y puedas responderme un poco mas en detalle
Saludos y gracias de antemano

Sandra

Sandra, en este caso concreto, no tienes que crear ninguna función porque no necesitas que devuelva nada, basta con un simple Sub. Creas un módulo nuevo y dentro pones esto:

Public Sub A()
Aqui pegas tu código completo
End Sub

Guardas el módulo con el nombre que quieras (Módulo1, por ejemplo) y luego desde cualquier Procedimiento de evento de los formularios, llamas al Sub del módulo con:

Call A

Convendría ponerle el Sub un nombre más explicito que simplemente "A", pero eso ya queda a tu gusto.

Saludos
Enrique

Enrique como siempre .... claro y consiso.
Muchisimas gracias por tu ayuda!!!!!
Saludos
Sandra!