[Resolvido]Macro para correr append query

Boa noite,

Tenho diversas, aí umas 20 queries que tenho de correr diariamente.

Sei que se pode fazer isso com uma macro e sei cria-las em Excel, mas nunca fiz em access.

Coloquei os warnings off
defini as queries que quero que corra, mas não sei que opção utilizar para correr as queries fazendo o append dos dados.

Parece sempre que nada está a correr.

Podem dar uma ajuda pf

Bom dia, Rikardo, e bem-vindo ao fórum
Crie um procedimento que execute as macros
Sub ExecutaMacros()
docmd.RunMacro ...
docmd.RunMacro ...
...
End Sub

Boa tarde Alexandre,

Antes de mais muito obrigado pela tua resposta...

Ontem, antes de publicar o tópico, criei a macro exactamente com essa sintaxe, o problema é que, parece que apenas correu a primeira das 20 queries.

O que será que estou a fazer mal?

Consegues ajudar pf

Obg

RL

Boa tarde, Rikardo
Sem outros detalhes, não é possível dizer o que acontece.
As macros executam bem manualmente?
Cria uma depuração do erro
Sub ExecutaMacros()
On Error goto MostraErro
docmd.RunMacro ...
docmd.RunMacro ...
...
Exit sub
MostraErro:
msgbox err.number & vbcr & err.description
End Sub

Bem, vou tentar explicar melhor o cenário e também o que me aconteceu ontem!

Tratam-se de queries para sacar determinados dados de uma base de dados externa com ligação por ODBC.

Individualmente correm muito bem, já tenho este procedimento aproximadamente á 6 meses...

No entanto, com o crescimento e angariação de novos clientes, já não me é humanamente possivel correr as queries para os clientes todos, logo quero criar macros para abrindo o Access (o que faço por .bat) correr também as diversas queries.

Ontem, como disse criei uma macro em tudo parecida á que exposeste excepto no setwarnings, que estava como false na primeira linha e true na ultima...

Acontece que apenas correu a primeira macro e não acrescentou valores mas sim acrescentou os novos e duplicou os antigos... ou seja, imagina que tinha 5 registos antigos e 2 novos (apenas deveria acrescentar os dois novos, mas acrescentou mais 7 linhas á tabela onde deveria fazer o append)...

espero ter sido claro!

qualquer ajuda é muito bem vinda

Cumprimentos,

RL

Foram criados registo duplicados e não deveriam ter sido, porquê?
Para melhorar a importação, aconselho a importar para uma tabela temporária. Actualizar a tabela definitiva, conforme critérios, e apagar a temporária

Nota que se na tabela, o registo 1, 2, 3, 4, 5 já existem e tem dois novos na base de dados que estou a fazer o query, apenas deveria acrescentar 2 registos, os novos...

Daí a pergunta quando se corre a query manualmente "X registos serão adicionados á tabela" (o texto não deve ser exactamente este!)...

Posso estar muito enganado, pois o Access não é minha Praia, mas o append query é mesmo isso, apenas coloca novos registos á tabela já existente...

certo???

O código de acréscimo tem de indicar se existe alguma limitação, senão acrescenta todos, mesmo que fiquem repetidos. Para que tal não aconteça tem de haver, pelo menos, uma de três condições: As tabelas não têm registos que dupliquem; A Tabela de destino tem campos condicionados para que não haja repetição de registos; O código de acréscimo filtra os registos que iriam duplicar.
Agora, se dizes que manualmente faz bem; a importação automática tem de funcionar bem.

O problema está que não corre

vou criar uma base de dados á parte da produtiva e tentar o mesmo procedimento que me sugeriu...

Já posto os resultados!

Muito obrigado mesmo, pelo interesse demonstrado!!!

Acho que me expliquei mal, quero criar macros para correr queries...

o código não deve ser "docmd.RunMacro ..." coo afirmaste, pois não????

Para executar consultas, podes criar macros ou criar código fica mais legível:
Sub ExecutaConsultas()
Currentdb.execute "SQL da consulta"
Currentdb.execute "SQL da consulta"
...
End sub

desculpa a ignorancia, mas refere-se ao codigo completo da consulta? tipo entrar em sql view e copiar todo o texto para a macro?

Sim, abrir a consulta em modo SQL, copiar o código e colocar no módulo
Sub ExecutaConsultas()
Currentdb.execute "colar aqui da consulta1"
Currentdb.execute "colar aqui da consulta2"
...
End sub