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


5 participantes

    [Resolvido]Excluir dados duplicados sem chave

    avatar
    famuller
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 27/02/2012

    [Resolvido]Excluir dados duplicados sem chave Empty Excluir dados duplicados sem chave

    Mensagem  famuller 27/2/2012, 13:45

    Prezados,

    Sou leigo no assunto banco de dados e estou precisando de ajuda, testei a exclusão de duplicadas conforme pesquisas no forum mas não consegui efetuar o mesmo, poderiam me ajudar, os campos para verificação são DATA, XPROCESSO e XEVENTO.
    Detalhe, minha tabela não possui chave.

    Agradeço a ajuda.

    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Excluir dados duplicados sem chave Empty Re: [Resolvido]Excluir dados duplicados sem chave

    Mensagem  criquio 27/2/2012, 14:12

    Aconselho a colocar a chave. Ela é essencial para evitar problemas com filtragens por exemplo. Agora, para o que você precisa, acredito que um Recordset em companhia do DCount resolva. Algo como:

    Código:
    Dim rs As Recordset

    Set rs = CurrentDb.OpenRecordset("NomeDaTabela")

    Do While Not rs.EOF

        If DCount("*", "NomeDaTabela", "Campo1='" & rs!Campo1 & "' And Campo2='" & rs!Campo2 & "' And Campo3='" & rs!Campo3 & "'") > 1 Then

              CurrentDb.Execute "DELETE * FROM NomeDaTabela WHERE Campo1='" & rs!Campo1 & "' And Campo2='" & rs!Campo2 & "' And Campo3='" & rs!Campo3 & "'"

        End If

    rs.MoveNext
    Loop

    rs.Close
    Set rs = Nothing

    Teste em uma cópia do aplicativo para ver se funciona sem dar problema.

    OBS.: Como diz JPaulo, existem mil maneiras de se chegar ao resultado e como eu já tinha preparado o post, vou postar para não perder o trabalho.
    Espero que o mestre não se importe Smile


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Excluir dados duplicados sem chave Empty Re: [Resolvido]Excluir dados duplicados sem chave

    Mensagem  JPaulo 27/2/2012, 14:13

    Retirei o que disse porque não tinha entendido que era para excluír.




    .................................................................................
    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]Excluir dados duplicados sem chave Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Excluir dados duplicados sem chave Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Excluir dados duplicados sem chave Folder_announce_new Instruções SQL como utilizar...
    avatar
    famuller
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 27/02/2012

    [Resolvido]Excluir dados duplicados sem chave Empty Excluir dados duplicados sem chave

    Mensagem  famuller 27/2/2012, 14:35

    Obrigado pela ajuda, mas ainda não funcionou, ou estou fazendo errado ( que é o mais provavel Razz )

    Quando gero este código no VBA me da erro de depuração 3464.

    Sub Excluir()

    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("d_pr_eventos")
    Do While Not rs.EOF
    If DCount("*", "d_pr_eventos", "DATA='" & rs!Data & "' And XEVENTO='" & rs!XEVENTO & "' And XPROCESSO='" & rs!XPROCESSO & "'") > 1 Then
    CurrentDb.Execute "DELETE * FROM d_pr_eventos WHERE DATA='" & rs!Data & "' And XEVENTO='" & rs!XEVENTO & "' And XPROCESSO='" & rs!XPROCESSO & "'"
    End If
    rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing

    End Sub

    Agradeço a ajuda.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Excluir dados duplicados sem chave Empty Re: [Resolvido]Excluir dados duplicados sem chave

    Mensagem  criquio 27/2/2012, 15:03

    Sempre que ocorrer erros, informe todos os dados sobre o mesmo por gentileza, incluindo a linha para a qual o erro aponta e tambem a descrição do mesmo. Como enes coisas podem ocasionar um mesmo tipo de erro, fica mais fácil para a gente analisar.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    famuller
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 27/02/2012

    [Resolvido]Excluir dados duplicados sem chave Empty Re: [Resolvido]Excluir dados duplicados sem chave

    Mensagem  famuller 27/2/2012, 15:05

    Linha do erro:


    Sub teste()
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("d_pr_eventos")
    Do While Not rs.EOF
    If DCount("*", "d_pr_eventos", "DATA='" & rs!Data & "' And XEVENTO='" & rs!XEVENTO & "' And XPROCESSO='" & rs!XPROCESSO & "'") > 1 Then
    CurrentDb.Execute "DELETE * FROM d_pr_eventos WHERE DATA='" & rs!Data & "' And XEVENTO='" & rs!XEVENTO & "' And XPROCESSO='" & rs!XPROCESSO & "'"
    End If
    rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    End Sub

    Agradeço desde já a ajuda.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Excluir dados duplicados sem chave Empty Re: [Resolvido]Excluir dados duplicados sem chave

    Mensagem  JPaulo 27/2/2012, 19:32

    Faça sempre backup antes de se aventurar.

    Este código foi testado e está 100% funcional;

    Não altere nada, supondo eu que os seus campos a analisar serão os "rst.Fields(0) & rst.Fields(1) & rst.Fields(2)"

    Para chamar o Sub no evento ao pressionar de um botão, utilize;

    Private Sub SeuBotão_Click()
    Call DeletaDuplicatasSemChavePrimaria
    End Sub





    Sub DeletaDuplicatasSemChavePrimaria()
    On Error Resume Next

    Dim db As DAO.Database, rst As DAO.Recordset
    Dim strDupName As String, strSaveName As String

    Set db = CurrentDb()
    Set rst = db.OpenRecordset("d_pr_eventos")

    If rst.BOF And rst.EOF Then
    MsgBox "Não existem registros..."
    Else
    rst.MoveFirst
    Do Until rst.EOF
    strDupName = rst.Fields(0) & rst.Fields(1) & rst.Fields(2)
    If strDupName = strSaveName Then
    rst.Delete
    Else
    strSaveName = rst.Fields(0) & rst.Fields(1) & rst.Fields(2)
    End If
    rst.MoveNext
    Loop

    Set rst = Nothing
    Set db = Nothing

    End If
    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]Excluir dados duplicados sem chave Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Excluir dados duplicados sem chave Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Excluir dados duplicados sem chave Folder_announce_new Instruções SQL como utilizar...
    avatar
    Convidad
    Convidado


    [Resolvido]Excluir dados duplicados sem chave Empty Re: [Resolvido]Excluir dados duplicados sem chave

    Mensagem  Convidad 28/2/2012, 10:09


    Vc diz que o código executa, então não deve ter nada a ver, mas, em todo caso, verifique o Nome do botão que você usa e substitua no lugar de SeuBotão, se é que são diferentes.


    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Excluir dados duplicados sem chave Empty Re: [Resolvido]Excluir dados duplicados sem chave

    Mensagem  criquio 28/2/2012, 10:29

    Não dá mensagem de erro porque tem um On Error Resume Next. Desabilite essa linha e execute novamente para ver qual erro o vba exibirá. Os nomes dos controles precisam ser os corretos tambem.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Convidad
    Convidado


    [Resolvido]Excluir dados duplicados sem chave Empty Re: [Resolvido]Excluir dados duplicados sem chave

    Mensagem  Convidad 28/2/2012, 10:35


    É verdade Criquio.
    Vi aquele "SeuBotão" ali e não reparei no tratamento de erro.
    avatar
    famuller
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 27/02/2012

    [Resolvido]Excluir dados duplicados sem chave Empty Re: [Resolvido]Excluir dados duplicados sem chave

    Mensagem  famuller 28/2/2012, 11:21

    Pessoal, desculpe-me, acabei entendendo errado, vou explicar como é meu ambiente:

    Trabalho como suporte de um software jurídico feito em Delphi, e o mesmo utiliza vários tipos de banco de dados, um dele o Access. Estou com o banco de um cliente em que, por algum motivo, criou alguns eventos duplicados, onde consigo lista quais são e quantas repetições, mas como são mais de 30.000 eventos para excluir, por este motivo estava procurando ou um comando ou um script que fizesse esta exclusão.

    Não sei como proceder, pois trabalho a pouco tempo com Access e tem muita coisa que eu não sei fazer.

    Gostaria muito da ajuda de vocês.

    Fico grato desde já.
    avatar
    Convidad
    Convidado


    [Resolvido]Excluir dados duplicados sem chave Empty Re: [Resolvido]Excluir dados duplicados sem chave

    Mensagem  Convidad 28/2/2012, 11:29


    Bem, estamos ajudando você. Verificou o que sugeri quanto ao nome do botão? E retirou a linha mencionada pelo Criquio? (Pode colocar um aspas simples no início da linha. Assim ela será ignorada pelo código, e pode-se retirar o apóstrofe depois.)
    avatar
    famuller
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 27/02/2012

    [Resolvido]Excluir dados duplicados sem chave Empty Re: [Resolvido]Excluir dados duplicados sem chave

    Mensagem  famuller 28/2/2012, 11:31

    Sim,

    Fiz o solicitado, mandei executar, não fez a exclusão e não gerou erro.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Excluir dados duplicados sem chave Empty Re: [Resolvido]Excluir dados duplicados sem chave

    Mensagem  JPaulo 28/2/2012, 12:30

    Vamos entender de uma só vez ????

    Então vamos lá;

    1º O código está a funcionar a 100%

    2º Foi testado mais de 20 vezes

    3º Quando eu coloquei rst.Fields(0) & rst.Fields(1) & rst.Fields(2)
    Estava a supor que você teria apenas 3 campos

    4º Pela imagem da sua tabela:

    rst.Fields(0) = 1º Campo = DATA
    rst.Fields(1) = 2º Campo = XEVENTO
    rst.Fields(15) = 15º Campo = XCOMPROMISSO





    .................................................................................
    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]Excluir dados duplicados sem chave Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Excluir dados duplicados sem chave Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Excluir dados duplicados sem chave Folder_announce_new Instruções SQL como utilizar...
    avatar
    famuller
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 27/02/2012

    [Resolvido]Excluir dados duplicados sem chave Empty Re: [Resolvido]Excluir dados duplicados sem chave

    Mensagem  famuller 28/2/2012, 14:55

    JPaulo,

    Fiz a alteração, mas continuo com os dados duplicados e não gerando erro.

    Teria como lhe enviar a tabela para verificar?

    Grato.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Excluir dados duplicados sem chave Empty Re: [Resolvido]Excluir dados duplicados sem chave

    Mensagem  JPaulo 29/2/2012, 06:07

    Basta zipar o seu banco e anexar aqui.


    .................................................................................
    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]Excluir dados duplicados sem chave Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Excluir dados duplicados sem chave Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Excluir dados duplicados sem chave Folder_announce_new Instruções SQL como utilizar...
    avatar
    famuller
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 27/02/2012

    [Resolvido]Excluir dados duplicados sem chave Empty Re: [Resolvido]Excluir dados duplicados sem chave

    Mensagem  famuller 29/2/2012, 08:48

    Segue o link para download:

    http://download.virtuem.com.br/Banco_de_dados/ACCESS/projuris.rar

    Grato desde já.
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3947
    Registrado : 21/04/2011

    [Resolvido]Excluir dados duplicados sem chave Empty Re: [Resolvido]Excluir dados duplicados sem chave

    Mensagem  Marcelo David 29/2/2012, 09:28

    Amigo, use o compactar e reparar e exclua componentes desnecessários para a resolução da sua dúvida para diminuir seu aplicativo, pois o mesmo está com 490 Mb...


    .................................................................................
    [Resolvido]Excluir dados duplicados sem chave Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Excluir dados duplicados sem chave Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Excluir dados duplicados sem chave Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Excluir dados duplicados sem chave Marcel11
    avatar
    famuller
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 27/02/2012

    [Resolvido]Excluir dados duplicados sem chave Empty Re: [Resolvido]Excluir dados duplicados sem chave

    Mensagem  famuller 29/2/2012, 09:38

    Bom dia,

    Fiz isso antes de enviar, mas o banco tem quase 700MB, esse foi o máximo de compactação que eu consegui.
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3947
    Registrado : 21/04/2011

    [Resolvido]Excluir dados duplicados sem chave Empty Re: [Resolvido]Excluir dados duplicados sem chave

    Mensagem  Marcelo David 29/2/2012, 10:13

    Então, exclua o que não interessa a sua dúvida...


    .................................................................................
    [Resolvido]Excluir dados duplicados sem chave Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Excluir dados duplicados sem chave Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Excluir dados duplicados sem chave Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Excluir dados duplicados sem chave Marcel11
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Excluir dados duplicados sem chave Empty Re: [Resolvido]Excluir dados duplicados sem chave

    Mensagem  JPaulo 29/2/2012, 11:40

    700 megas ?????????????

    Você já fez o Compactar/Reparar dentro do banco ???

    Tem imagens ????


    .................................................................................
    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]Excluir dados duplicados sem chave Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Excluir dados duplicados sem chave Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Excluir dados duplicados sem chave Folder_announce_new Instruções SQL como utilizar...
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Excluir dados duplicados sem chave Empty Re: [Resolvido]Excluir dados duplicados sem chave

    Mensagem  criquio 29/2/2012, 13:00

    Uma dica adicional para diminuir o tamanho do arquivo: se tiver tabelas com muitas linhas de dados, exclua uma boa parte deles. Pode deixar apenas umas cinco linhas no máximo. E se tiver imagens, retire-as tambem. Depois, repita o Compactar/Reparar.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    famuller
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 27/02/2012

    [Resolvido]Excluir dados duplicados sem chave Empty Re: [Resolvido]Excluir dados duplicados sem chave

    Mensagem  famuller 29/2/2012, 13:13

    Pessoal,

    Fiz a troca do arquivo, esta somente com dados a tabela que eu preciso excluir os duplicados que é a D_PR_EVENTOS.

    Grato.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Excluir dados duplicados sem chave Empty Re: [Resolvido]Excluir dados duplicados sem chave

    Mensagem  JPaulo 29/2/2012, 14:48

    Ora vamos lá ver isso..... Laughing


    .................................................................................
    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]Excluir dados duplicados sem chave Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Excluir dados duplicados sem chave Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Excluir dados duplicados sem chave Folder_announce_new Instruções SQL como utilizar...
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Excluir dados duplicados sem chave Empty Re: [Resolvido]Excluir dados duplicados sem chave

    Mensagem  JPaulo 1/3/2012, 06:50

    Eu não me atrevo a limpar essa tabela.

    Você tem registos em que os campos DATA,XEVENTO,XCOMPROMISSO (mencionados por si) está repetido 11 vezes, mas que toda a informação dos restantes campos não se repete.


    DATA XEVENTO XPROCESSO XFASE NOTA_CUMPRIMENTO ULTIMA_MODIFICACAO
    29-06-2007 324 297 37 Peticao 156063/2007(--): PROTOCOLO 18-05-2011 17:19:39
    29-06-2007 324 297 37 Protocolo 156063/2007 (---Diversos (--)): PROTOCOLO 20-01-2012 11:36:44
    29-06-2007 324 297 39 Protocolo 156063/2007 (---Diversos (--)): PROTOCOLO 20-01-2012 11:37:15
    29-06-2007 324 297 37 Protocolo 156063/2007 (---Diversos (--)): PROTOCOLO 23-01-2012 15:45:05
    29-06-2007 324 297 39 Protocolo 156063/2007 (---Diversos (--)): PROTOCOLO 23-01-2012 15:45:52
    29-06-2007 324 297 37 Protocolo 156063/2007 (---Diversos (--)): PROTOCOLO 24-01-2012 9:38:21
    29-06-2007 324 297 39 Protocolo 156063/2007 (---Diversos (--)): PROTOCOLO 24-01-2012 9:38:39
    29-06-2007 324 297 37 Protocolo 156063/2007 (---Diversos (--)): PROTOCOLO 24-01-2012 11:52:18
    29-06-2007 324 297 39 Protocolo 156063/2007 (---Diversos (--)): PROTOCOLO 24-01-2012 11:52:57
    29-06-2007 324 297 37 Protocolo 156063/2007 (---Diversos (--)): PROTOCOLO 24-01-2012 13:31:06
    29-06-2007 324 297 39 Protocolo 156063/2007 (---Diversos (--)): PROTOCOLO 24-01-2012 13:32:06


    .................................................................................
    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]Excluir dados duplicados sem chave Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Excluir dados duplicados sem chave Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Excluir dados duplicados sem chave Folder_announce_new Instruções SQL como utilizar...
    avatar
    famuller
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 27/02/2012

    [Resolvido]Excluir dados duplicados sem chave Empty Re: [Resolvido]Excluir dados duplicados sem chave

    Mensagem  famuller 1/3/2012, 09:48

    JPaulo,

    Na verdades, se você verificar, existe um unico campo na maioria das linha que não muta, que é o ULTIMA_MODIFICACAO, mas este campo é somente a data que a linha foi gerada novamente, o restante das colunas estão iguais.
    chsestrem
    chsestrem
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 463
    Registrado : 01/03/2010

    [Resolvido]Excluir dados duplicados sem chave Empty Re: [Resolvido]Excluir dados duplicados sem chave

    Mensagem  chsestrem 1/3/2012, 10:17

    Bom dia,

    Tente criar uma consulta usando o Dmáx no campo da última atualização.


    .................................................................................
    Charles Sestrem
    http://www.vbabit.com.br
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Excluir dados duplicados sem chave Empty Re: [Resolvido]Excluir dados duplicados sem chave

    Mensagem  JPaulo 2/3/2012, 08:05

    Bom dia Fabio;

    Se ainda quiser apagar os registros duplicados, fica aqui a correção do código, colocando as 3 colunas na mesma ordem Ascendente, porque a validação deste código é feita, olhando sempre para o registro anterior;




    Public Sub DeletaDuplicadosSemChavePrimaria()
    On Error Resume Next

    Dim db As DAO.Database, rst As DAO.Recordset
    Dim strNome As String, strSaveName As String

    Set db = CurrentDb()
    Set rst = db.OpenRecordset("select * from D_PR_EVENTOS order by DATA, XEVENTO, XPROCESSO ASC;")

    If rst.BOF And rst.EOF Then
    MsgBox "Não existem registros..."
    Else
    rst.MoveFirst
    Do Until rst.EOF
    strDupName = rst.Fields("DATA") & rst.Fields("XEVENTO") & rst.Fields("XPROCESSO")
    If strDupName = strSaveName Then
    rst.Delete
    Else
    strSaveName = rst.Fields("DATA") & rst.Fields("XEVENTO") & rst.Fields("XPROCESSO")
    End If
    rst.MoveNext
    Loop

    Set rst = Nothing
    Set db = Nothing

    End If
    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]Excluir dados duplicados sem chave Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Excluir dados duplicados sem chave Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Excluir dados duplicados sem chave Folder_announce_new Instruções SQL como utilizar...
    avatar
    famuller
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 27/02/2012

    [Resolvido]Excluir dados duplicados sem chave Empty Re: [Resolvido]Excluir dados duplicados sem chave

    Mensagem  famuller 2/3/2012, 09:52

    Cara, muito obrigado, funcionou muito bem.

    Vlw mesmo pela ajuda.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Excluir dados duplicados sem chave Empty Re: [Resolvido]Excluir dados duplicados sem chave

    Mensagem  JPaulo 2/3/2012, 09:54

    Obrigado pelo retorno, o forum agradece.


    .................................................................................
    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]Excluir dados duplicados sem chave Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Excluir dados duplicados sem chave Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Excluir dados duplicados sem chave Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado


    [Resolvido]Excluir dados duplicados sem chave Empty Re: [Resolvido]Excluir dados duplicados sem chave

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 22:10