MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Ordenar ListBox

    Compartilhe
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Ordenar ListBox

    Mensagem  Assis em Sab 12 Maio 2018, 13:01

    Boa tarde Amigos

    Tenho uma ListBox que lista documentos PDF que se encontram numa pasta com o Nome "PDF"

    Eis o código que carrega a LisBox.

    Pergunto como ordenar a ListBox "Ver imagem" do Nº 1 em diante.

    Obrigado

    Código:
    Private Sub Form_Open(Cancel As Integer)
    Dim strArquivo As String
    Dim strcaminho As String

    Me.KeyPreview = True

       Me!Lista0.RowSource = ""
       strcaminho = CurrentProject.path & "\PDF\"
       strArquivo = Dir$(strcaminho & "*.pdf")
       Do While Len(strArquivo) > 0
           Me.Lista0.AddItem strArquivo
           strArquivo = Dir$()
       Loop
    End Sub


    [Você precisa estar registrado e conectado para ver esta imagem.]


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    Re: [Resolvido]Ordenar ListBox

    Mensagem  Assis em Dom 13 Maio 2018, 12:46

    Up


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    Re: [Resolvido]Ordenar ListBox

    Mensagem  Assis em Seg 14 Maio 2018, 23:33

    Boa noite

    Up


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

    Kaynan
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2329
    Registrado : 09/04/2012

    Re: [Resolvido]Ordenar ListBox

    Mensagem  Kaynan em Seg 14 Maio 2018, 23:42

    Ola Assis postando o exemplo fica mais facil ajuda-lo.
    Abc.
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    Re: [Resolvido]Ordenar ListBox

    Mensagem  Assis em Ter 15 Maio 2018, 10:13

    Bom dia Amigos

    Segue o exemplo de ListBox que lista documentos PDF

    Obrigado
    Anexos
    Requisições.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (915 Kb) Baixado 13 vez(es)


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    marceloarboit
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 140
    Registrado : 09/07/2015

    Re: [Resolvido]Ordenar ListBox

    Mensagem  marceloarboit em Ter 15 Maio 2018, 10:56

    Bom dia, professor!!

    Tem algum problema deixar o número da requisição com "01" ao invés de "1"?

    Apenas acrescentando o 0 (zero) na frente do numeral, a listbox já ordena da maneira correta.

    [Você precisa estar registrado e conectado para ver esta imagem.][/url]

    Espero ter ajudado!

    Abs.,
    Marcelo.
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    Re: [Resolvido]Ordenar ListBox

    Mensagem  Assis em Ter 15 Maio 2018, 11:49

    Obrigado Marcelo

    Ajudou e muito.

    Mas acho que ainda vai aparecer um " Fera " que vai ordenar ascendentes e descendente.




    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    Re: [Resolvido]Ordenar ListBox

    Mensagem  Assis em Sex 18 Maio 2018, 22:24

    Boa noite

    Como não tive resposta para a Msg Nº 7 vou fechar o tópico

    Obrigado


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

      Data/hora atual: Qua 23 Maio 2018, 02:10