Automatsko prenosenje vrednosti na novi zapis

Kako da prenesem vrednost datumskog tipa na sledeci zapis ako se isti datum ponavlja.Macro Setvalue koliko vidim prenosi samo numericke podatke.
Molim za pomoc.Zahvaljujem ko pomogne.

Private Sub DAT_AfterUpdate()
Me![DAT].DefaultValue = "#" & Format(Me![DAT], "MM-DD-YY") & "#" 'nudi vrednost za sledeci slog
End Sub

Potpis

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski