Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 309
  • Last Modified:

Can anyone tell me what mc. means?

In the line -   mc.ResetBoldDayState, can anyone tell me what the mc. means? I assume it is a reference to another variable or command in the module.
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

Open in new window

0
chancer74
Asked:
chancer74
  • 2
1 Solution
 
azaghloolCommented:
Do you have a calendar object in the form?  If so, check the name of it in the properties.  It looks to be talking about a calendar object.
0
 
chancer74Author Commented:
I do have a calendar object and am trying to debug it. I just dont know what mc. means in the statement above.
0
 
Scott McDaniel (Microsoft Access MVP - EE MVE )Infotrakker SoftwareCommented:
The ShowMonthCalendar function would define this. Assuming you're using the Lebans MonthCalendar example, then "mc" refers to the clsMonthCal object that should have been declared in the General Declarations section of your form. Here's a site that shows usage for that example:

http://www.lebans.com/monthcalendar.htm#Step%20by%20Step%20instructions%20for%20how%20to%20use%20the%20MonthCalendar%20in%20your%20own%20applications.

You can find out exactly what "mc" refers to by highlighting the phrase, then right click and choose "Definition" ... the VBA Editor should show you where that variable is declared.
0
 
chancer74Author Commented:
Thanks for clearing that up for me.
0

Featured Post

Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now