Usando Access

... Assinatura do site por 3 anos + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$182,00
(podendo parcelar em até 10 vezes no cartão de crédito)...

Clique aqui e obtenha mais detalhes do nosso kit completo e de como comprar.

Ordenar valores numéricos, por linha, em uma consulta

Antes de iniciar a sua leitura, clique aqui e cadastre-se para receber comunicados sobre novos artigos.

Usuário José:

Bom noite.

Observe na imagem, que tenho a tabela tblNotas.  Desejo criar uma consulta que me retorne os valores ordenados, conforme a tabela tblNotas1 da imagem.

Suporte:

José, segue o arquivo exemplo.

Utilizei a seguinte função, para ordenar os valores numéricos:

Public Function fncOrdenar(Prova, pos) As Integer
Dim i%, j%, uB%, Temp, temp2, k
k = Split(Prova, ",")
uB = UBound(k)
For i = LBound(k) To uB - 1
    For j = i + 1 To uB
        If Val(k(i)) > Val(k(j)) Then
            Temp = k(j)
            k(j) = k(i)
            k(i) = Temp
        End If
    Next j
Next i
fncOrdenar = k(pos)
End Function

Na consulta utilizei a função da seguinte forma:

x: fncOrdenar([c1] & "," & [c2] & "," & [c3] & "," & [c4] & "," & [c5];0)

Usuário José:

Atendeu perfeitamente!

Download

ordenarNotas.zip

| Home | Vídeos-aulas | Tutoriais | Dicas | Blog | Downloads | Contato | Artigo |