MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]Como Ordenar descendente esta caixa de listagem ?

    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Como Ordenar descendente esta caixa de listagem ? Empty [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
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Como Ordenar descendente esta caixa de listagem ? Empty 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
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Como Ordenar descendente esta caixa de listagem ? Empty 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


    .................................................................................
    *** Só sei que nada sei ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Como Ordenar descendente esta caixa de listagem ? Empty 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
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Como Ordenar descendente esta caixa de listagem ? Empty 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
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Como Ordenar descendente esta caixa de listagem ? Empty 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
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Como Ordenar descendente esta caixa de listagem ? Empty 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
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Como Ordenar descendente esta caixa de listagem ? Empty 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
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Como Ordenar descendente esta caixa de listagem ? Empty 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
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Como Ordenar descendente esta caixa de listagem ? Empty 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
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Como Ordenar descendente esta caixa de listagem ? Empty 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
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Como Ordenar descendente esta caixa de listagem ? Empty 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
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Assis 27/3/2021, 14:26

    Perfeito Alexandre

    Bom fim de semana

    Obrigado(s)


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

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 17/5/2021, 14:03