[Resolvido]Valor em Ordem

Boa noite
Amigos uma ajuda, tenho um Formulário que me dá uma ordem por valor com este código:

Private Sub fncRemontaOrdem()
Dim rs As DAO.Recordset, strSql As String, k As Long
strSql = "SELECT * FROM Tabela1 ORDER BY Valor;"
Set rs = CurrentDb.OpenRecordset(strSql)
Do While Not rs.EOF
k = k + 1
rs.Edit
rs!Ordem = k
rs.Update
rs.MoveNext

Loop
rs.Close
Set rs = Nothing
Me.Repaint
End Sub

60 = 6 em vez de 6 seria 1
55 = 5 em vez de 5 seria 2
40 = 4 em vez de 4 seria 3
38 = 3 em vez de 3 seria 4
25 = 2 em vez de 2 seria 5
20 = 1 em vez de 1 seria 6

Grato
Boiça

Olá, bem vindo ao fórum.
Experimente colocar a ordenação descendente na instrução Sql.
Abraço

Boa Noite Teixeira
Já fiz tanto no Valor como na Ordem ou Data dá-me sempre a Ordem menor para Valor menor, o que se pretendia era de maior para menor
Obrigado
Boiça

Ola, pode postar base de dados com tabela de exemplo para podermos testar.

Viva Teixeira
Penso que é o mudulo porque já fiz a ordem em data
Boiça

Não foi

Ola, estou no telemóvel, mas acho que se ja tem a funcionar apenas na instrução sql deve colocar ordenaçao descendente.
... DESC
amanha verifico, Abraço

Olá, alterando a instrução Sqlconforme abaixo, resolves o problema:
strSql = "SELECT * FROM Tabela1 ORDER BY Tabela1.Valor DESC;"
Anexo também o meu teste.
Abraço

Boa noite Teixeira
Era mesmo isso obrigado
Já trabalhava com aquele modulo Ascendente e agora descendente ficou prefeito
Boiça

Boa tarde!

Boiça você é o dono deste sistema cujo nome:

VendaOO


Gostaria de falar com você, ou com alguém que conheça o Boiça.


Atenciosamente,

Ademilson Santos.

Ademilson,

Acho que o projecto é do Mestre Plínio Mabesi.
Www.mabesi.com

Verifique também aqui:
http://www.usandoaccess.com.br/tutoriais/classe-no-access-venda.asp?id=1

No entanto deve ter mais atenção, este post já está resolvido e a questão não tem nada haver com o tópico.
Para contatar qualquer utilizador do fórum pode enviar uma MP (mensagem privada).

Abraço

Não encontrei o altor do programa, e gostaria muito de agradecer pela correção da minha falha ao utilizar o fórum.

Aproveito para parabenizar o mestre Plínio Mabesi pela obra prima de por ter disponibilizado o programa para download.
Excelente trabalho nota 10.


Atenciosamente;

Ademilson Santos

Olá de novo,
Confirme se é este o programa http://www.mabesi.com/artigos/aplicativos-office/access/25-classes-finalizacao-sistema.html

O link anterior faz parte de um conjunto de 10 artigos.
Veja a introdução (que tem o link dos 10 artigos) http://www.mabesi.com/artigos/aplicativos-office/access/35-classes-introducao.html

Excelente exemplo, muito bem detalhado, parabéns mestre Plínio Mabesi.
Nunca é de mais, um muito obrigado pela dedicação.
Abraço

Olá Ademilson, como ficou a situação?
Os utilizadores do fórum agradecem o retorno.
Abraço