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


2 participantes

    [Resolvido]Localizar duplicidade e deletar a data menor da tabela

    Fabrícia Lima
    Fabrícia Lima
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 60
    Registrado : 17/06/2013

    [Resolvido]Localizar duplicidade e deletar a data menor da tabela Empty [Resolvido]Localizar duplicidade e deletar a data menor da tabela

    Mensagem  Fabrícia Lima 10/7/2017, 09:33

    Bom dia!

    Eu estou precisando muito de ajuda com a seguinte questão:

    No meu formulário de cadastro de treinamentos eu registro via VBA para tabela, após registro localizo a duplicidade de e deleto informação.

    O único problema é que ele deleta exatamente o que eu lancei, eu quero que ele delete por critério de data, mantendo a data mais recente.

    segue código para possível adaptação!

    Código:
    Public Sub Duplicidade()
    On Error Resume Next
    Dim db As DAO.Database, rst As DAO.Recordset
    Dim strNome As String, strSaveName As String


    'MsgBox "Analisar Dados..."

    Set db = CurrentDb()
    Set rst = db.OpenRecordset("select * from Treinamentos_EHS order by  Treinamento, Nome ASC;")
    If rst.BOF And rst.EOF Then


    Else
    rst.MoveFirst
    Do Until rst.EOF
    strDupName = rst.Fields("Treinamento") & rst.Fields("Nome")

    If strDupName = strSaveName Then
    rst.Delete



    Else
    strSaveName = rst.Fields("Treinamento") & rst.Fields("Nome")

    End If
    rst.MoveNext

    Loop
    Set rst = Nothing

    Set db = Nothing



    End If


    End Sub
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Localizar duplicidade e deletar a data menor da tabela Empty Re: [Resolvido]Localizar duplicidade e deletar a data menor da tabela

    Mensagem  JPaulo 10/7/2017, 17:42

    Ola;

    Onde diz SeuCampoData, altere para o nome correto;

    Código:
    Public Sub Duplicidade()
    On Error Resume Next
    Dim db As DAO.Database, rst As DAO.Recordset
    Dim strNome As String, strSaveName As String

    'MsgBox "Analisar Dados..."

    Set db = CurrentDb()
    Set rst = db.OpenRecordset("select * from Treinamentos_EHS order by  Treinamento ASC, Nome ASC, SeuCampoData DESC;")
    'se não encontrar registros, saí do codigo
    If rst.RecordCount = 0 Then Exit Sub
    'se encontrar move para o 1º registro
    rst.MoveFirst

    Do Until rst.EOF
    strDupName = rst.Fields("Treinamento") & rst.Fields("Nome")
    If strDupName = strSaveName Then
    rst.Delete
    Else
    strSaveName = rst.Fields("Treinamento") & rst.Fields("Nome")
    End If
    rst.MoveNext

    Loop
    rst.Close: Set rst = Nothing
    db.Close: Set db = Nothing
    End Sub


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Localizar duplicidade e deletar a data menor da tabela Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Localizar duplicidade e deletar a data menor da tabela Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Localizar duplicidade e deletar a data menor da tabela Folder_announce_new Instruções SQL como utilizar...
    Fabrícia Lima
    Fabrícia Lima
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 60
    Registrado : 17/06/2013

    [Resolvido]Localizar duplicidade e deletar a data menor da tabela Empty Re: [Resolvido]Localizar duplicidade e deletar a data menor da tabela

    Mensagem  Fabrícia Lima 14/7/2017, 21:05

    Muito Obrigado funcionou perfeitamente cheers

    Conteúdo patrocinado


    [Resolvido]Localizar duplicidade e deletar a data menor da tabela Empty Re: [Resolvido]Localizar duplicidade e deletar a data menor da tabela

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 14:40