Advance Dates by 7 , 30, 90, 365

[burrina]

I have a module that is supposed to do this but does not. Via my form I need to view Dates in increments by my set criteria. One of which is every 7 days. I have tried unsuccessfully to do this with queries and vba as well as my module. You have a list of dates where you need to see every 7th record, i.e. 7 days. Counting from the date which is in date field TransDate I then want to see dates in increments of 7.Example: A record was created on 2/1/13 then I want to see the next record be on 2/8/13 and so on. There is other criteria that comes into play but I have that managed. I attach pics of the qry and the module.

[burrina]

Guess I stumped the band.Anyway I have come up with a workaround. Making subform use the main forms last date as criteria it helps. Marking as solved and moving on.

Thanks,

[RedGoneWILD]

I use something like this for advancing weeks and years



Dim FirstDateOfWeek As Date
Dim LastDateOfWeek As Date

Private Sub AdvanceOneWeek()
FirstDateOfWeek = DateAdd("d", 7, FirstDateOfWeek)
LastDateOfWeek = DateAdd("d", 7, LastDateOfWeek)
End Sub

Private Sub RetreatOneWeek()
FirstDateOfWeek = DateAdd("d", -7, FirstDateOfWeek)
LastDateOfWeek = DateAdd("d", -7, LastDateOfWeek)
End Sub

Private Sub AdvanceOneYear()
FirstDateOfWeek = DateAdd("d", 365, FirstDateOfWeek)
Last DateOfWeek = DateAdd("d", 365, LastDateOfWeek)
End Sub

Private Sub RetreatOneYear()
FirstDateOfWeek = DateAdd("d", -365, FirstDateOfWeek)
LastDateOfWeek = DateAdd("d", -365, LastDateOfWeek)
End Sub

[burrina]

Thanks So Much, That Really Helps.