[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

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

Alexandre

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

Obrigado

Boa tarde Alexandre

Alterou na mensagem Nº 8 ?

Se sim continua igual :

Obrigado

Perfeito Alexandre

Bom fim de semana

Obrigado(s)