not showing just the original 3 dates i set up but is actually gaining a week each week
Don't really understand what you mean here.
I don't know how you are filling the combo boxes....I used 2 buttons. I did find that the value lists kept growing every time I clicked the buttons.
I modified the code to clear the value list:
Code:
Dim str As Date
str = ((Date + (7 - Weekday(Date, 2)) + 1) - 14)
Me.cboschedulemonday.RowSourceType = "value list"
Me.cboschedulemonday.RowSource = ""
Me.cboschedulemonday.AddItem (str)
For x = 1 To 3
y = y + 7
Me.cboschedulemonday.AddItem (str) + y
Next
Code:
Me.cbojune.RowSourceType = "value list"
Me.cbojune.RowSource = ""
Me.cbojune.AddItem Date
For x = 1 To 14
Me.cbojune.AddItem Date + x
Next