We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Private Sub date_Click() Dim current_val As Date Dim db As DAO.Database Dim myq As DAO.Recordset Set db = CurrentDb() Set myq = db.OpenRecordset("qryDate") ' open a recordset using the results of a query 'Set tdf = db.CreateTableDef("tblMealPln_New.date") If Not myq.EOF Then myq.MoveFirst 'goto the first record in the recordset (if there are any records at all) mc.ResetBoldDayState True 'reset all dates to clear bolded states from earlier searches. Requires addition to clsMonthCal module Do While Not myq.EOF 'do the following for the currently selected record unless there are no more records in the recordset current_val = myq!date 'set the current_val variable to the date value of the SDate field of the current record Do While current_val '== myq!date 'do the following as long as the current_val date is not after the Enddate field value mc.SetBoldDayState DatePart("YYYY", current_val), DatePart("m", current_val), DatePart("d", current_val) 'make the date represented by the current_val variable bold in the calendar 'current_val = current_val + 1 'increment the date by one Loop 'go back and repeat the process for each date up to (and including) the enddate of the currently selected record myq.MoveNext 'once the end date of this record has been passed, move to the next record in the recordset Loop 'go back and start the process over for each new record in the recordset Dim blRet As Boolean Dim dtStart As Date, dtEnd As Date dtStart = Nz(Me.date, 0) dtEnd = 0 blRet = ShowMonthCalendar(mc, dtStart, dtEnd) End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.