[Resolvido]Numero excessivo de continuações de linha

boa tarde! meu amigos

Tudo bem?

queria sabe como posso colocar mais 3 colunas nessa criação de tabela temporária:

preciso por mais 3 colunas para poder fazer uma consulta de atualização na tabela temp para criação de relatório.

Código:

Dim strTbl As String
   strTbl = "tmp_teste2"
   CurrentDb.Execute "CREATE TABLE " & strTbl & "(" &
                       "CODPASTA varchar(50), " & _
                       "CLIENTE varchar(255),  " & _
                       "Programa varchar(255), " & _
                       "TREINAM_GILENYA varchar(255), " & _
                       "TXTTREINAM_GILENYA varchar(255) " & _
                       "DT_TREINAM_RMP_GILENYA varchar(255) " & _
                       "FARMACOVIGILANCIA_GILENYA varchar(255) " & _
                       "TXTFARMACOVIGILANCIA_GILENYA varchar(255) " & _
                       "DT_TREINAM_FARMACOVG_GILENYA varchar(255) " & _
                       "Indicação varchar(255)   " & _
                       "Cnpj varchar(255)        " & _
                       "Nome_Fantasia varchar(255)        " & _
                       "Razão_Social varchar(255)        " & _
                       "STATUS varchar(255)        " & _
                       "MOTIVO varchar(255)        " & _
                       "JUSTIFICATIVA varchar(255)        " & _
                       "Tipo_Serviço varchar(255)        " & _
                       "Email varchar(255)        " & _
                       "CEP varchar(255)        " & _
                       "ENDEREÇO varchar(255)        " & _
                       "NUMERO varchar(255)        " & _
                       "BAIRRO varchar(255)        " & _
                       "Cidade varchar(255)" & _
                       "UF varchar(255)        " & _
                       "); "

abraços

Olá Maguim,

No script que vc mandou, está faltando a "Virgula" da 5a. linha em diante.

Pra ficar mais fácil a leitura, procure concatenar os dados, como segue abaixo:

Dim strTbl As String
Dim sSql As String


strTbl = "tmp_teste2"
sSql = "CREATE TABLE " & strTbl & "(" & ""
sSql = sSql & " CODPASTA varchar(50)"
sSql = sSql & " ,CLIENTE varchar(255)"
sSql = sSql & " ,Programa varchar(255)"
sSql = sSql & " ,TREINAM_GILENYA varchar(255)"
sSql = sSql & " ,TXTTREINAM_GILENYA varchar(255)"
sSql = sSql & " ,DT_TREINAM_RMP_GILENYA varchar(255)"
sSql = sSql & " ,FARMACOVIGILANCIA_GILENYA varchar(255)"
sSql = sSql & " ,TXTFARMACOVIGILANCIA_GILENYA varchar(255)"
sSql = sSql & " ,DT_TREINAM_FARMACOVG_GILENYA varchar(255)"
sSql = sSql & " ,Indicação varchar(255)"
sSql = sSql & " ,Cnpj varchar(255)"
sSql = sSql & " ,Nome_Fantasia varchar(255)"
sSql = sSql & " ,Razão_Social varchar(255)"
sSql = sSql & " ,STATUS varchar(255)"
sSql = sSql & " ,MOTIVO varchar(255)"
sSql = sSql & " ,JUSTIFICATIVA varchar(255)"
sSql = sSql & " ,Tipo_Serviço varchar(255)"
sSql = sSql & " ,Email varchar(255)"
sSql = sSql & " ,CEP varchar(255)"
sSql = sSql & " ,ENDEREÇO varchar(255)"
sSql = sSql & " ,NUMERO varchar(255)"
sSql = sSql & " ,BAIRRO varchar(255)"
sSql = sSql & " ,Cidade varchar(255)"
sSql = sSql & " ,UF varchar(255)"
sSql = sSql & " ); "

CurrentDb.Execute sSql


Faça o teste e a rotina irá criar a tabela.

Boa sorte.

[]'s

@alexandre deu certo...


uma duvida estou tentando fazer um insert into nessa tabela temp


so que esta falando erro de sintaxe(operador faltando) na expressao de consulta "NÃO' ". ERRO 3075


acredito eu que seja algo relacionado a isso:

sSql = sSql & " ,TXTTREINAM_GILENYA varchar(255)"
sSql = sSql & " ,TXTFARMACOVIGILANCIA_GILENYA varchar(255)"


'" & rs!TXTTREINAM_GILENYA & "'" & _
& rs!TXTFARMACOVIGILANCIA_GILENYA & "'" & _


poderia dar help plx...

Código:

Private Sub teste_Click()
 
 
    Dim rs As Recordset
    Dim strTbl As String
    Dim sSql As String


