[Resolvido]DefaultValue interpreta "errado" a data fornecida

Bom dia a todos:

Estou criando um banco de dados para digitação de imposto de renda retido na fonte.
Uma das características é a de que no formulário de digitação das retenções (frm_retencao) o campo "Data" venha com o valor padrão igual a última data digitada, coisa que faço com VBA (Private Sub data_GotFocus()).
O problema é que a data retornada no Recordset está no formato "dd/mm/aaaa", mas ao atribuir em "Me.data.DefaultValue" ocorre a conversão para o formato mm/dd/aaaa e eu não consegui descobrir como contornar isso. Já tentei usar Format(rs!date.Value, "mm/dd/aaaa") mas retorna o erro "Tipos incompatíveis".
Alguém pode me dar uma luz?

Obs. Na linha 38 tem uma MsgBox somente para testar qual a data retornada pelo Recordset

Obs2. Uso o MS Access 2010

Amigo, o seu objetivo é apenas registrar a data no campo data? Pois pelo o que eu vi, não está fazendo esta conversão não. Tanto na data que é exibida no formulário, quanto na data que está na tabela, está no pradrão 31/12/2012...

Outra coisa que percebi é que você está usando palavras reservados do Access para dar nomes aos seus controles, como "Data" e "Valor". Esses fazem parte de funções/expressões do Access, que é bem possível surgirem problemas em usá-los. O idéal é trocar os nomes, por exemplo: Data passar a ser DT, Valor ser VL, e por aí vai...

Quanto a sua dúvida, desculpe, mas não exerguei o problema, pois se é seu objetivo por a data no campo "Data" (q deverá ter outro nome, tanto na tabela quanto no formuário pelo o motivo que ja lhe informei), isso já acontece no formato desejado... Quando a mensagem box, o formato que aparece nela pode até ser no formato americano (padrão do VBA), mas no campo ele pega o formato que você predefiniu de acordo com o idioma do seu SO.

Caro Marcelo David:

Fiz as correções quanto aos nomes de campos e controles.

Quanto a estar pegando a data certa, aqui, no meu computador (que tem win7 configurado dd/mm/aaaa), quando crio um novo registro, a MsgBox retorna a data dd/mm/aaaa, porém, no campo dt_pgto, o valor apresentado está em mm/dd/aaaa.

Veja o arquivo irrf.accdb e printscreen.png

Lembrando que meu objetivo é que, a cada novo registro, o campo dt_pgto venha com o valor padrão da última data digitada (para facilitar o preenchimento). Os registros já incluídos na tabela não devem sofrer alteração ao serem carregados no formulário.

Será algo não relacionado ao Access/VBA?

Obs. Marcelo David: Obrigado pela rápida resposta e pelo alerta sobre os nomes de campos/componentes

Se eu entendi direito, não precisaria de todos aqueles códigos...
Veja as alterações que fiz e em apenas uma linha obtive o resultado (que eu entendi).
Caso não seja, informe maiores detalhes.

Clique aqui para baixar

Aqui não funcionou Marcelo
Simplesmente não colocou nada no campo dt.
Pesquisei na ajuda do Access sobre DLast e veja o que encontrei:

Referência do Desenvolvedor do Access
Application.Método DLast
Use as funções DLast para retornar um registro aleatório a partir de um determinado campo em uma tabela ou consulta quando você precisar apenas de um valor qualquer desse campo.
[...]
Observação
Se você desejar retornar o primeiro ou o último registro de um conjunto de registros (um domínio (domínio: um conjunto de registros definidos por uma tabela, consulta ou expressão SQL. As funções agregadas de domínio retornam informações estatísticas sobre um domínio ou conjunto de registros específico.)), crie uma consulta classificada como crescente ou decrescente e defina a propriedade TopValues como 1. No Visual Basic, você também pode criar um objeto Recordset ADO e utilizar o método MoveFirst ou MoveLast para retornar o primeiro ou o último registro de um conjunto de registros.

Pelo que entendi, o Dlast pega um registro aleatório (o que não é o caso, pois quero o último registro, por isso usei moveLast).

De qualquer forma, obrigado pela ajuda. Vou continuar procurando a solução disso.

Aqui está funcionando tudo certo...
Todas as vezes que vou em novo registro, ele sai do campo dt, ele põe a última data no campo...
Ou não estamos falando da mesma coisa...

Uma outra coisa:
O que você quer é que ao abrir o formulário ele vá para a última retenção lançada?

O que quero é que, ao iniciar a inclusão de novo registro, o campo dt venha preenchido com a última data lançada, mas aqui não funciona de jeito nenhum. Como disse anteriormente: ele preenche o campo, porém a data fica no formato mm/dd/aaaa (vide printscreen.png dentro do 2º zip meu). Já o seu código, não acontece nada.

Posso fazer um acesso remoto ao seu pc, assim, eu veria na sua própria máquina o problema ocorrendo...
Caso aceite, instale o programa TeamViewer no linque abaixo e instale para uso Particular/Não comercial, e me passe o Id e a senha que eu entro na sua máquina vejo o que está ocorrendo...

Clique aqui e baixe o TeamViewer

Resolvido o problema:

Em vez de utilizar código VBA, apenas foi colocada a expressão DÚltimo("dt_pgto", "tbl_retencoes") na propriedade "Valor Padrão" do campo texto. Isso faz com que o último valor inserido no campo seja puxado como valor padrão do campo ao inserir novo registro.

Também registro a inestimável ajuda e atenção do Marcelo David com idéias para solução do problema.

Grato pelo retorno, bom trabalho.