[Resolvido]Ordenar por diversos campos.

O que é que pode ser usado para ordenar clicando num nome de campo ou botão num formulário contínuo?

Estou a pensar no exemplo de um site ..., que ordena se clicar num dos campos: Nome | Data | Nota  | Licença |  Downloads

Os meus campos num formulário contínuo são: Nome | Fração | Meses | Recibos | Seguro  |

Ao clicar num deles, como ordená-los?

Já experimentei macro "DefinirClassificadoPor" mas não aceita. Parece que só funciona se tiver um sub-formulário - este não tem.

Erro:
"A ação AplicarOrdemPor necessita de um nome de controlo válido que corresponda ao subformulário ou sub-relatório."

Não queria ordenar com uma caixa, mas sim algo por cima de cada campo.

É possível?

Olá...

Tente no envento ao clicar do botão ou no campo

Me.Form.OrderBy = "[NomeDoCampo] ASC" 'Para ordem crescente ou troque ASC por Desc para ordem decrecente
Me.Form.OrderByOn = True

Para ordenar por mais campos sepere por virgulas dentro do parenteses Ex:
[Campo1, campo2]

espero que ajude

Abraços

Obrigado Celso Roberto.

Ficou 5 estrelas!

Adaptei assim:

Código:

Private Sub btMesesAsc_Click()
'codigo de maximoaccess.celsoroberto
Me.Form.OrderBy = "[Meses] ASC" 'ASC - Para ordem crescente...
Me.Form.OrderByOn = True
End Sub

Private Sub btMesesDesc_Click()
'codigo de maximoaccess.celsoroberto
Me.Form.OrderBy = "[Meses] DESC" '...Desc - Para ordem decrescente
Me.Form.OrderByOn = True
End Sub

Em cada botão:
Legenda; 6         ('no 2º botão, valor: 5)
Nome do tipo de letra; Webdings

Olá..

Perfeito..

O Fórum agradece seu retorno

Abraços