Error 3340 | Consulta Corrompida | Atualização do Windows

Hoje começou a aparecer esse erro em diversos dos meus usuários.

Consulta Corrompida

Ela ocorre quando o sistema tenta fazer atualizações nas consultas, usando a clausula UPDATE

Descobri que ele é causado por uma atualização de segurança do Office
A solução é desinstalar a atualização e, em alguns casos. reiniciar o PC.

Office 2013 32 bits
KB4484119

Office 2010 64 bits
KB4484127

Access 2016
KB4484113

Outra solução é criar uma consulta, baseada na tabela, e colocar a consulta no lugar da tabela

Alguém teve esse mesmo problema ?
Encontraram outra forma de resolver ?

Fonte
https://borncity.com/win/2019/11/13/office-november-2019-updates-are-causing-access-error-3340/
https://social.msdn.microsoft.com/Forums/office/en-US/7e7f24cc-f1f3-43f8-a9a2-45b77812b211/the-cve20191402-updates-kb4484119-etc-break-access-201020132016365-query-is-corrupt?forum=accessdev
https://support.office.com/en-us/article/access-error-query-is-corrupt-fad205a5-9fd4-49f1-be83-f21636caedec
https://www.apploja.net/post/ms-access-error-3340-consulta-corrompida-windows-update

Bom dia

Tive igual, no meu Office 2013 32.

Aonde acontecia o erro coloquei no inicio do código " On Error Resume Next ", o erro deixa de acontecer e a consulta que é uma consulta de atualização continua a ser execitada sem problemas.

Aqui o mesmo erro no office 2010...
Desinstalei o office 2010 e instalei o office 2007 sp3...
O problema foi corrigido.. Acredito ser desta atualização mesmo, pois a máquina do cliente estava para realizar atualizações automáticas.
Colocar o código on error resume next antes talvez não seja a mais adequada .... Seria melhor achar uma solução para o caso.

Rodrigo

Antes desta atualização do Windows nunca tinha dado problemas e não tinha o On Error Resume Next

Eis o código,

If Date < DLookup("DataAtual", "dias") Then
  Else
DoCmd.SetWarnings False
   DoCmd.RunSQL ("UPDATE dias SET dias.dia = Date()-[dias]![DataAtual]+[dias]![dia], dias.DataAtual = Date();")
   DoCmd.OpenQuery "atualizar"
DoCmd.SetWarnings True

End If

Uma solução para o caso

Obrigado

Amigo.. acabei de seguir a dica, desinstalando a atualização de segurança do office.
Nem precisei reiniciar. Tudo voltou ao normal..

Pois alterar todo o código do sistema ficaria mais complicado.
obrigado.

Rodrigo

Desinstalei a atualização mas hoje voltou a instalar-se.

Ver Mensagem Nº 4

Office 2013 32 bits
KB4484119

Obrigado

Bom dia Amigos

Alguma ideia de como resolver o problema da imagem que anexo.

Antes da ultima atualização funcionava perfeito.

Obrigado

Obrigado

Boa noite Amigos

Hoje de manha desinstalei esta atualização.

Liguei o PC e aí está ela pronta a ser instalada.

Como vou conseguir impedir que ela se instale?

Obrigado

Boa noite,

Fiz como o amigo Assis sugeriu de colocar On Error Resume Next antes do código.

O erro parou, porém deixou de fazer a atualização no campo esperado.

support.office.com/pt-br/article/erro-do-access-a-consulta-está-corrompida-fad205a5-9fd4-49f1-be83-f21636caedec


Esse problema será corrigido em todas as versões:

Versão

Build

Data do lançamento

Atualizar Link

Access 2010

7241.5001

22 de novembro de 2019 (estimado)

Access 2013

5189.1002

22 de novembro de 2019 (estimado)

Access 2016 MSI

4927.1002

18 de novembro de 2019

KB4484198

Licença de Volume do Access 2019

10352.20054

10 de dezembro de 2019

Access para Office 365/Access 2016 C2R/Access 2019 (Versão 1911)

12228.20152

22 de novembro de 2019 (estimado)

Access para o Office 365 Semestral (1901)

25 de novembro de 2019 (estimado)

Alguma novidade?

Tive o mesmo problema em todas as consultas de atualização.

Mudei o seguinte:

UPDATE [Tabela] SET Campo1, campo2.....

UPDATE (Select * from [Tabela]) SET ....


funcionou

Boa noite

Para o 2013 tem aqui a correção.

Copie e cole o link abaixo no navegador

support.office.com/pt-br/article/erro-do-access-a-consulta-está-corrompida-fad205a5-9fd4-49f1-be83-f21636caedec