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]Historico de registro ao eliminar (tipo reciclagem)

    Compartilhe
    avatar
    cecnet
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 28
    Registrado : 22/05/2017

    [Resolvido]Historico de registro ao eliminar (tipo reciclagem)

    Mensagem  cecnet em 30/5/2017, 17:31

    Olá companheiros do Fórum!
    Existe como configurar na BD Access uma reciclagem? Ou seja, Quero que quando elimino um registro esse registro eliminado vá para reciclagem e se possível que fique sublinhado a Vermelho. Existe um truque por acaso?

    Agradeço antecipadamente a Ajuda de vocês.
    tauron
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1071
    Registrado : 07/12/2011

    Re: [Resolvido]Historico de registro ao eliminar (tipo reciclagem)

    Mensagem  tauron em 30/5/2017, 21:47

    Teste ai Shocked
    Anexos
    Lixeira.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (28 Kb) Baixado 17 vez(es)
    avatar
    cecnet
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 28
    Registrado : 22/05/2017

    Ainda sobre registro

    Mensagem  cecnet em 31/5/2017, 18:33

    Olá Companheiro!
    Me dá um erro de compilação...
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Historico de registro ao eliminar (tipo reciclagem)

    Mensagem  ahteixeira em 31/5/2017, 19:02

    Olá a todos,

    Constantino, vá a referências e active conforme imagem abaixo:


    Emerson , da forma que está o seu código ao responder que não, está adiconar na mesma.
    Da forma abaixo funfa apenas no Sim, veja diferença:
    Código:
    Private Sub btnExcluir_Click()
    'Lixeira Versao 2
    If MsgBox("Excluir registro atual?", vbYesNo, "Excluir") = vbYes Then
        Dim DB As DAO.Database
        Dim rs As DAO.Recordset
        
        Set DB = CurrentDb()
        Set rs = DB.OpenRecordset("tblLix")
        rs.AddNew
        rs("codigo") = Me.Código
        rs("nome") = Me.nome
        rs("data") = Me.Data
        rs.Update
        rs.Close
        'faltava ainda
        DB.Close
        Set rs = Nothing
        Set DB = Nothing
        '-------------
        
        DoCmd.RunCommand acCmdDeleteRecord
        MsgBox "Registro apagado", vbInformation, "Excluído"
    Else
        Cancel = True
        End If
    End Sub

    Abraço
    tauron
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1071
    Registrado : 07/12/2011

    Re: [Resolvido]Historico de registro ao eliminar (tipo reciclagem)

    Mensagem  tauron em 31/5/2017, 22:20

    Alvaro, agradeco pelo retorno. Eu havia projetado meio que na correria e nao havia testado. Obrigado.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Historico de registro ao eliminar (tipo reciclagem)

    Mensagem  ahteixeira em 1/6/2017, 06:40

    Olá Emerson, estamos cá todos pela mesma causa.
    Assim fica mais um exemplo neste grande fórum Wink

    Ficamos aguardar o retorno do colega Constantino.

    Abraço
    avatar
    cecnet
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 28
    Registrado : 22/05/2017

    Re: [Resolvido]Historico de registro ao eliminar (tipo reciclagem)

    Mensagem  cecnet em 1/6/2017, 09:58

    Como chego até a janela postada?
    Já procurei mas não encontro.
    tauron
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1071
    Registrado : 07/12/2011

    Re: [Resolvido]Historico de registro ao eliminar (tipo reciclagem)

    Mensagem  tauron em 1/6/2017, 10:48

    Passo a passo (neste caso especifico):
    1 - abrir formulario em modo design
    2 - abra o modulo vba do formulario
      2.1 - click em Ferramentas
        2.1.1 - click em referencias

    avatar
    cecnet
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 28
    Registrado : 22/05/2017

    Re: [Resolvido]Historico de registro ao eliminar (tipo reciclagem)

    Mensagem  cecnet em 1/6/2017, 11:28

    Está funcionando corretamente.
    Valeu muito pela Ajuda e Disponibilidade.

    Abraço!
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Historico de registro ao eliminar (tipo reciclagem)

    Mensagem  ahteixeira em 1/6/2017, 16:45

    Olá a todos,
    Constantino, obrigado pelo retorno o fórum agradece.
    Abraço

      Data/hora atual: 24/1/2019, 07:34