[Resolvido]Desativar mensagens de aviso em uma macro!

Criei uma macro que abre varias consultas que criam varias tabelas, então quando executo a macro a cada consulta executada dentro da função me aparecem mensagens de que tabelas vao ser criadas e etc... Converti a macro para SQL, e usei o comando Do.Cmd SetWarnings False e true no final, resultando em um erro quando executo a macro. Gostaria de saber como desativar estas mensagens, se estou usando o comando errado dentro da função?
Grato,

Olá,

Tudo o que precisa saber sobre macro

http://usandoaccess.com.br/tutoriais.asp#inicio

O comando será antes do SQL

DoCmd.SetWarnings False

e depois do SQL

DoCmd.SetWarnings True

Instrução SQL inválida!

É invalida mas não está lá escrito que é no DoCmd.SetWarnings

Veja com atenção e cole aqui todo o código.

Function AbrirConsultas_CriaTab()
On Error GoTo AbrirConsultas_CriaTab_Err
DoCmd.SetWarnings False
DoCmd.OpenQuery "Variacao 01 02 - cria tab", acViewNormal, acEdit
DoCmd.OpenQuery "Variacao 02 03 - cria tab", acViewNormal, acEdit
DoCmd.OpenQuery "Variacao 03 04 - cria tab", acViewNormal, acEdit
DoCmd.OpenQuery "Variacao 04 05 - cria tab", acViewNormal, acEdit
DoCmd.OpenQuery "Variacao 05 06 - cria tab", acViewNormal, acEdit
DoCmd.OpenQuery "Variacao 06 07 - cria tab", acViewNormal, acEdit
DoCmd.OpenQuery "Variacao 07 08 - cria tab", acViewNormal, acEdit
DoCmd.OpenQuery "Variacao 08 09 - cria tab", acViewNormal, acEdit
DoCmd.OpenQuery "Variacao 09 10 - cria tab", acViewNormal, acEdit
DoCmd.OpenQuery "Variacao 10 11 - cria tab", acViewNormal, acEdit
DoCmd.OpenQuery "Variacao 11 12 - cria tab", acViewNormal, acEdit
DoCmd.OpenQuery "Variacao 12 13 - cria tab", acViewNormal, acEdit
DoCmd.OpenQuery "Variacao 13 14 - cria tab", acViewNormal, acEdit
DoCmd.OpenQuery "Variacao 14 15 - cria tab", acViewNormal, acEdit
DoCmd.OpenQuery "Variacao 15 16 - cria tab", acViewNormal, acEdit
DoCmd.OpenQuery "Variacao 16 17 - cria tab", acViewNormal, acEdit
DoCmd.OpenQuery "Variacao 17 18 - cria tab", acViewNormal, acEdit
DoCmd.OpenQuery "Variacao 18 19 - cria tab", acViewNormal, acEdit
DoCmd.OpenQuery "Variacao 19 20 - cria tab", acViewNormal, acEdit
DoCmd.OpenQuery "Variacao 20 21 - cria tab", acViewNormal, acEdit
DoCmd.OpenQuery "Variacao 21 22 - cria tab", acViewNormal, acEdit
DoCmd.OpenQuery "Variacao 22 23 - cria tab", acViewNormal, acEdit
DoCmd.OpenQuery "Variacao 23 24 - cria tab", acViewNormal, acEdit
DoCmd.OpenQuery "Variacao 24 25 - cria tab", acViewNormal, acEdit
DoCmd.SetWarnings True


AbrirConsultas_CriaTab_Exit:
Exit Function

AbrirConsultas_CriaTab_Err:
MsgBox Error$
Resume AbrirConsultas_CriaTab_Exit

End Function

Tem de correr um a um direto, para encontrar o erro.

Na instrução VBA não tem erro, então só pode estar dentro de uma desses query`s.

Antes de imputar as instruções vba, não da mensagem de erro. Só mensagens de aviso, sendo assim as Querys nao tem erro.

Certo, mas as instruções no código também não têm erro.

Já agora, qual a versão do seu Ms Access ?

Vá nas opções do é desmarque a CONFIRMAÇÃO para consultas de AÇÃO.

Opções do Access > Avançado > Na opção CONFIRMAR desmarque Consultas Ação.

Se quiser alterar pelo VBA, veja este meu artigo:

http://www.usandoaccess.com.br/tutoriais/tuto43.asp?id=1#inicio

Sucesso!