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

    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, 21: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.
    avatar
    tauron
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

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

    Mensagem  tauron em 31/5/2017, 01:47

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

    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, 22:33

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

    Respeito às Regras 100%

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

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

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

    Olá a todos,

    Constantino, vá a referências e active conforme imagem abaixo:
    [Você precisa estar registrado e conectado para ver esta imagem.]

    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
    avatar
    tauron
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

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

    Mensagem  tauron em 1/6/2017, 02:20

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

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em 1/6/2017, 10: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

    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, 13:58

    Como chego até a janela postada?
    Já procurei mas não encontro.
    avatar
    tauron
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

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

    Mensagem  tauron em 1/6/2017, 14: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


    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, 15:28

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

    Abraço!
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

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

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

      Data/hora atual: 16/8/2018, 16:34