[Resolvido]Desabilitar avisos em consulta "CRIAR TABELA"

Pessoal,

Criei um botão de comando que roda várias consultas "criar tabela".
gostaria de desabilitar aquele aviso que o acess mostra dizendo que a tabela já existe e se vc realmente quer substituí-la, tentei incluir no início do código o seguinte:

   DoCmd.SetWarnings = False

dessa maneira ocorre um erro dizendo que o argumento não é opcional, como faço?

att

Leandro

O argumento só não é opcional se você estiver a inseri-lo no lugar errado.

Mostre-nos toda a instrução.

Private Sub Comando0_Click()
On Error GoTo Err_Comando0_Click

Dim stDocName As String

DoCmd.SetWarnings = False

stDocName = "Cria_Tbl_SI"
DoCmd.OpenQuery stDocName, acNormal, acEdit
stDocName = "Cria_Tbl_SA"
DoCmd.OpenQuery stDocName, acNormal, acEdit
stDocName = "Cria_Tbl_SACC"
DoCmd.OpenQuery stDocName, acNormal, acEdit
stDocName = "Cria_Tbl_SACE"
DoCmd.OpenQuery stDocName, acNormal, acEdit
stDocName = "Cria_Tbl_SAOG"
DoCmd.OpenQuery stDocName, acNormal, acEdit
stDocName = "Cria_Tbl_HB"
DoCmd.OpenQuery stDocName, acNormal, acEdit
stDocName = "Cria_Tbl_TO"
DoCmd.OpenQuery stDocName, acNormal, acEdit
stDocName = "Cria_Tbl_EA"
DoCmd.OpenQuery stDocName, acNormal, acEdit
stDocName = "Cria_Tbl_TS"
MsgBox ("TABELAS ATUALIZADAS COM SUCESSO")

Exit_Comando0_Click:
Exit Sub

Err_Comando0_Click:
MsgBox Err.Description
Resume Exit_Comando0_Click

End Sub

Retire o =

DoCmd.SetWarnings False

e no final volte a habilitar;

DoCmd.SetWarnings True

quem sabe, sabe,
quem não sabe...

valeu JPaulo, mais uma vez salvando o nosso dia!

Leandro