Does anyone know of any access calendar add-ins or functions that I can use that will make this work.
IWeekDay = DatePart("w", Date)
txtFromDateEnd = DateAdd("d", -IWeekDay, Date)
txtFromDateEndPrev = txtFromDateEnd
'when start, keep date as PREV date also
txtFromWeekNum = DatePart("ww", Me.txtFromDateEnd,vbSunday, vbFirstFullWeek)
'keep the week #
txtThruDateEnd = txtFromDateEnd 'default thru dates to same week
txtThruDateEndPrev = txtFromDateEndPrev
txtThruWeekNum = txtFromWeekNum
We had to restore from a backup and now our calendar thingy doesnt work. Im guessing that a component did not get backed up properly
IWeekDay = DatePart("w", Date)
txtFromDateEnd = DateAdd("d", -IWeekDay, Date)
txtFromDateEndPrev = txtFromDateEnd
'when start, keep date as PREV date also
txtFromWeekNum = DatePart("ww", Me.txtFromDateEnd,vbSunday, vbFirstFullWeek)
'keep the week #
txtThruDateEnd = txtFromDateEnd 'default thru dates to same week
txtThruDateEndPrev = txtFromDateEndPrev
txtThruWeekNum = txtFromWeekNum
We had to restore from a backup and now our calendar thingy doesnt work. Im guessing that a component did not get backed up properly