[Resolvido]Passar valores de uma ListBox para uma String sem duplicados

Boa tarde a todos,

Venho mais uma vez pedir a vossa ajuda.

Uso o código abaixo para pegar os valores de uma ListBox e passar para uma String separdos por ";".

Código:

Dim i As Integer, S As String

If Me.MinhaListBox.ListCount > 0 Then
    
    With Me.MinhaListBox
        For i = 0 To .ListCount - 1
            S = S & .ItemData(i) & "; "
        Next
    End With
          
    S = Left(S, Len(S) - 2)
    
    Me.txtBox = S
    
Else

Me.txtBox = ""

End If

O que eu pretendo é que no caso de haverem items repetidos na ListBox, os mesmos fossem ignorados.

Obrigado

Olá Carlos,

Não pode fazer uma consulta agrupar, nem que seja oculta da ListBox?
Será que não resolvia?
Tente montar pequeno exemplo para se compreender e testar a dúvida.

Abraço

Obrigado ahteixeira pelo retorno,

O agrupar, assim como o SELECT DISTINCT não resolvem. A linha da ListBos resulta de uma consulta com 2 tabelas relacionadas de "1 para Todos", em que lista os dados da tabela "1", mas os critérios estão na tabela "Todos".

Olá Carlos,

Consegue montar um pequeno exemplo para se testar?

Abraço

Obrigado ahteixeira pelo retorno,

Acabei por seguir uma nova abordagem com algumas reformulações. Fiz duas consulta em cascata, e na segunda já consegui agrupar.

Outra forma de resolver seria pegar na String e retirar os duplicados

Código:

Function DeDupeString(ByVal sInput As String, Optional ByVal sDelimiter As String = "; ") As String '<---- Escolher Aqui o Delimitador

    Dim varSection As Variant
    Dim sTemp As String

    For Each varSection In Split(sInput, sDelimiter)
        If InStr(1, sDelimiter & sTemp & sDelimiter, sDelimiter & varSection & sDelimiter, vbTextCompare) = 0 Then
            sTemp = sTemp & sDelimiter & varSection
        End If
    Next varSection

    DeDupeString = Mid(sTemp, Len(sDelimiter) + 1)

End Function

Obrigado

Olá Carlos,

Que bom que resolveu, obrigado pelo feedback.

Abraço