[Resolvido]Exclui Valores guais em tabelas diferente por LOOP

Boa noite gênios em Access.

Antes de mais nada gostaria de agradecer ao ótimo forum, pois tenho aprendido bastante coisas aqui

Em uma busca sobre como realizar um procedimento achei o seguinte tópico ja criado: http://maximoaccess.forumeiros.com/t15091-resolvidoexcluir-valores-iguais-de-tabelas-diferentes << este procedimento me serviu certinho para uma consulta de exclusão que preciso fazer.

porem após monta-la começou ocorrer alguns erros.
Sendo assim gostaria de saber se alguém pode me ajudar no seguinte problema:

tenho varias tabelas vinculada que possui o nome TABELAANOMES
ou seja se eu tivesse uma TABELA que for do ano 2002 mes 05 ficaria assim: TABELA0205

Utilizando a função descrita no tópico acima a consulta ficou desta forma

Código:

DoCmd.SetWarnings (False)
SQLTABELA7001 = "DELETE * FROM TABELA7001 WHERE EXISTS(SELECT * FROM ExclusaoMatriculas WHERE (ExclusaoMatriculas.Matricula = TABELA7001.LEI_MATRICULA))"
DoCmd.RunSQL SQLTABELA7001

no caso essa tabela acima é referente a ano 1970 mes 01

- Eu tenho que percorrer desde o ano 1970 até 2015 mês a mês sendo é possível criar um loop para executar a exclusão acima?

- ou criar um loop utilizando uma terceira tabela onde contenha os nome das tabelas que deveram ser excluída?

Olá amigo, mas em resumo o que você quer é excluir em todas as tabelas TabelaAnoMes todas matriculas que
são iguais as que estão na tabela ExclusaoMatriculas , isso?

Isso mesmo clebergyn

bem, se os campos e tabelas estiverem corretos

a consulta é essa:

Código:

 DELETE TABELA7001.lei_matricula, FROM TABELA7001 WHERE (((TABELA7001.lei_matricula) In (SELECT matricula FROM ExclusaoMatriculas)))

segue o banco exemplo: https://www.dropbox.com/s/95pljhe1lzdwnv2/ExcluirRegistros.zip?dl=0

Prefeito!

Muito Obrigado Clebergyn!

nao sei como é a administração do seu banco mas se fosse as tabelas tudo junto em uma so criando um campo
"mesano" para distinguir os registros, seria bem mais pratico

Com certeza. só que isso ai é de alguns arquivos .dat que sao de um sistema e eu utilizo o access para manipular os dados.

Hugo, coloque sua duvida aqui de novo e poste sua tabela aqui

se a tabela a ser atualizada é so uma tabela, da para fazer por uma consulta só

qual é o nome da tabela? aqui vou chamar de "suatabela" depois substitua no codigo

abra a consulta e clique em SQL e cole este codigo e execute a consulta que vai atualizar todos os valores da tabela

Código:

UPDATE Suatabela SET suatabela.LEI_VALOR_TOTAL = [LEI_VALOR_CONSUMO]+[LEI_VALOR_ESGOTO]+([LEI_TAX_VAL_1]+[LEI_TAX_VAL_2]+[LEI_TAX_VAL_3])+([LEI_VAL_SER_1]+[LEI_VAL_SER_2]+[LEI_VAL_SER_3]+[LEI_VAL_SER_4]+[LEI_VAL_SER_5]);

agora se for varias tabelas me fale

na verdade são essas mesma tabela descrita acima...

por isso deveria ser executada dentro do LOOP

Anexo

acima, quis dizer essas tabelas "TABELA7001" ?

segue o arquivo: https://www.dropbox.com/s/4cxnsrbzo9lppdd/Excluir%26AtualizaRegistros.zip?dl=0

certinho clebergyn, isso mesmo, é da tabela7001 até tabela1512 só que agora eu precisaria colocar a condição:

Código:

WHERE (" & tb & ".LEI_MATRICULA) In ( select [MatriculasAjustadaValores].[Matricula] from [MatriculasAjustadaValores])"

pois eu preciso atualizar a matricula somente as que conter na tabela MatriculasAjustadaValores

só que quando eu coloco o código acima ele me ocorre um erro: erro de compilação:  Era esperado: )

o codigo que estou utilizando é

Código:

tb = "TABELA" & Right(n, 2) & Format(w, "00")
CurrentDb.Execute "UPDATE TABELA7001 SET TABELA7001.LEI_VALOR_TOTAL = [LEI_VALOR_CONSUMO]+[LEI_VALOR_ESGOTO]+([LEI_TAX_VAL_1]+[LEI_TAX_VAL_2]+[LEI_TAX_VAL_3])+([LEI_VAL_SER_1]+[LEI_VAL_SER_2]+[LEI_VAL_SER_3]+[LEI_VAL_SER_4]+[LEI_VAL_SER_5])" & _
WHERE (" & tb & ".LEI_MATRICULA) In ( select [MatriculasAjustadaValores].[Matricula] from [MatriculasAjustadaValores])

seria possível ajustar o código para fazer assim?

segue anexo o BD Anexo Dados

veja ai se é isso:

https://www.dropbox.com/s/4cxnsrbzo9lppdd/Excluir%26AtualizaRegistros.zip?dl=0

afinal começa da 7001 ou 7000?

7000

vou baixar o arquivo aqui e verificar.

mas desde ja agradeço

clebergyn, Ficou Ótimo!

Muito Obrigado pela ajuda!