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

    Copiar dados excluído para outra tabela no banco

    Compartilhe

    Robert_2012
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 108
    Registrado : 07/03/2012

    Copiar dados excluído para outra tabela no banco

    Mensagem  Robert_2012 em 24/2/2018, 22:32

    Caros,
    Tenho uma planilha em Excel onde fiz um formulário e os dados são abastecidos em um banco de dados.

    Quando excluir um registro do banco de dados gostaria de gravar os dados desse registro excluído em outra tabela no banco.

    Como poderia estar fazendo isso?

    Segue abaixo o código que uso para exclusão

    Function Excluir_Imprensa()
    'Excuindo Registro
    Dim result As VbMsgBoxResult
    result = MsgBox("Deseja excluir o(a) Responsável(a): " & Me.CB_Responsavel, vbYesNo, "Confirmação")

    If result = vbYes Then
    sql = "DELETE FROM TB_IMPRENSA"
    sql = sql & " WHERE ID_IMPR = " & Txt_N_Registro
    Set BD = New ADODB.Recordset
    cx.Conect
    BD.Open sql, cx.Conn
    Set BD = Nothing
    cx.Desconect
    LblMensagem.Caption = "Registro excluído com sucesso."
    End If
    End Function


    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6806
    Registrado : 05/11/2009

    Re: Copiar dados excluído para outra tabela no banco

    Mensagem  Alexandre Neves em 25/2/2018, 12:37

    Boa tarde,

    O código SQL tem sintaxe errada

    Utiliza função para procedimento que não devolve nenhum resultado, devia fazer com procedimento (Sub...)

    A minha sugestão era não ter segunda tabela, na tabela existente devia ter um campo de controlo

    Se pretende fazer como que pefiu, coloque código de inserção de registo antes de executar a exclusão

    If result = vbYes Then
    Coloque aqui o código de inserção do registo na outra tabela
    sql = "DELETE FROM TB_IMPRENSA"
    sql = sql & " WHERE ID_IMPR = " & Txt_N_Registro
    Set BD = New ADODB.Recordset


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

      Data/hora atual: 21/7/2018, 14:52