[Resolvido]Consulta excluir duplicidade com dois criterios

Boa tarde a todos!

Utilizo o access 2007, procurei no forum como "duplicidade" mas não encontrei nenhum topico sobre o que preciso.

É o seguinte, eu gostaria que minha consulta exclua a duplicidade se a mesma for do mesmo mês, deixando somente uma, por exemplo:

Atualmente esta desta forma.
Peça Mês
1234 jan
1234 jan
1234 out
4321 fev
4321 mar
4321 mar
4321 mar

Então me exclua as peças repetidas do mesmo mês mas deixe somente uma:

Como ficaria.

Peça Mês
1234 jan
1234 out
4321 fev
4321 mar


Agradeço desde já a ajuda

Esses valores duplicados estão assim na tabela ?

Ou somente na consulta ?

Bom dia Jpaulo,

Sim, neste caso especifico é na tabela, mas se você souber como excluir duplicidade quando aparece na consulta eu ficarei grato, pois tenho um caso assim também.

obrigado

Ola Daniel;

Se quiser deletar os duplicados na tabela e ficar apenas um de cada, utilize este meu código num botão;

Atenção:
Faça backup dos dados em primeiro;

Altere o Select para os nomes corretos da tabela e campos;

Private Sub SeuBotão_Click()
  Dim db As DAO.Database, rst As DAO.Recordset
  Dim strNome As String, strSaveName As String
  'By JPaulo ® Maximo Access
  Set db = CurrentDb()
  'abre o recordset da sua tabela, baseado em 2 campos todos por ordem ascendente
  Set rst = db.OpenRecordset("SELECT * FROM SuaTabela ORDER BY Peça, Mês ASC;")
  'verifica se existem registros na tabela
  If rst.BOF And rst.EOF Then
    MsgBox "Não existem registros..."
  Else
  'se existirem registros, coloca o recordset no primeiro
    rst.MoveFirst
    Do Until rst.EOF
   'envia para a variavel, a concatenação dos 2 campos
      strDupName = rst.Fields("Peça") & rst.Fields("Mês")
      If strDupName = strSaveName Then
       'se a variavel concatenada, for igual à variavel já salva, deleta
        rst.Delete
      Else
      'salva a concatenação
        strSaveName = rst.Fields("Peça") & rst.Fields("Mês")
      End If
      'avança outro registro
      rst.MoveNext
    Loop
    Set rst = Nothing
    Set db = Nothing
  End If
End Sub

Se não quer duplicidade nas consultas é só agrupar.

E ae resolveu ?

Opa resolveu perfeitamente Jpaulo, será que eu consigo adaptar este codigo ao abrir a tabela, sem a necessidade de clicar no botão?

abraço

Opa, fico feliz por funfar;

Ao abrir a tabela não tem qualquer jeito, pode é testar ao abrir do seu formulario principal;

Private Sub Form_Open(Cancel As Integer)
  Dim db As DAO.Database, rst As DAO.Recordset
  Dim strNome As String, strSaveName As String
  'By JPaulo ® Maximo Access
  Set db = CurrentDb()
  'abre o recordset da sua tabela, baseado em 2 campos todos por ordem ascendente
  Set rst = db.OpenRecordset("SELECT * FROM SuaTabela ORDER BY Peça, Mês ASC;")
  'verifica se existem registros na tabela
  If rst.BOF And rst.EOF Then
    MsgBox "Não existem registros..."
  Else
  'se existirem registros, coloca o recordset no primeiro
    rst.MoveFirst
    Do Until rst.EOF
   'envia para a variavel, a concatenação dos 2 campos
      strDupName = rst.Fields("Peça") & rst.Fields("Mês")
      If strDupName = strSaveName Then
       'se a variavel concatenada, for igual à variavel já salva, deleta
        rst.Delete
      Else
      'salva a concatenação
        strSaveName = rst.Fields("Peça") & rst.Fields("Mês")
      End If
      'avança outro registro
      rst.MoveNext
    Loop
    Set rst = Nothing
    Set db = Nothing
  End If
End Sub

Melhor ainda desta forma.

Obrigado novamente pela ajuda . Tenha um ótimo dia!

Esqueci de colocar o resolvido.