[Resolvido]Ordenar caixa de listagem

Boa tarde

Tenho um formulário de uma BD onde os registos são apresentados no próprio formulário através de uma listbox.

Para facilitar a visualização pretendo que os registos sejam ordenados por data, independentemente da ordem com que são inseridos no formulário.

Não serve a consulta, pois pretendo clicar 2 x no registo para o editar.

Alguma ideia?

Estou a usar o Access 2013

ola Maria bem vinda ao forum.
Queres mostrar os dados de uma tabela numa listbox por data, certo?

na origem dos dados poes:

select * from TuaTabela order by Data

deves ter um formulario onde apresenta os registos, certo?

na listbox ao clicar 2 x poes:

docmd.openform("nomedoformulario")

no formulario dos registos:

o campo1 da tabela, na listbox conresponde a coluna 0 e por ai adiante, entendes?.



Abraço

Bom dia Oscar

a parte da ordenação está ok.

A parte da edição do registo não consegui, provavelmente estou a colocar a indicação no sitio errado:

Private Sub Lista88_DblClick(Cancel As Integer)
DoCmd.OpenForm ("registo")
End Sub

O que eu pretendo mesmo é que ao fazer dois clicks na linha da listbox esses dados apareçam nos campos correspondentes do formulário (o formulário já está aberto para poder seleccionar o registo que quero)

ola bom dia Maria tens email para que possa enviar exemplo?

Não estou a conseguir publicar aqui o exemplo.

Abraço

ceilao2005@gmail.com

mail enviado

Obrigada

Não fiz exactamente igual, mas vi o que pretendias fazer e consegui adaptar à minha base de dados

Ainda bem e foi esse o objectivo.
Nao te esquecas de por o topico como resolvido.

Abraco

e como se faz?

https://www.maximoaccess.com/t860-resolucao-de-topicos

UP

Boa tarde,

Não vou poder concluir o tópico porque abre sempre o primeiro registo.

fazes responder e clicas em resolvido conforme

https://www.maximoaccess.com/t860-resolucao-de-topicos

Não, a solução que me deste faz com que ao clicar abra sempre o primeiro registo da Listbox

conforme link é bem explicito.
Tens de clicar em resolvido no botão a seguir ao campo de Modificar o título do tópico.

Private Sub Lista10_DblClick(Cancel As Integer)
On Error Resume Next
Dim stDocName As String
Dim stLinkCriteria As String
Dim strsql As String
stDocName = "Form_sinistros"
stLinkCriteria = "[ID1]=" & Me![Lista10]
strsql = "SELECT * FROM sinistros WHERE " & stLinkCriteria
DoCmd.OpenForm stDocName, acNormal, , , , acHidden
Forms!Form_sinistros.RecordSource = strsql
DoCmd.OpenForm stDocName, acNormal, , , , acWindowNormal

End Sub