Error Key Violation al copiar tablas

[Mathom]

Hola a todos desde lo más profundo de la desesperación..después del último comentario de maeyanes parecía que me había funcionado pero de nuevo me da algún error en tiempo de ejecución, cuando no es un Corrupt Index es un Key Violation y si no un Table is not in insert o edit mode....resumiendo que me desespero. Por lo tanto os quería pedir permiso para poneros todo el código que envuelve ala operación de realizar copia para ver si de una vez por todas lo puedo a echar para adelante. No es demasiado código, y es muy simple (muy repetitivo, lo mismo para cada una de las tablas) pero es bastante y no quisiera ni que os aburrais antes de leerlo ni abusar.

Bien, espero vuestra respuesta para pasaroslo y explicaros como está hecho.

Gracias de antemano y espero no estar abusando pero empiezo a estar un poco (por decir algo) de los nervios.