MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    Insert em "tabela variável"

    gabrielpn06
    gabrielpn06
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  gabrielpn06 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 : Respeito às Regras 100%

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

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

    Mensagem  Marcelo David 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)" _


    .................................................................................
    Insert em "tabela variável" Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    Insert em "tabela variável" Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    Insert em "tabela variável" Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    Insert em "tabela variável" Marcel11

      Data/hora atual: 8/11/2024, 03:40