[Resolvido]Como Ordenar descendente esta caixa de listagem ?

Assis 25/3/2021, 17:08

Assis

Assis: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 4445
Registrado : 06/11/2009

Mensagem nº1

[Resolvido]Como Ordenar descendente esta caixa de listagem ?

Mensagem Assis 25/3/2021, 17:08

Boa tarde Amigos

[Resolvido]Como Ordenar descendente esta caixa de listagem ? Sem_t197

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

.................................................................................
*** Só sei que nada sei ***

**ahteixeira** 26/3/2021, 13:22

ahteixeira

ahteixeira: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 7223
Registrado : 15/03/2013

Mensagem nº2

Re: [Resolvido]Como Ordenar descendente esta caixa de listagem ?

Mensagem ahteixeira 26/3/2021, 13:22

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

Assis 26/3/2021, 14:03

Assis

Assis: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 4445
Registrado : 06/11/2009

Mensagem nº3

Re: [Resolvido]Como Ordenar descendente esta caixa de listagem ?

Mensagem Assis 26/3/2021, 14:03

Olá Teixeira

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

Obrigado

[Resolvido]Como Ordenar descendente esta caixa de listagem ? Sem_t198

[Resolvido]Como Ordenar descendente esta caixa de listagem ? Sem_t198

.................................................................................
*** Só sei que nada sei ***

**ahteixeira** 26/3/2021, 15:22

ahteixeira

ahteixeira: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 7223
Registrado : 15/03/2013

Mensagem nº4

Re: [Resolvido]Como Ordenar descendente esta caixa de listagem ?

Mensagem ahteixeira 26/3/2021, 15:22

Olá Assis,

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

Assis 26/3/2021, 17:49

Assis

Assis: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 4445
Registrado : 06/11/2009

Mensagem nº5

Re: [Resolvido]Como Ordenar descendente esta caixa de listagem ?

Mensagem Assis 26/3/2021, 17:49

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

.................................................................................
*** Só sei que nada sei ***

**Alexandre Neves** 26/3/2021, 18:36

Alexandre Neves

Alexandre Neves: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 7950
Registrado : 05/11/2009

Mensagem nº6

Re: [Resolvido]Como Ordenar descendente esta caixa de listagem ?

Mensagem Alexandre Neves 26/3/2021, 18:36

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

.................................................................................
Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

Assis 26/3/2021, 18:42

Assis

Assis: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 4445
Registrado : 06/11/2009

Mensagem nº7

Re: [Resolvido]Como Ordenar descendente esta caixa de listagem ?

Mensagem Assis 26/3/2021, 18:42

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

.................................................................................
*** Só sei que nada sei ***

**Alexandre Neves** 26/3/2021, 19:48

Alexandre Neves

Alexandre Neves: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 7950
Registrado : 05/11/2009

Mensagem nº8

Re: [Resolvido]Como Ordenar descendente esta caixa de listagem ?

Mensagem Alexandre Neves 26/3/2021, 19:48

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

Última edição por Alexandre Neves em 27/3/2021, 14:15, editado 2 vez(es)

.................................................................................
Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

Assis 27/3/2021, 10:02

Assis

Assis: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 4445
Registrado : 06/11/2009

Mensagem nº9

Re: [Resolvido]Como Ordenar descendente esta caixa de listagem ?

Mensagem Assis 27/3/2021, 10:02

Alexandre

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

Obrigado

.................................................................................
*** Só sei que nada sei ***

**Alexandre Neves** 27/3/2021, 10:24

Alexandre Neves

Alexandre Neves: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 7950
Registrado : 05/11/2009

Mensagem nº10

Re: [Resolvido]Como Ordenar descendente esta caixa de listagem ?

Mensagem Alexandre Neves 27/3/2021, 10:24

Bom dia, Assis
Alterei para ordenar ao contrário

.................................................................................
Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

Assis 27/3/2021, 13:11

Assis

Assis: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 4445
Registrado : 06/11/2009

Mensagem nº11

Re: [Resolvido]Como Ordenar descendente esta caixa de listagem ?

Mensagem Assis 27/3/2021, 13:11

Boa tarde Alexandre

Alterou na mensagem Nº 8 ?

Se sim continua igual :

Obrigado

.................................................................................
*** Só sei que nada sei ***

**Alexandre Neves** 27/3/2021, 14:16

Alexandre Neves

Alexandre Neves: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 7950
Registrado : 05/11/2009

Mensagem nº12

Re: [Resolvido]Como Ordenar descendente esta caixa de listagem ?

Mensagem Alexandre Neves 27/3/2021, 14:16

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

.................................................................................
Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo