Integrating threat intelligence can be challenging, and not all companies are ready. These resources can help you build awareness and prepare for defense.
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
|#deleted rowsc access 2010 backend||4||32|
|DCount with multiple criteria||3||21|
|Access db, trying to list the results of query (in a recordset) in a list box using VBA||4||16|
|Failed implementation Access runtime application||14||20|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
15 Experts available now in Live!