[Resolvido]Repetir campo ao digitar o formulário / ou abrir o Formulario

Repetir campo ao digitar o formulário / ou abrir o Formulario

Tenho um formulário FormProducao, onde digito toda a produção do Hospital, só que tem alguns campos que repete varias vezes ( DataDigitacao, NomeProfissional) como faço para esses campos repetir de acordo o ultimo registro,
Digitação
Ex.1
NomeProfissional: Raimundo
DataDigitacao: 01-05-2011
Procedimento: Curativo

Ex. 2
NomeProfissional: Raimundo
DataDigitacao: 01-05-2011
Procedimento: Parto

Toda vez que eu abri o Formulário FormProducao, os campos NomeProfissional e DataDigitacao caregar automaticamente com os dados do ultimo registro.

Acredito que tenha um campo chave primária comum aos registros, certo? Você pode usar esse campo para pegar o último registro:

If DCount("*", "NomeDaTabela", "CodCliente=" & Me.CodCliente) > 0 Then
Me.RecordSource = "SELECT * FROM NomeDaTabela WHERE CodCliente=" & DLast("Código", "NomeTabela", "CodCliente=" & Me.CodCliente) & ""
Else
End If

Não sei como é a estrutura da aplicação, mas á mais ou menos por aí.

Essa função não esta dando certo. Veja bem... no FormProducao tenho os seguintes campos que é salvo na TBProducao.

Nome do Campo...........Tipo
Sequencia........................Autonumeração (campo Chave)
NomeProfissional..........Texto
NomePaciente................Texto
DataDigitacao.................Data
Procedimento.................Texto
Peso.................................Numero
Altura................................Numero
Quantidade.....................Numero

Quando eu clica no botão SALVAR/ADICIONAR goataria que os seguintes campos repetisse automaticamnte para o proximo registro.

Nome do Campo........Tipo
NomeProfissional......Texto
DataDigitacao.............Data


Waiton Milhomem Souza

Tente usar variáveis para capturar os dados dos campos antes de salvar e depois colar nos campos do formulário novamente. Supondo que o botão tenha um código para ir para um novo registro:

Dim varA As String, varB As String, varC As Date

     varA = Me.NomeDoCampo
     varB = Me.NomeProfissional
     varC = Me.DataDigitacao

Vai para o novo registro

     Me.NomeDoCampo = varA
     Me.NomeProfissional = varB
     Me.DataDigitacao = varC

Obrigado criquio pela ajuda deu certo

Atenciosamente


Waiton Milhomem Souza