Ordenar valores numéricos, por linha, em uma consulta
Adquira a assinatura vitalícia do site e passe a ter acesso aos arquivos exemplos, vídeos, revistas, livros e ao kit de montagem de ribbons. Você terá suporte por e-mail, caso necessite tirar dúvidas pontuais. Clique AQUI e veja como obter um dos nossos planos. Clique AQUI e faça uma visita a seção Downloads do site e verifique as centenas de arquivos que estará à sua disposição. Clique AQUI e faça uma visita a seção Vídeos do site e veja a lista que estará disponível ao se tornar o nosso assinante vitalício. Clique AQUI e saiba mais detalhes sobre o kit de montagem de ribbons (deixe seus aplicativos com aspecto profissional).
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 |