[Resolvido]Copiar valor de campo do registro atual para outro campo do registro anterior.

Dentro do formulário Eventos, tenho o subform. Índices. Nele há os campos Validade_Inicial e Validade_Final.

No subform, ao criar uma nova entrada, digito a Validade_Inicial. A Validade_Final apenas poderá ser digitada após o próximo registro for criado. Assim, a Val_Final sempre será um dia a menos que a Val_Inicial do registro seguinte.

Quero automatizar o processo. Sempre que uma nova entrada for criada e a Validade_Inicial inserida, a Validade_Final do registro imediatamente anterior seja informada, através de uma fórmula mais ou menos assim:

Val_Final = Me![Val_Inicial] - 1

O nó o que a data vai para o registro anterior. Como fazer?

Tente usar o evento "Após atualizar" do campo da data atual. Para isso, use uma variável ou um campo no formulário principal para colocar a data. Se for no acampo, pode ser algo assim no evento:

Forms!NomeDoFormPrincipal!NomeDoCampo = DateAdd("d", -1, Me.CampoData) ' Tira um dia da data atual do campo
DoCmd.GoToRecord, , acPrevious ' vai para o registro anterior
Me.NomeDoCampoDataAnterior = Forms!NomeDoFormPrincipal!NomeDoCampo

Da sua maneira funciona, mas creio que o caminho que código percorre pode ser longo, indo de um registro a outro e em seguida retornando para continuar a digitação.

Estou testando essa alternativa, usando parte de sua dica:

DMax("DtFinal", "tabIndices", "Alinea=" & Me!Alinea - 1) = DateAdd("d", -1, Me.DtInicial)

Onde Alinea é o número identificador de cada regitro do Subform(origem de dados tabIndices). Então, menos -1 levaria ao imediatamente anterior.

Está retornando "erro em tempo de execução 424: o objeto é obrigatório".

Minha está correta - Dmax("Dtfinal") - para localizar o campo DtFinal no registro especificado?

Instruções como DMax, DMin, DCount, DLookup e etc são usadas pra retorno de valores, não para inserir valores. Acredito que a instrução que passei não afete visivelmente a velocidade, pois ela se moverá entre dois registros apenas. Eu acredito ser uma boa solução, uma vez que os registros estão juntos e você vê a mudança em tempo real.

Há como fazer isso sem "pular" de registro?

Você pode tentar no evento "Após atualizar" com o campo da data mais recente, navegar para o registro anterior via Recordset:

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("NomeDaTabela")

rs.FindFirst "Código<" & Me.Código
rs.Edit

rs!CampoDataAntiga = DateAdd("d", -1, Me.CampoDataRecente
Me.Requery ' Ou Me.Recalc Ou Me.Refresh

rs.Update
rs.Close
Set rs = Nothing

Meu caro,

fui na consulta origem do subformulário e criei um campo assim:
DtFinal: DPesquisa("[DtInicial]-1";"tabIndices";"[Alinea]=" & [Alinea]+1)

Onde...
DtFinal = DtInicial - 1 dia
Alinea = Alinea + 1 (busca no registro seguinte)

Funcionou!

Ainda vou testar sua dica porque ela vai me servir para solução de outro problema.

Muito bom contar com sua ajuda.

Obrigado, mesmo!

Bom que funcionou. É como dizem, existem diversos caminhos que levam à Roma. Cada um escolher qual paisagem deseja vislumbrar (tá, eu admito, essa eu inventei agora, hehehe)

Vou colocar o Resolvido.