[Resolvido]Como Ordenar descendente esta caixa de listagem ?

Boa tarde Amigos



Este é o código de a carregar


Private Sub fncCarregaLista(Optional strNome As String)

   Dim strArquivo As String
   Dim strCaminho As String

   Me!Lista0.RowSource = ""
 
  strCaminho = Application.CurrentProject.Path & "\PDF\"
 
   strArquivo = Dir$(strCaminho & "*.pdf")
   
   Do While Len(strArquivo) > 0
   
       If IsMissing(strNome) Then
           Me.Lista0.AddItem strArquivo
       ElseIf InStr(strArquivo, strNome) Then
           Me.Lista0.AddItem strArquivo
       End If
       
       strArquivo = Dir$()
       
   Loop

End Sub

Obrigado

Olá Assis,

O ideal seria ter os ficheiros PDF no seguinte formato aaaa-mm-dd assim já ficava ordenado.
Pelo que apresenta vai ter que capturar a data para uma coluna oculta da lista tipo data e assim já pode ordenar, só testando fica a sugestão.
Outra solução seria ao abrir o form passar para uma tabela temporaria o nome do ficheiro como já tem e outra coluna apenas com data (capturada) e assim também já consegue ordenação.

Abraço

Olá Teixeira

Até resulta, mas queria os mais recente em cima . Terá como ?

Obrigado

Olá Assis,

Coloque ordenação descendente no campo Lista0
Depois do loop, será fazer um requery.
Abraço

Teixeira

Colocar ordenação descendente no campo Lista0 ---> não estou a ver como ?

Lista0 --> é o come da caixa de listagem, não é campo

Obrigado

Boa tarde
1-criar array e preencher nomes dos ficheiros
2-ordenar array
3-passar array para caixa de listagem

Alexandre Neves

Os nomes dos ficheiro já são preenchidos na caixa de listagem com o código que está na primeira mensagem.

Acontece que não "ordena"

Obrigado

Eu sei, Assis, mas devias ordenar antes de carregar a lista
Tenta assim:

Código:


Sub CarregaListaAssis(Optional strNome As String)
    '--------------------------------------------------------------'
    '  código criado por Alexandre Neves, do Fórum MaximoAccess  '
    '    utilize o código livremente mas mantenha os créditos    '
    '--------------------------------------------------------------'
    Dim strArquivo As String, strCaminho As String, arrLista() As String, I As Integer, Trocou As Boolean, ValProvisorio

    Me!Lista0.RowSource = ""
    strCaminho = Application.CurrentProject.Path & "\PDF\"
    strArquivo = Dir$(strCaminho & "*.pdf")
    Do While Len(strArquivo) > 0
        If IsMissing(strNome) Then
            I = I + 1
            ReDim Preserve arrLista(0 To I)
            arrLista(I) = strArquivo
        ElseIf InStr(strArquivo, strNome) Then
            I = I + 1
            ReDim Preserve arrLista(0 To I)
            arrLista(I) = strArquivo
        End If
        strArquivo = Dir$()
    Loop
 
    If I = 0 Then Exit Sub
Ordenar:
    Trocou = False
    For I = 2 To UBound(arrLista)
        If Mid(arrLista(I - 1), 7, 10) < Mid(arrLista(I), 7, 10) Then
            Trocou = True
            ValProvisorio = arrLista(I)
            arrLista(I) = arrLista(I - 1)
            arrLista(I - 1) = ValProvisorio
        End If
    Next
    If Trocou Then GoTo Ordenar
    For I = 1 To UBound(arrLista)
        Me.Lista0.AddItem arrLista(I)
    Next
End Sub


Alexandre

Ordena do mais antigo para o mais recente. E eu queria o contrário.

Obrigado

Bom dia, Assis
Alterei para ordenar ao contrário

Boa tarde Alexandre

Alterou na mensagem Nº 8 ?

Se sim continua igual :

Obrigado

Já alterei outra vez (não tinha testado, mas agora testei)

Perfeito Alexandre

Bom fim de semana

Obrigado(s)