[Resolvido]Comando currentdb.execute nao aceita quebra de linha

Ola povo,
qdo desenvolvo meus sistemas, tenho o costume de identar tudo,
e não estou conseguindo fazer isso com o comando " CurrentDb.Execute", como mostrado abaixo.


CurrentDb.Execute

    "INSERT INTO [c:\sistema\sisoe\BDTESTE.accdb].[ESPECIALISTA] _
                 ( [ESPECIALISTA].COD_ESPEC, [ESPECIALISTA].UAMA_ESPEC, [ESPECIALISTA].NOME_ESPEC3) _

     SELECT [ESPECIALISTA].COD_ESPEC, [ESPECIALISTA].UAMA_ESPEC, [ESPECIALISTA].NOME_ESPEC, _
       FROM [ESPECIALISTA] _
      WHERE  COD_ESPEC = 12;", dbFailOnError


Voces vão concordar que todo o comando em uma linha, fica ruim de analisar.

Qual o comando de fim de linha para aceitar a quebra?

Obrigado pela ajuda.

Tenta assim:

CurrentDb.Execute "INSERT INTO TABELA (CAMPOSTABELA,CAMPOSTABELA)" & _
"VALUES('" & Me.NOMECAMPO & "','" & NOMECAMPO & "')"

Ainda não foi dessa vez Fábio, continuou dando erro:


Erro de compilação

Era esperado: numero de linha ou rótulo ou instrução ou fim da instrução.

Então tem erro na Instrução... pois aqui funciona cetim, esse código aee que passei, veja que fecha a " & _ " e tem espaços entre eles...

Tente assim:

CurrentDb.Execute "INSERT INTO SuaTabela (CampoTabela,CampoTabela) " _
& " Values(""" & Me.Campo1 """, """ & Me.Campo2 & """)"

tente assim

Código:


CurrentDb.Execute  "INSERT INTO [c:\sistema\sisoe\BDTESTE.accdb].[ESPECIALISTA] "& _
" ( [ESPECIALISTA].COD_ESPEC, [ESPECIALISTA].UAMA_ESPEC, [ESPECIALISTA].NOME_ESPEC3) "& _
"SELECT [ESPECIALISTA].COD_ESPEC, [ESPECIALISTA].UAMA_ESPEC, [ESPECIALISTA].NOME_ESPEC, "& _
"FROM [ESPECIALISTA]   WHERE  COD_ESPEC = 12;", dbFailOnError


se não der certo assim é porque tem outros erros no codigo, como campos dentre outros

Melhor mesmo é usar uma variável do tipo string:

Código:

Dim strSQL As String

strSQL = "INSERT INTO [c:\sistema\sisoe\BDTESTE.accdb].[ESPECIALISTA] ..."
CurrentDb.Execute strSQL

Valeu Povo,
Resolvido conforme tua orientação do clebergyn...

só para complementar, quando usamos quebra de linha "& _" em um sql muitas vezes esquecemos de deixar espaços (ao menos um) entre um
comando e outro

tipo: "...FROM"& _
"nome_tabela"    
desse jeito acima não aceita pois o From está pregado no "nome_tabela"
sendo o certo, colocar o espaço
assim: "...FROM "& _

Para aprendizado, repare que a dica do Cláudio também se utiliza muito;

Código:

Dim strSQL As String

strSQL = "INSERT INTO [D:\UAMAGUARA\BDGUARA.accdb;].GERENTE"
strSQL = strSQL & " SELECT ESPECIALISTA.COD_ESPEC, ESPECIALISTA.UAMA_ESPEC,ESPECIALISTA.NOME_ESPEC"
strSQL = strSQL & " FROM ESPECIALISTA"
strSQL = strSQL & " WHERE COD_ESPEC = 12"
CurrentDb.Execute strSQL

Desta forma, tem a quebra em todas as instruções para melhor entendimento do trecho.

INSERT
SELECT
FROM
WHERE

Ok JP,
Agora entendi o que o Claudio quiz dizer..

Muito bom.