Form showing date in 7 weeks!

[beatleman]

hello, i would like to design a simple form that will show the date in say 7 weeks, if i enter 7 in a text box, if i enter 6 then it will show the date in 6 weeks time based on the current system date.. i understand this may need a calender function so any help appreciated! cheers!

 

[ColinEssex]

Look up DateAdd() in access help

Col

 

[missinglinq]

If WeeksToAdd is the textbox you enter the number of weeks in and FutureDate is the field that holds the projected date, this should do the job!

Private Sub WeeksToAdd_Exit(Cancel As Integer)
   FutureDate = DateAdd("ww", WeeksToAdd, Date)
End Sub