... 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

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.

Consulta ordenada

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

 


 

 


Não há comentário

Envie seu comentário: