lauxjpn/corruptqueryaccessworkaroundA mais recente solução alternativa para o erro 'Query is corrupt' introduzido com CVE-2019-1402
A solução alternativa mais recente para o erro Consulta está corrompida introduzido com o CVE-2019-1402 no MS Access.
Existem outras soluções alternativas que precisam ser aplicadas em nível administrativo, por exemplo, desinstalando a atualização incorreta. Em contraste com essas, a intenção da fornecida aqui é funcionar alterando automaticamente o próprio conteúdo do MDB/ACCDB com o mínimo de trabalho possível.
A Microsoft lançou uma correção para este problema em 10/12/2019 (dia de patch) que será instalada automaticamente por padrão via WSUS etc.
Portanto, esta solução alternativa deve se tornar obsoleta após a aplicação da correção e qualquer pessoa que a tenha utilizado pode chamar a função RemoveWorkaroundForCorruptedQueryIssue() para restaurar o estado original do aplicativo.
Certifique-se de que a referência Microsoft DAO 3.6 Object Library (compatibilidade com versões anteriores) ou Microsoft Office x.x Access Database Engine Object Library esteja habilitada em (veja para mais detalhes).
Editor VBA -> Ferramentas -> ReferênciasUse o módulo basWorkaround.bas para implementar automaticamente a solução alternativa sugerida pela Microsoft (usando uma consulta em vez de uma tabela). Como precaução, faça backup do seu banco de dados primeiro.
Chame AddWorkaroundForCorruptedQueryIssue() para aplicar a solução alternativa e RemoveWorkaroundForCorruptedQueryIssue() para removê-la a qualquer momento.
AddWorkaroundForCorruptedQueryIssue() adicionará o sufixo _Table a todas as tabelas que não são do sistema, por exemplo, a tabela IceCreams será renomeada para IceCreams_Table.
Também criará uma nova consulta com o nome original da tabela, que selecionará todas as colunas da tabela renomeada. No nosso exemplo, a consulta seria nomeada IceCreams e executaria o SQL select * from [IceCreams_Table].
RemoveWorkaroundForCorruptedQueryIssue() executa as ações inversas.
Estou usando esta solução alternativa em projetos grandes com mais de 400 tabelas de todos os tipos, incluindo tabelas externas não MDB (como SQL Server).
No meu caso, precisei renomear manualmente USysRibbons_Table de volta para USysRibbons, pois não a marquei como tabela de sistema quando a criei no passado.
Tenha em mente os seguintes pontos:
TableDefs!MyTableName exigirá que você faça algumas substituições para essas instâncias no seu código/interface).