Private Sub cmdMonthly_Click()
DoCmd.OpenForm "frmPeriod", , , , , acDialog, "Monthly"
End Sub
Private Sub cmdWeekly_Click()
DoCmd.OpenForm "frmPeriod", , , , , acDialog, "Weekly"
End Sub
Private Sub cmdDaily_Click()
TempVars("WeekNum").Value = DatePart("ww", Me.cboDates.Column(1))
DoCmd.OpenForm "frmDailyList", acFormDS, , , , acDialog
End Sub