Ordenar valores numéricos, por linha, em uma consulta
Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 5x no Cartão de Crédito.
Veja como comprar e saiba mais sobre o material oferecido, clicando aqui.
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
Não há comentário |