Access - Currentb.Execute no me hace la inserción

Tenía una instrucción del tipo:

Currentdb.Execute "INSERT INTO TABLA1(Codigo, Nombre, Fecha) SELECT Codigo, Nombre, Fecha FROM TABLA2"

Los datos de la tabla2 los obtengo de una aplicación externa, haciendo un SELECT * INTO TABLA2
Aunque me fijé que esa aplicación externa me estaba pasando una fecha errónea. El formato de una de las fechas era 01/07/201 (toda la aplicación está configurada para usar dos dígitos para el año)

Lo curioso es que al ejecutar la instrucción de inserción con el Execute, no me genera ningún error, pero como consecuencia de ese error, no me inserta ningún valor en la TABLA1

Si ejecuto esa inserción como consulta sí que obtengo un mensaje que dice:
"... no puede anexar todos los registros en la consulta de datos anexadas.
... estableció 1 campos a Nulo debido a un fallo en la conversión de tipos ..."

pero en este caso aparece un mensaje que te permite cancelar o continuar con la ejecución, pudiendo entonces cargar los demás datos en la TABLA1

Sabe alguien si a partir de código y usando esa llamada (currentdb.Execute) se puede forzar a que un caso de estos me lo de como erróneo y pueda por lo menos gestionarlo como error (consiguiendo así que no continue con la ejecución)?"

Hola Beni

Cuando utilices Currendb.execute y necesites validar si no hubo errores deberás usar la opción dbFailOnError, pero ademas deberás de tener en el código de VBA un manejador de errores.

Algo parecido a lo siguiente:




Saludos!
deneg_nhj