MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

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)
    avatar
    daniloreiis
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 329
    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
    -------------------------------------------------------------------------------------------------------------------------------------------------

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

      Data/hora atual: Sex 18 Ago 2017, 02:10