[Resolvido]Automatização da Data Inicio do novo registo na Data Fim do registo anterior

Viva, então aqui vai mais uma:

Pretendia que ao inserir a Data Início num novo registo esta fosse actualizada, ou seja, na Data Fim no registo anterior.

Espero ter-me feito entender.

O meu obrigado antecipado.

Bruno Gordino

Carregue a data Fim em uma variável antes de criar o novo registro
Dim DtDataFin as Date
dtDataFin = DLast("CampoData","SuaTabela")

Ao criar o novo registro utilize esta variável para inserir a data inicial.


Cumprimentos.

Viva,

Estou a fazer qualquer coisa mal, ou então expliquei-me mal.

Objectivo: Ao criar um novo registo e após escolher a Data_Inicio esta ficar prenchida na Data_Fim do registo anterior.

Fiz isto mas não está a funcionar da maneira que quero:

Código:

Option Compare Database
Dim DtData As Date

Private Sub Data_Inicio_AfterUpdate()
On Error Resume Next
DtData = DLast("Data_Inicio", "Tbl_1")
Data_Fim = DtData
End Sub

Era óptimo se a Data_Inicio do novo registo não pudesse ser inferior à Data_Inicio do registo anterior.

Mais uma vez obrigado pela atenção dispensada.


Bruno Gordino

Cite o passo a passo para que eu repoduza e possa entender.

Cumprimentos.

Viva,

Vou tentar ser claro.

No Form tem este registos:
Registo 101: Data Inicio "11-11-1111" e a Data Fim "22-22-2222";
Registo 150: Data Inicio "22-22-2222" e a Data Fim "33-33-3333";
Registo 300: Data Inicio "33-33-3333" e a Data Fim "Vazio";

Quando criar um novo registo:
Registo 320: Data Inicio "44-44-4444" e a Data Fim "Vazio";

Queria que o registo 300 ficasse assim:
Registo 300: Data Inicio "33-33-3333" e a Data Fim "44-44-4444".

Muito obrigado por se ter disponibilizado.

Bruno Gordino

==================================================================================
Antes de criar o novo registro guarde a ID do ultimo registro, isso servirá para atualizar o registro quando criar o novo registro
==================================================================================
Dim lngIDAnt as long
lngIDAnt = DLast("SeuCampoID","SuaTabela")

==================================================================================
Após criar o novo registro basta atualizar o registro anterior baseado na Id guardada na variável lndIDAnt
==================================================================================
Dim dtDataFim
dtDataFim = DLast("DataInicio","SuaTabela")
'--------------------------
'Atualiza o registro Anterior
'--------------------------
CurrentDb.Execute "UPDATE SuaTabela Set DataFim =  #" &  dtDataFim & "# WHERE SeuCampoID = " & lngIDAnt & ""

Veja se consegue com estas dicas.

Cumprimentos.

Viva,

Vou experimentar depois dou o retorno.

Entretanto ...

o meu obrigado mais uma vez.

Bruno Gordino

Viva.

Desculpe a demora ...

... já bomba.

Muito Obrigado

Valeu

Viva.

Desculpe a demora no retorno...

... já bomba.

Muito Obrigado

Valeu

O Fórum agradece o Retorno.