Great advice from the Mailman
Hi Mailman
Thanks for pointing me in the right direction.
I ended up with this and it works just great:-
LRandomNumber = Int((6 - 1 + 1) * Rnd + 1)
Me![MyEndDateRandom].SetFocus
Me![MyEndDateRandom].Text = DateAdd("d", LRandomNumber, [Myenddate])
Thanks again my...