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

    [Resolvido]Dúvida Insert Into

    Compartilhe
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 614
    Registrado : 09/11/2012

    [Resolvido]Dúvida Insert Into

    Mensagem  =>Nois em Ter 14 Jun 2016, 12:08

    Bom dia

    como seria a melhor forma de declarar esse insert into com essas duas variaveis

    esta dando erro acredito que seja coisa de aspas mas são várias colunas....


    Dim Destino, Origem As String

    Destino = "Codigo_Ref_lista_graf, Cod_Ref_registro_graf, Cod_Ref_Cad_graf, Cavalo_cad_graf, Carreta_cad_graf, Veiculo_cad_graf, Motorista_cad_graf, Tipo_cad_graf, Janela_ref_graf, Data_hora_inicio_graf, User_atualizou_graf, Estado_atual_graf, Cliente_graf, Estado_destino_graf, Obs_geral_graf, Data_ref_graf, Data_hora_Atual_graf, Cidade_Atual_graf, Cidade_Destino_graf, Status_Voz_graf"

    Origem = "Codigo_Ref_lista_imp, Cod_Ref_registro_Imp, Cod_Ref_Cad_imp, Cavalo_cad_imp, Carreta_cad_imp, Veiculo_cad_imp, Motorista_cad_imp, Tipo_cad_imp, Janela_ref_imp, Data_hora_inicio_imp, User_atualizou_imp, Estado_atual_imp, Cliente_imp, Estado_destino_imp, Obs_geral_imp, Data_ref_imp, Data_hora_Atual_imp, Cidade_Atual_imp, Cidade_Destino_Imp, Status_Voz_Imp"

    DoCmd.RunSQL "INSERT INTO tbl_TranspMonit_cad_Grafico (Destino) SELECT Origem FROM cns_TranspMonit_Filtro_Grafico"


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3390
    Registrado : 04/04/2010

    Re: [Resolvido]Dúvida Insert Into

    Mensagem  Avelino Sampaio em Ter 14 Jun 2016, 13:04

    Olá!

    As variáveis tem que ficar fora das aspas. Experimente:

    DoCmd.RunSQL "INSERT INTO tbl_TranspMonit_cad_Grafico (" & Destino & ") SELECT " & Origem & " FROM cns_TranspMonit_Filtro_Grafico"

    Nota:  faça backup de segurança antes dos testes.

    Aguardamos
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 614
    Registrado : 09/11/2012

    Re: [Resolvido]Dúvida Insert Into

    Mensagem  =>Nois em Ter 14 Jun 2016, 13:12

    Fantástico!

    muito obrigado ficou mais profissional o código agora.


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!

      Data/hora atual: Sex 22 Set 2017, 07:24