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]Excluir vários campos repetidos de uma mesma tabela

    asimoes
    asimoes
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 30/04/2013

    [Resolvido]Excluir vários campos repetidos de uma mesma tabela Empty Excluir vários campos repetidos de uma mesma tabela

    Mensagem  asimoes Ter 30 Abr - 19:23

    Ola a todos!

    Pessoal, é o seguinte, gostaria de saber como excluir campos repetidos de uma tabela mas como abaixo:

    NOME TELEFONE RES TELEFONE COM CELULAR1 CELULAR 2
    Pedro 99999 88888 77777 66666
    Pedro 99999 88888 77777 66666
    Pedro 99999 88888 77777 66666
    Marcos 99999 88888 77777 66666
    Marcos 55555 88888 77777 66666

    As 03 primeiras linhas em vermelho estão com todos os campos repetidos, então precisaria excluir 02 delas e deixar apenas uma sem repetir.

    Alguém saberia como se resolve isso?

    Obrigado!


    .................................................................................
    Não tenho medo de compartilhar conhecimento.
    Essa é a unica coisa que as pessoas não poderão roubar de mim, pois ninguém nunca sabe igual, mesmo que saiba a mesma coisa.
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

    [Resolvido]Excluir vários campos repetidos de uma mesma tabela Empty Re: [Resolvido]Excluir vários campos repetidos de uma mesma tabela

    Mensagem  HARYSOHN Ter 30 Abr - 19:34

    Veja:

    http://maximoaccess.forumeiros.com/search?mode=searchbox&search_keywords=Excluir+duplicados&show_results=topics

    Cumprimentos
    asimoes
    asimoes
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 30/04/2013

    [Resolvido]Excluir vários campos repetidos de uma mesma tabela Empty Funcionou

    Mensagem  asimoes Qua 1 Maio - 18:54

    Pessoal consegui resolver meu problema com o código abaixo!

    Obrigado a todos!


    Private Sub Comando37_Click()
    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 teste ORDER BY campo1, campo2, campo3 ASC;")
    If rst.BOF And rst.EOF Then
    MsgBox "Não existem registros..."
    Else
    rst.MoveFirst
    Do Until rst.EOF
    strDupName = rst.Fields("campo1") & rst.Fields("campo2") & rst.Fields("campo3")
    If strDupName = strSaveName Then
    rst.Delete
    Else
    strSaveName = rst.Fields("campo1") & rst.Fields("campo2") & rst.Fields("campo3")
    End If
    rst.MoveNext
    Loop
    Set rst = Nothing
    Set db = Nothing
    End If
    End Sub


    .................................................................................
    Não tenho medo de compartilhar conhecimento.
    Essa é a unica coisa que as pessoas não poderão roubar de mim, pois ninguém nunca sabe igual, mesmo que saiba a mesma coisa.
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

    [Resolvido]Excluir vários campos repetidos de uma mesma tabela Empty Re: [Resolvido]Excluir vários campos repetidos de uma mesma tabela

    Mensagem  HARYSOHN Qua 1 Maio - 19:13

    O Fórum agradece o retorno.

      Data/hora atual: Qua 26 Jan - 20:10