[Resolvido]Repetir a última Data Fim no próximo registro, no campo Data Início

Olá, Equipes!  


Bom dia.    


Turmas, estou a buscar nos códigos, na Web, algo que me ajude no meu sistema de controle de obras.  


A Solução do Problema, para vocês que são feras no VBA, farão com as mãos para trás.    

Problema: Sempre que eu digitar a última Data Final, no subformulário Etapas da Obra, o Próximo Registro tenha a Data Início IGUAL à Data Final anterior.


Um forte e Fraterno Abraço a Todos e um Natal bem Porreta!!!  



[]'s
Guilherme

Abra seu subformulário f2EtapaS1 em modo design e na folha de propriedades do objeto formulário, guia eventos, evento "No atual", cole o código abaixo

Código:

Dim dtTemp As Date

    If Me.NewRecord Then
        dtTemp = Nz(DMax("DthObraDataFim", "t2Etapa", "DthObra_ObraId = " & Parent.ObraId), 0)
        If dtTemp > 0 Then Me!DthObraDataInicio.Value = dtTemp
    End If

Mestre Ivan!!!


Show de Bola!!!


Valeu, Mestre! )


Um forte Abraço,
Guilherme

O fórum agradece o retorno. Sucesso.