[Resolvido]Procurar último valor em tabela e preencher campo

Bom dia, sou um aprendiz de access e recorro novamente ao fórum em busca de ajuda para o seguinte:

Tenho um subform "frmSubCorrespondenciaHistorico" ( dentro do form "frmCorrespondenciaEntradaEditar") e está vinculado à uma tabela "Correspondencia_Historico".

Esta tabela contem um campo "ID" que é chave e um campo "ID_Correspondencia" que está relacionada com a tabela "Correspondencia".

No form "frmCorrespondenciaEntradaEditar" tenho um campo que se chama "Responsável_Entrada" que queria que fosse preenchido automaticamente depois de:

1) procurar o último registo na tabela "Correspondencia_Historico" em que o campo "ID" do "frmCorrespondenciaEntradaEditar" e igual a "ID_Correspondencia". Então copiar o valor do campo "Destinatario_Correspondencia" e colar no campo  "Responsável_Entrada" do "frmCorrespondenciaEntradaEditar".

Está um pouco confuso, não?

Se alguém me puder ajudar agradecia. De qualquer das formas envio a BD a ver se ajuda.

Tem por aí alguma alma caridosa que me ajude??? :-)

Será que dá para usar Dlast para resolver o meu problema?

Obrigado e bom domingo...

Coloque este Código em algum evento, o que melhor atender a sua necessidade amigo...

Dim F, C As String
'Ira buscar o Mario ID lançado referente ao Ref. N.º.
C = DMax("ID", "Correspondencia_Historico", "ID_Correspondencia ='" & Me.ID & "'")
'Irá Buscar o Valor do Campo Destinatario_Corespondencia referente ao Maior ID que filtramos anteriormente.
F = DLookup("Destinatario_Correspondencia", "Correspondencia_Historico", "ID =" & C & "")
Me.Responsável_Entrada = F


Veja se seria isso!

Obrigado pela ajuda.
Funcionou direitinho.

Só tem um pequeno problema: se não encontra valor nenhum, se os campos estão vazios, dá erro...
Como posso ultrapassar esta situação?

Obrigado mais uma vez.

Neste exemplo que mandou, qual valor simulo para obter o erro?
Poste a tela da mensagem do erro!

O Erro é o seguinte:

"error 94" - Valor "Null"

Se apontar para esta Linha (C = DMax("ID", "Correspondencia_Historico", "ID_Correspondencia ='" & Me.ID & "'")).


Mude ela para:


C = NZ(DMax("ID", "Correspondencia_Historico", "ID_Correspondencia ='" & Me.ID & "'"),0)



Teste!

Caro Fabio,

Deu direitinho.... Muito obrigado pela tua ajuda.
Está perfeito.

Grato pelo retorno amigo, Até a próxima se Deus quiser!