Como agregaría la función a mi codifo
private sub misguarda_click()
'define variable:
    dim myrecordset as recordset
    dim mysql as string
     'crea consulta sql para agregar la nueva requisicion:
    mysql = "select [requisicion].id, [requisicion].procede, [requisicion].[tiprocede], [requisicion].municipio, " _
          & "[requisicion].fecharec, [requisicion].codigo, [requisicion].nombre, [requisicion].motivo, " _
          & "[requisicion].cct, [requisicion].areatraja, [requisicion].areacorre, [requisicion].inicia, [requisicion].requisicion, " _
          & "[requisicion].termina, [requisicion].clave, [requisicion].sustituye, [requisicion].estudios, [requisicion].observaciones " _
          & "from [requisicion];"
'ejecuta el recordset a la tabla historial_plaza:
    set myrecordset = currentdb.openrecordset(mysql)
    'ingresa datos
    with myrecordset
        .addnew
        ![procede] = me!procede
        ![tiprocede] = me!tipopro
        ![municipio] = me!municipio
        ![fecharec] = me!fecharecibe
        ![codigo] = me!codigo
        ![nombre] = me!nombre
        ![motivo] = me!motivo
        ![cct] = me!cct
        ![areatraja] = me!areatrabajo
        ![areacorre] = me!areacorre
        ![inicia] = me!inicia
        ![requisicion] = me!requisicion
        ![termina] = me!termina
        ![clave] = me!plazam
        ![sustituye] = me!sustituyem
        ![estudios] = me!estudio
        ![observaciones] = me!observaciones
        .update
        .close
    end with