MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    Insert em "tabela variável"

    gabrielpn06
    gabrielpn06
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 178
    Registrado : 17/01/2017

    Insert em "tabela variável" Empty Insert em "tabela variável"

    Mensagem  gabrielpn06 em 25/2/2019, 20:24

    Boa tarde,
    Tenho uma rotina que faz insert em tabelas diferentes e a intenção é utilizar o nome da tabela em uma variável mas não estou obtendo sucesso.

    Conseguem me ajudar?


    Segue o código:
    Código:
     
     Dim UF As String
            UF  = [Forms]![frmAlocação]![cbUF]
     Dim Dist As DAO.Recordset
        Set Dist = CurrentDb.OpenRecordset("vw_Fila" & UF)
          
            Dim tabela As String
                   tabela = "TEMP_00_Acompanhamento - " & Dist!Banco & UF
          
           While Not Dist.EOF
                CurrentDb.Execute "INSERT INTO '" & tabela & "' (IDSisjur, Numero_processo, UF, Comarca)" _
                                & " SELECT Contingencia.IDSISJUR, Contingencia.[Número do Processo], Contingencia.UF, Contingencia.Comarca" _
                                & " From Contingencia" _
                                & " WHERE (Contingencia.Banco)= '" & Dist!Banco & "' and (Contingencia.UF)= '" & UF & "';"
                Dist.MoveNext
           Wend

    msgbox "feito!"
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2905
    Registrado : 21/04/2011

    Insert em "tabela variável" Empty Re: Insert em "tabela variável"

    Mensagem  Marcelo David em 26/2/2019, 00:41

    Boa noite,
    essa primeira parte do insert (sublinhado):

    CurrentDb.Execute "INSERT INTO '" & tabela & "' (IDSisjur, Numero_processo, UF, Comarca)" _

    não precisa de aspas simples.

    Tente alterar essa parte para isso e veja se vai:

    CurrentDb.Execute "INSERT INTO " & tabela & " (IDSisjur, Numero_processo, UF, Comarca)" _


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)

      Data/hora atual: 15/12/2019, 23:19