"adicionando
dbFailOnError no final de CurrentDb.Execute strSQL impede a atualização da tabela, mas não gera nenhum erro " Isso pode falhar ao atualizar sem um erro visível se
SetWarnings foi desligado. Verifique se você obtém um resultado diferente ao alternar SetWarnings imediatamente antes de executar a instrução de atualização. DoCmd.SetWarnings True
CurrentDb.Execute strSQL, dbFailOnError
