Recuperar último registro de um determinado funcionário

Prezados, tenho a seguinte dúvida.

Tenho duas tabelas/formulários TABELA(CAMPOS):
FUNCIONARIOS(ID,FUNCIONARIO,ADMISSAO,DEMISSAO)
> 1,JOSE,01/01/2012,
> 22,MARIA,01/01/2012,29/02/2012

MOVIMENTO(ID,FUNCIONARIO,DATA,VALOR)
> 1,JOSE,31/01/2012,2500
> 2,MARIA,31/01/2012,2500
> 3,JOSE,29/02/2012,1000
> 4,MARIA,29/02/2012,2000

Agora vem a questão:
Quando eu for inserir um novo registro no fomulário, ao selecionar o funcionário na listbox, quero que seja preenchido automaticamente o campo VALOR com o valor constante na data mais recente deste funcionario selecionado.

Exemplo:
Quando eu selecionar o JOSE, ele vai preencher automaticamente o campo VALOR com 1000

Ola Netodaluz,

Já tentou criar uma consulta agrupamento e colocar a linha total com critério Máx na data, isso criando pelo modo assistente
Por SQL apenas com o campo data da tabela moviemneto, seria algo do tipo: "SELECT Max(movimento.data) AS MáxDeData FROM movimento;"

boas
poderá fazer assim:

valorListBox = "select Top 1 data FROM movimento ORDER BY data DESC"

cumps
acao

1º - Faça uma consulta somente com os campos "códigoAutoNumeração" e "valor"!
2° - Na propriedade da consulta no evento valores principais" defina como "1".
3° - No "códigoAutoNumeração" defina como decrescente.
4° - Coloque o nome da consulta criada exemplo: "ConsultaRetorno".

Quando voce abre o seu formulário, qual o nome do campo que é dirigido o primeiro foco?

5° - Coloque na propriedade no evento ao entrar desse campo que recebe o primeiro foco:
Me.Valor = DLast("[Valor ]", "ConsultaRetorno").

Quando você abrir o formulário que o foco for dirido para o determinado campo,
ele executará a consulta e disparará o código e retornará o ultimo registro.

Melhor seria ao entrar no campo "valor" para retornar os dados.
Caso não consiga poste o "BD" que te ajudaremos.

Tenho a seguinte tabela:


Quando eu selecionar o funcionario "JOSE", quero que apareca o valor mais recente do "JOSE". Neste caso, "3000". Conforme, montagem:


*DETALHE: Não quero que ele pesquise o último registro baseado na ID (auto numeração). Quero que ele pesquise pela última data.

Segue cópia do DB parar verificação.

Grato.

boas
em vba será assim:
sql = "SELECT *from movimento where funcionario = '" & textboxNomeJose.text & "' ORDER BY Data DESC"

para ter apenas 1 registo
sql = "SELECT Top 1 *from movimento where funcionario = '" & textboxNomeJose.text & "' ORDER BY Data DESC"

testado em acces 2010

cumps
acao