[Resolvido]Dúvida Insert Into

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"

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

Fantástico!

muito obrigado ficou mais profissional o código agora.