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

    [Resolvido]Copiar dados de uma tabela e armazenar em outra respeitando um critério

    avatar
    Sgsamuka
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 30
    Registrado : 03/12/2020

    [Resolvido]Copiar dados de uma tabela e armazenar em outra respeitando um critério Empty [Resolvido]Copiar dados de uma tabela e armazenar em outra respeitando um critério

    Mensagem  Sgsamuka 18/10/2021, 13:25

    Olá amigos, espero que possam me ajudar.

    Preciso executar um código que copie os dados da tabela BDCapex e armazene na tabela BDTempCapex, mas que os dados copiados sejam apenas os que atendam o critério do campo Cod_Est_Capex (que está presente no formulário onde estou executando o código).

    Pensei em usar o INSERT INTO junto com o SELECT, mas não consigo estrutura o código.

    Os campos da tabela BDTempCapex tem os mesmos nomes da tabela BDCapex.
    avatar
    Sgsamuka
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 30
    Registrado : 03/12/2020

    [Resolvido]Copiar dados de uma tabela e armazenar em outra respeitando um critério Empty Re: [Resolvido]Copiar dados de uma tabela e armazenar em outra respeitando um critério

    Mensagem  Sgsamuka 18/10/2021, 13:37

    Amigos, consegui estruturar o código. Deixarei aqui, caso precisem.

    Dim strSQL As String

    DoCmd.SetWarnings (True)
    strSQL = "INSERT INTO BDTempCapex ( Cod_Capex, Num_Doc_Capex, Cod_EAP_Capex, Cod_SubConta_Capex, Cod_SubConta_Cliente_Capex, Desc_Inf_Capex, Complemento_Inf_Capex, Unid_Med_Inf_Capex, Quant_Inf_Capex, Preco_Unit_Inf_Capex, Preco_Tot_Inf_Capex, Ref_Inf_Capex, Obs_Inf_Capex, Grupo_Capex )" & _
    "SELECT BDCapex.Cod_Capex, BDCapex.Num_Doc_Capex, BDCapex.Cod_EAP_Capex, BDCapex.Cod_SubConta_Capex, BDCapex.Cod_SubConta_Cliente_Capex, BDCapex.Desc_Inf_Capex, BDCapex.Complemento_Inf_Capex, BDCapex.Unid_Med_Inf_Capex, BDCapex.Quant_Inf_Capex, BDCapex.Preco_Unit_Inf_Capex, BDCapex.Preco_Tot_Inf_Capex, BDCapex.Ref_Inf_Capex, BDCapex.Obs_Inf_Capex, BDCapex.Grupo_Capex " & _
    "FROM BDCapex " & _
    "WHERE BDCapex.Cod_Capex = " & Me.Edit_Cod_Est_Capex & ""
    DoCmd.SetWarnings (False)
    DoCmd.RunSQL strSQL


    Creio que talvez não precisasse especificar os campos, mas só consegui dessa maneira. Se alguém conseguir melhorar o código é só postar aqui.

      Data/hora atual: 29/11/2021, 23:21