Overføre beregnet dato fra Mainform til Subform
Har tidligere fået hjælp til at overføre en beregnet dato fra Mainform til Subform:http://www.eksperten.dk/spm/963769
Løsningen var følgende kode i BeforeInsert
Private Sub Form_BeforeInsert(Cancel As Integer)
Me.Startdato = DateAdd("d", DCount("*", "Data", "[Id] = [Forms]![Indtastning]![Id]"), [Forms]![Indtastning]![dato])
Me.Slutdato = DateAdd("d", DCount("*", "Data", "[Id] = [Forms]![Indtastning]![Id]") + 1, [Forms]![Indtastning]![dato])
End Sub
Nu har jeg brug for en korrektion. Jeg har også et felt med et klokkeslæt. Hvis dette klokkeslæt er før 06:00, så skal der trækkes en dag fra Startdato og Slutdato. Nogen forslag?