[Resolvido]Dados a mostrar em caixa de listagem

Bom dia amigos

Por exemplo ter uma caixa de listagem alimentada por uma tabela que tem + de 50 registos.

A caixa de listagem só tem altura para apresentar 10 (dez)

Queria que ao ser aberta o foco fosse para o última linha da Cx  para mostrar os últimos dez.

Mas tinha a botão lateral de rolagem para subir e descer para poder ver os outros registos

Obrigado

Bom dia Assis.....A seleção já chegou aqui, esta em Campinas.....

Bom vamos lá, algo parecido com isso....

Me.sualista.Requery
Me.sualista.Selected(0) = True
Me.RecordsetClone.Findlast"chaveprimaria= " & Me.sualista.ListIndex
Me.Bookmark = Me.RecordsetClone.Bookmark

Obs. não testei.

Bom dia Silvio

Dá erro na linha vermelha
Me.sualista.Requery
Me.sualista.Selected(0) = True
Me.RecordsetClone.Findlast"chaveprimaria= " & Me.sualista.ListIndex
Me.Bookmark = Me.RecordsetClone.Bookmark


Eu gosto de futebol mas quando a minha seleção tem jogadores de outros paises, deixa de ser a minha seleção.
A continuar assim o Brasil, mesmo que não ganhe .... ganha, pois tem jogadores em todas as seleções.

Só ... S. L. Benfica.

Abraço

Obrigado Avelino

Mas a ordem tem de ser Crescente.

Obrigado

O JPaulo fez esta função mas para formulário continuo, que abre o form nos ultimos dez registos

Dim IntPosicao As Long
Me.SeuSubForm.SetFocus
DoCmd.GoToRecord , , acLast

IntPosicao = Forms!SeuForm!SeuSubForm.Form.CurrentRecord
IntPosicao = IntPosicao - 10
DoCmd.GoToRecord acActiveDataObject, , acGoTo, IntPosicao

Assis


Experimente:



Me.Lista2.Selected(Me.Lista2.ListCount -11) = True

É 11 porque lembre-se a contagem começa em 0.

Abraços

Noob

Assis, que tipo de erro foi-lhe reportado ( na linha vermelha ) ?

Boa tarde

Noobezinho - em que acontecimento ?

Silvio - A cx de listagem não tem o campo chaveprimaria pois e alimentada por uma consulta que também não tem

Obrigado

Assis

Pode ser no evento Ao Abrir do formulário.

Não esqueça de mudar o nome da caixa de listagem no código

Noob

Noobezinho

Funfa assim para a última linha

Me.Lista2.Selected(Me.Lista2.ListCount -1) = True

Obrigado

Ótimo Assis

Entendi que queria no últimos 10 registros.

Mas o que importa é que funfou   

Boa sorte

Noob