Dates for the week populate on form when "Week of" date is chosen from drop-down.

[jaeprov7]

I am trying to create a form with a drop down box that lets you choose the "Week of" and when chosen it will automatically populate the dates for the week on the form so that users can populate productivity for each day. I'm Intermediate but have been having trouble figuring out how to do it. Can't really find any step by steps to help. P.S. Access 2007. Thank you

[ADezii]

I am a little confused by your request, but I'll give it a stab.

1. Assuming that Week Of refers to a Monday, the following Code will populate a Combo Box named cboWeekOf with the Dates representing all Mondays between the Current Date and end of the year.
   

   Dim dteCtr As Date
   Dim strBuild
   Dim cbo As Access.ComboBox
    
   Set cbo = Me![cboWeekOf]
    
   cbo.RowSourceType = "Value List"    'Critical
    
   For dteCtr = Date To DateSerial(Year(Date), 12, 31)
     If Weekday(dteCtr) = 2 Then    'a Monday
       strBuild = strBuild & CStr(dteCtr) & ","
     End If
   Next
    
   strBuild = Left$(strBuild, Len(strBuild) - 1)  'Remove Trailing ','
    
   cbo.RowSource = strBuild

2. After a Week Of Date is selected in the Combo Box (cboWeekOf), the following Code will populate seven Text Boxes named Text1...Text7 with the Dates of that selected Week.
   

   Private Sub cboWeekOf_AfterUpdate()
   Dim intDteCtr
    
   If IsNull(Me![cboWeekOf]) Then Exit Sub
    
   For intDteCtr = 0 To 6      'Days of the Week
     Me.Controls("Text" & CStr(intDteCtr + 1)) = DateAdd("d", intDteCtr, CDate(Me![cboWeekOf]))
   Next
   End Sub

[jaeprov7]

Something like this form that I found on the website below

http://stackoverflow.com/questions/7...7-with-weekday

Thank you I will try your code and see how it goes. Thanks again

[jaeprov7]

Where is says "value list" do I need to create a table with all of the dates in order for this to work?