strTbl = "tmp_teste2"
            sSql = "CREATE TABLE " & strTbl & "(" & ""
            sSql = sSql & " CODPASTA varchar(50)"
            sSql = sSql & " ,CLIENTE varchar(255)"
            sSql = sSql & " ,Programa varchar(255)"
            sSql = sSql & " ,TXTTREINAM_GILENYA varchar(255)"
            sSql = sSql & " ,DT_TREINAM_RMP_GILENYA varchar(255)"
            sSql = sSql & " ,TXTFARMACOVIGILANCIA_GILENYA varchar(255)"
            sSql = sSql & " ,DT_TREINAM_FARMACOVG_GILENYA varchar(255)"
            sSql = sSql & " ,Indicação varchar(255)"
            sSql = sSql & " ,Cnpj varchar(255)"
            sSql = sSql & " ,Nome_Fantasia varchar(255)"
            sSql = sSql & " ,Razão_Social varchar(255)"
            sSql = sSql & " ,STATUS varchar(255)"
            sSql = sSql & " ,MOTIVO varchar(255)"
            sSql = sSql & " ,JUSTIFICATIVA varchar(255)"
            sSql = sSql & " ,Tipo_Serviço varchar(255)"
            sSql = sSql & " ,Email varchar(255)"
            sSql = sSql & " ,CEP varchar(255)"
            sSql = sSql & " ,ENDEREÇO varchar(255)"
            sSql = sSql & " ,NUMERO varchar(255)"
            sSql = sSql & " ,BAIRRO varchar(255)"
            sSql = sSql & " ,Cidade varchar(255)"
            sSql = sSql & " ,UF varchar(255)"
            sSql = sSql & " ); "
 
  ' busco os dados da tbl_Porto no MySQL
  strRS = "SELECT * FROM RELATORIO_GILENYA"
  Set rs = CurrentDb.OpenRecordset("SELECT * FROM RELATORIO_GILENYA")
  CurrentDb.Execute "INSERT INTO " & strTbl & " VALUES('" & rs!CODPASTA & "', " & _
                      " '" & rs!Cliente & "', '" & rs!Programa & "', '" & rs!TXTTREINAM_GILENYA & "'" & _
                      " '" & rs!DT_TREINAM_RMP_GILENYA & "', '" & rs!TXTFARMACOVIGILANCIA_GILENYA & "'" & _
                      " '" & rs!DT_TREINAM_FARMACOVG_GILENYA & "', '" & rs!Indicação & "', '" & rs!CNPJ & "'" & _
                      " '" & rs!Nome_Fantasia & "', '" & rs!Razão_Social & "', '" & rs!status & "'" & _
                      " '" & rs!motivo & "', '" & rs!JUSTIFICATIVA & "', '" & rs!Tipo_Serviço & "'" & _
                      " '" & rs!EMAIL & "', '" & rs!CEP & "', '" & rs!ENDEREÇO & "'" & _
                      " '" & rs!NUMERO & "', '" & rs!COMPLEM & "', '" & rs!BAIRRO & "'" & _
                      " '" & rs!Cidade & "', '" & rs!UF & "')"
End Sub

abraços

Boa tarde,

sua consulta esta errada. rs
tente assim:

Código:

Dim strTbl As String
Dim sSql As String
Dim strSQL

strTbl = "tmp_teste2"
            sSql = "CREATE TABLE " & strTbl & "(" & ""
            sSql = sSql & " CODPASTA varchar(50)"
            sSql = sSql & " ,CLIENTE varchar(255)"
            sSql = sSql & " ,Programa varchar(255)"
            sSql = sSql & " ,TXTTREINAM_GILENYA varchar(255)"
            sSql = sSql & " ,DT_TREINAM_RMP_GILENYA varchar(255)"
            sSql = sSql & " ,TXTFARMACOVIGILANCIA_GILENYA varchar(255)"
            sSql = sSql & " ,DT_TREINAM_FARMACOVG_GILENYA varchar(255)"
            sSql = sSql & " ,Indicação varchar(255)"
            sSql = sSql & " ,Cnpj varchar(255)"
            sSql = sSql & " ,Nome_Fantasia varchar(255)"
            sSql = sSql & " ,Razão_Social varchar(255)"
            sSql = sSql & " ,STATUS varchar(255)"
            sSql = sSql & " ,MOTIVO varchar(255)"
            sSql = sSql & " ,JUSTIFICATIVA varchar(255)"
            sSql = sSql & " ,Tipo_Serviço varchar(255)"
            sSql = sSql & " ,Email varchar(255)"
            sSql = sSql & " ,CEP varchar(255)"
            sSql = sSql & " ,ENDEREÇO varchar(255)"
            sSql = sSql & " ,NUMERO varchar(255)"
            sSql = sSql & " ,BAIRRO varchar(255)"
            sSql = sSql & " ,Cidade varchar(255)"
            sSql = sSql & " ,UF varchar(255)"
            sSql = sSql & " ); "
DoCmd.RunSQL sSql

strSQL = "INSERT INTO tmp_teste2 " & _
        "SELECT RELATORIO_GILENYA.* " & _
        "FROM RELATORIO_GILENYA"

DoCmd.RunSQL strSQL

Olá Maguim,

A string está com erro, está faltando o APÓSTROFO e Aspas:

'" & rs!TXTTREINAM_GILENYA & "'" & _
& rs!TXTFARMACOVIGILANCIA_GILENYA & "'" & _


Correto:


'" & rs!TXTTREINAM_GILENYA & "'" & _
,'" & rs!TXTFARMACOVIGILANCIA_GILENYA & "'" & _

@ronaldojr1

Deu certo!

Obg

@Alexandre Fim obg pela ajuda!

Opa! Que bom que funcionou.
O Fórum agradece o retorno.

Abraço

VAleu Maguim.

Boa sorte e sucesso !!!