[Resolvido]Classificar pelo conteúdo de uma caixa de combinação

olá,

estou tentando classificar pelo conteúdo de uma caixa de combinação de um formulário no evento "ao abrir" utilizando o seguinte código:

Me.OrderBy = "NomeDocampo"
Me.OrderByOn = True

o problema é que a classificação está ocorrendo pelo código da tabela de itens da caixa de combinação e não pelo conteúdo que aparece no form...
já tentei fazer assim:

Me.OrderBy = "Me.NomeDocampo.Value"
Me.OrderByOn = True

em princípio funcionou, só que abre uma caixa de diálogo chata escrito "2" e tenho que clicar em "ok" para o form abrir...

alguém tem uma solução?

att
Leandro

P.S. - Access 2003

Ké isso rapaz...............

Código:

Me.OrderBy = Me.NomeDocampo.Value
Me.OrderByOn = True

E se a combo tiver mais de uma coluna, é só escollher a coluna sabendo que começa por zero (0);

Código:

Me.OrderBy = Me.NomeDocampo.Column(1)
Me.OrderByOn = True

E faça isso sempre no evento ao carregar do form, não no abrir, porque no abrir ainda não tem dados;

Código:

Private Sub Form_Load()

JPaulo,

tenho a impressão de que é isso mesmo, porém, ao alterar o código como você sugeriu, não funcionou...
Parece que o código que eu apaguei continua prevalecendo... pois as caixas de diálogo que solicitam a inserção de parâmetros continuam aparecendo. pode isso?
já percebi isso em outras situações...

leandro

Ola;

Quero ver toda a sua instrução de código.

Ou anexe aqui parte do seu banco.

segue abaixo. perceba que eu até já tirei o código para classificar os dados e mesmo assim aparece a caixa de diáologo para informar parâmetros...

Option Compare Database

Private Sub FASE_Change()
Me.Carimbo.Value = "Alterado em " & Now() & " por " & fOSUserName()
End Sub

Private Sub PRAZO_Change()
Me.Carimbo.Value = "Alterado em " & Now() & " por " & fOSUserName()
End Sub

Private Sub PROCESSO_Change()
Me.Carimbo.Value = "Alterado em " & Now() & " por " & fOSUserName()
End Sub

Private Sub SITUACAO_Change()
Me.Carimbo.Value = "Alterado em " & Now() & " por " & fOSUserName()
End Sub

Não estou a entender mais nada mesmo.

Começá-mos o tópico com OrderBy e agora está a falar de outra coisa.

então vamos lá:

1º eu fiz o código acima para registrar as alterações efetuadas nos registrso do subformulario.

depois, eu quis classificar esses registros e vc passou o teu código.
após isso, ao abrir o form, o access abre uma caixa de diálogo pedindo para inserir parâmetros... ???

então, eu apaguei o seu código (ficou somente aquilo que inseri antes), porém a caixa de diálogo continua aparecendo... e continuo sem classificar os dados

isso está no evento "ao abrir" do form


ups sorry, nada a ver esse comentário...

Quando um form pede para inserir parametros, é porque algo está mal em alguma consulta que alimenta o form.

Quer anexar aqui parte do seu banco ?

infelizmente nao posso, tem alguma dica?

isso começou quando inserir aquele meu código da primeira postagem...

E você fez como lhe disse ? Ao carregar do form, em vez de ao Abrir porque ainda não tem registos ?

Form_Load()

Veja nas propriedade do form, se o orderby tem algo lá escrito.

Normalmente não se dá um OrderBy de um valor, sem saber qual o campo a ordernar.

O correto seria;

Código:

Private Sub Form_Load()
    Me.OrderBy = "[CampoDoForm]=" & Me.SeuCampo.Value
    Me.OrderByOn = True
End Sub

É resolvido o problema da caixa de mensagem... tinha um número no orderby, porém, quando coloco o seu código no "ao carregar" a caixa volta...

Ler mensagem Nº 13.

Olha só, do nada coloquei:

Private Sub Form_Load()
Me.OrderBy = "NomeDoMeuCampo"
Me.OrderByOn = True
End Sub

e funcionou...


vai entender!

valeu JPaulo, mais uma vez agradeço pelo se empenho. até mais!!!

Jura que funcionou ?

Fico feliz e triste ao mesmo tempo e mais tarde você vai entender o porquê.