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]Transferencia entre tabelas

    avatar
    souzadenilson
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 122
    Registrado : 02/05/2012

    [Resolvido]Transferencia entre tabelas Empty [Resolvido]Transferencia entre tabelas

    Mensagem  souzadenilson 18/6/2020, 02:46

    Boa noite.
    Alguém tem um link que mostre o caminho como proceder em transferir registro entre duas tabelas do mesmo projeto
    TabelaA transferir para TabelaB e após a transferência limpar a tabela A
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7242
    Registrado : 15/03/2013

    [Resolvido]Transferencia entre tabelas Empty Re: [Resolvido]Transferencia entre tabelas

    Mensagem  ahteixeira 18/6/2020, 16:49

    Olá Denilson,

    Pode fazer o pretendido com a execução de duas consultas.
    1º - Consulta acrescentar dados
    2º - Consulta eliminar dados

    Em qualquer dos casos pode ter filtro.
    Veja se tópico abaixo ajuda:
    https://www.maximoaccess.com/t7569-resolvidotransferir-dados-de-uma-tabela-para-outra

    Abraço
    avatar
    souzadenilson
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 122
    Registrado : 02/05/2012

    [Resolvido]Transferencia entre tabelas Empty Re: [Resolvido]Transferencia entre tabelas

    Mensagem  souzadenilson 23/6/2020, 04:05

    Boa noite
    Utilizei este código na descrição onde ele transfere registros entre tabelas e os valores vão acumulando, e limpa a tabela onde os valores que foram transferidos.
    Desejaria  colocar uma mensagem assim que os dados forem transferidos informe que os dados foram transferidos com sucesso e a tabela seja limpa.

    Código utilizado.
    Código:


    Private Sub Btn_Transferir_Click()
        'CurrentDb.Execute " INSERT INTO Acumulado1 (id_mespago, id_coddizimista,id_nomedizimista, id_area,id_formapgto,id_valor)' values Tab_Pagamento (id_mespago, id_coddizimista,id_nomedizimista, id_area,id_formapgto,id_valor)"
        CurrentDb.Execute "insert into Acumulado1 (id_mespago, id_coddizimista,id_nomedizimista, id_area,id_formapgto,id_valor) select id_mespago, id_coddizimista,id_nomedizimista, id_area,id_formapgto,id_valor from Pagamento "
        'select campo1, campo2, campo3, campo4, campo5 from tabela_origem
        MsgBox ("Dados transferidos com sucesso")
        CurrentDb.Execute "DELETE * FROM pagamento"
    End Sub

    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7242
    Registrado : 15/03/2013

    [Resolvido]Transferencia entre tabelas Empty Re: [Resolvido]Transferencia entre tabelas

    Mensagem  ahteixeira 23/6/2020, 09:57

    Olá Denilson,

    Obrigado pelo retorno, o fórum agradece.

    Abraço

      Data/hora atual: 14/6/2021, 07:10