[Resolvido]Como não repetir valores em uma consulta com servidor para tabela do Access?

Gosgaria muito que alguém me ajudasse pois ainda estou aprendendo, estou com o seguinte problema   :


Tenho uma consulta que é feito por um servidor de uma empresa, consegui fazer módulo de conexão com o servidor, de consulta para buscar os dados que quero e inserir na tabela, porém, está inserindo chamados com a mesma data e hora iguais mais não quero isso.

Obs: Pode repetir o chamado mais não o chamado e hora.

Exemplo que não pode ocorrer:
Chamado: 1111, Data: 23/03/2018 08:00:00
Chamado: 1111, Data: 23/03/2018 08:00:00

Exemplo que pode ocorrer:
Chamado: 1111, Data: 23/03/2018 08:00:00
Chamado: 1111, Data: 23/03/2018 08:30:00



Fiz o seguinte código com ajuda de outras pessoas porém não da certo:


  '(Antes dessa informação "Do While Not rsADO.EOF" tem a conexão com as informações que desejo buscar sendo que está tudo correto)

Código:

Do While Not rsADO.EOF
       
               Set db = CurrentDb()
                   LocalSQL = "SELECT * FROM [TB_Dados] " & _
                   "WHERE Chamado = " & rsADO!db_chamado & " "   'Nessa linha é para verificar o chamado com a da tabela e do servidor se são iguais
                   Set sr = db.OpenRecordset(LocalSQL)
                   

                   
                    If sr.EOF Then
                       sr.AddNew
                   Else
                       If Format(sr!Criado_em, "dd/mm/yyyy hh:mm") = Format(rsADO("Data-de-Criação"), "dd/mm/yyyy hh:mm") Then   'Nessa linha verificar as informações "dd/mm/yyyy hh:mm" com a do servidor
                           sr.Edit       'Nessa linha informei se tiver com a mesma "dd/mm/yyyy hh:mm" iguais da tabela com servidor somente editar as informações
                       Else
                           sr.AddNew     'Nessa linha informei se tiver diferente da tabela com servidor para adicionar
                       End If
                   
                   End If
                       sr!Chamado = "" & rsADO!Chamado
                       sr!Criado_em = "" & Format(rsADO![Data-de-Criação], "dd/mm/yyyy hh:mm:ss")


End If
                                                                                         
                       sr.Update
       
               rsADO.MoveNext
               db.Close
               Set sr = Nothing
               Set db = Nothing
           Loop
           
           
       
       cn.Close
       Set rsADO = Nothing
       Set cn = Nothing
       Exit Sub
       
End Sub

Olá novato_access,

Faça a seguinte alteração na string da query:

LocalSQL = "SELECT DISTINCT * FROM [TB_Dados] " & _

Desta forma, seu recordset será carregado somente com dados "DISTINTOS".

Espero ter ajudado.

Att,

Alexandre Fim

Olá novato_access,

Faça a seguinte alteração na string da query:

LocalSQL = "SELECT DISTINCT * FROM [TB_Dados] " & _

Desta forma, seu recordset será carregado somente com dados "DISTINTOS".

Espero ter ajudado.

Att,

Alexandre Fim

Dessa forma não vai resolver pois tem ocasiões que o chamado deve repetir e a data vai repetir. O que não pode acorrer é o chamado e data repetir.

Exemplo que não pode ocorrer:
Chamado: 1111, Data: 23/03/2018 08:00:00
Chamado: 1111, Data: 23/03/2018 08:00:00

Exemplo que pode ocorrer:
Chamado: 1111, Data: 23/03/2018 08:00:00
Chamado: 1112, Data: 23/03/2018 08:00:00
Chamado: 1111, Data: 23/03/2018 08:30:00
Chamado: 1112, Data: 23/03/2018 08:30:00


Mais agradeço pela sua resposta.

Boa noite,
Não utilize nomes reservados do Access (no caso, data)
Não entendi o que pretende
- quer utilizar a verificação antes de incluir registos, para não duplicar?
ou
- quer utilizar código na consulta para não aparecerregistos duplicados?

Bom dia, Alexandre Neves.

Quero fazer a verificação antes de incluir os registros para não duplicar.

Boa tarde,
Veja se funciona

Código:

Do While Not rsADO.EOF
     
              Set db = CurrentDb()
                  LocalSQL = "SELECT * FROM [TB_Dados] WHERE Chamado=" & rsADO!db_chamado & " and Criado_em=#" & Format(rsADO![Data-de-Criação], "dd/mm/yyyy hh:mm:ss") & "#"
                  Set sr = db.OpenRecordset(LocalSQL)
                    If sr.EOF Then
                      sr.AddNew
                  Else
                      If Format(sr!Criado_em, "dd/mm/yyyy hh:mm") = Format(rsADO("Data-de-Criação"), "dd/mm/yyyy hh:mm") Then  'Nessa linha verificar as informações "dd/mm/yyyy hh:mm" com a do servidor
                          sr.Edit      'Nessa linha informei se tiver com a mesma "dd/mm/yyyy hh:mm" iguais da tabela com servidor somente editar as informações
                      Else
                          sr.AddNew    'Nessa linha informei se tiver diferente da tabela com servidor para adicionar
                      End If
                  End If
                      sr!Chamado = "" & rsADO!Chamado
                      sr!Criado_em = "" & Format(rsADO![Data-de-Criação], "dd/mm/yyyy hh:mm:ss")
End If
                      sr.Update
              rsADO.MoveNext
              db.Close
              Set sr = Nothing
              Set db = Nothing
          Loop
       
      cn.Close
      Set rsADO = Nothing
      Set cn = Nothing
      Exit Sub
     
End Sub

Não deu certo , repetiu todos os bilhetes.

Boa noite,
Confira os registos, pois parece-me que tinha registos com 1 espaço no final, ou seja, aparentemente parecem iguais "abc" com "abc "
Reveja contando os duplicados

Bom dia Alexandre,


Foi confira os registos se tinha iguais "abc" com "abc ", porém não tinha.

Quando busco as informações do dia 01/04/2018 ao dia 03/04/2018 o mesmo busca as informações corretas, todavia quando busco novamente a do dia 01/04/2018 ao dia 03/04/2018 o mesmo duplica todos os registros que já tinha da primeira vez que tinha buscado.

Obs: É necessário buscar o mesmo dia somente quando o banco de dados ocorre erro por isso tenho que buscar o mesmo dia para não faltar nenhum registro, esse banco de dados não é fechado mesmo que a empresa feche e é atualizado de 30 e 30 minutos para não faltar nenhuma informação.


Obrigado por até aqui ter me ajudado.

Boa noite,
Disponibilize pequeno bd representativo da dúvida

Não tem como disponibilizar pois o arquivo é muito grande mais agradeço por ter me ajudado até aqui.

Boa tarde,
Se não pretende continuar com a dúvida, coloque como Resolvido

.