MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Retirar valores duplicados da string

    Compartilhe

    guto_coimbra
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 8
    Registrado : 19/02/2013

    Retirar valores duplicados da string

    Mensagem  guto_coimbra em Ter 24 Jun 2014, 15:36

    Pessoal,

    Desenvolvi o código abaixo no intuito de "varrer" o banco e ir identificando o número da NF quando atendesse ao critério.

    Set Rst = CurrentDb.OpenRecordset("SELECT str(IncNº_NF)+'-'+str(sSérie) FROM TAB_MOVIMENTAÇÃO_CENTROS_FILTRO_PB WHERE Nº_Doc_Material = " & intMAT)

    Do While Not Rst.EOF
    ListaDoc_2 = Replace(Rst(0), " ", "") & ", " & Trim(ListaDoc_2)
    Rst.MoveNext
    Loop


    Acontece que na tabela acima tenho valores repetidos e por este motivo me retornam o número da msm NF duas vezes.
    Ficando a variável desta forma (exemplo): ListaDoc_2 = 101, 102, 102

    Gosteria de saber como retirar essa duplicidade da variável, ao final da varredura. (ListaDoc_2 = 101, 102)

    daniloreiis
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 315
    Registrado : 14/02/2011

    Re: Retirar valores duplicados da string

    Mensagem  daniloreiis em Ter 24 Jun 2014, 15:45

    Olá bom dia!

    tente colocar um group by

    assim:

    Código:

    SELECT str(IncNº_NF)+'-'+str(sSérie) FROM TAB_MOVIMENTAÇÃO_CENTROS_FILTRO_PB WHERE Nº_Doc_Material = " & intMAT
    GROUP BY str(IncNº_NF)+'-'+str(sSérie)


    Acho que resolve.


    .................................................................................
    Att, Danilo Reis
    -------------------------------------------------------------------------------------------------------------------------------------------------
    [Você precisa estar registrado e conectado para ver este link.]

    Se alguém não quiser trabalhar, não coma também.
    2 Tessalonicenses 3:10

      Data/hora atual: Sab 10 Dez 2016, 04:53