Try Public Function FirstMonday(ByVal moffset As Long) As Date Dim d As Date d = VBA.DateSerial(VBA.Year(VBA.Now()), VBA.Month(VBA.Now()) + moffset, 1) If VBA.WeekDay(d, VBA.vbMonday) <> 1 Then d = d + 8 - VBA.WeekDay(d, VBA.vbMonday) End If FirstMonday = d End Function HtH Pieter "Jeff Boyce" <JeffBoyce_IF@msn.com-DISCARD_HYPHEN_TO_END> wrote in message news:%%23Hnl$YyDIHA

Hello All I wonder if anyone can help. I am trying to add some code to a form to calculate the first working day of each month for the next six months... here's how far I have got... For j = 1 To 6 dayd = Format(1, "dd") monthd = Month(Now) + j If monthd 12 Then monthd = Format(Month(Now) + j - 12, "mm") yeard = Format(Year(Now) + 1, "yyyy") Else monthd = Format

***Have all records in one Table***, not in multiple Tables of similar structure, as per John advised the you can use a Parameter Query which will pop up a dialog that ask the user for the criterion value, e.g. Month/Year. Alternatively, you can create a [frmPreProcessor] which has TextBoxes / ComboBoxes for the user to select monthd or date range and then a CommandButton to run the Report

"310527" <jurplesman@gmail.com> wrote in message news:1173923340.615144.100830@n76g2000hsh.googlegroups.com... On Mar 15, 1:08 am, "mog" <some...@somwhere.co.uk> wrote: I realy found this interesting. I'm an alcoholic myself going through recovery at the moment. My father was an alcoholic too, and when he was not drinking, (which sometimes was years) he was always craving