[Resolvido] Extrair valor de Lista de Combinação e Organizar por Ordem de Data.

Olá Agradeço ao Amigo que me ajudou, ficou perfeito, porem dei uma pincelada no Form.

e acrescentei mais 3 colunas na lista de combinação

ficando assim:

CLIENTE | CIDADE | ESTADO | DATA

ao selecionar o cliente na combinação dá erro no código ao tentar localizar o registro ele está extraindo é o estado.

como organizo essas por data.

Codigo:

Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[IDContato] = " & Str(Nz(Me![Combinação25], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark

Banco de dados em anexo.

Muito atenciosamente,

Você necessita especificar a coluna 0 de sua combo, pois ela que tem o campo para filtro

' Encontrar o registro que coincide com o controle.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[IDContato]=" & Str(Nz(Me![Combinação25].Column(0), 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark

Obrigadooo!!! Perfeito