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

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.

Teste ai

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

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

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

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

Ficamos aguardar o retorno do colega Constantino.

Abraço

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

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

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

Abraço!

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