Solved

Can anyone tell me what mc. means?

Posted on 2009-04-10
4
288 Views
Last Modified: 2013-11-28
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
Comment
Question by:chancer74
  • 2
4 Comments
 
LVL 2

Expert Comment

by:azaghlool
ID: 24117009
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
 

Author Comment

by:chancer74
ID: 24117640
I do have a calendar object and am trying to debug it. I just dont know what mc. means in the statement above.
0
 
LVL 84

Accepted Solution

by:
Scott McDaniel (Microsoft Access MVP - EE MVE ) earned 125 total points
ID: 24125760
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
 

Author Closing Comment

by:chancer74
ID: 31568965
Thanks for clearing that up for me.
0

Featured Post

Free Tool: ZipGrep

ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.

One of a set of tools we're offering as a way to say thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

In a multiple monitor setup, if you don't want to use AutoCenter to position your popup forms, you have a problem: where will they appear?  Sometimes you may have an additional problem: where the devil did they go?  If you last had a popup form open…
Access developers frequently have requirements to interact with Excel (import from or output to) in their applications.  You might be able to accomplish this with the TransferSpreadsheet and OutputTo methods, but in this series of articles I will di…
In Microsoft Access, learn different ways of passing a string value within a string argument. Also learn what a “Type Mis-match” error is about.
Polish reports in Access so they look terrific. Take yourself to another level. Equations, Back Color, Alternate Back Color. Write easy VBA Code. Tighten space to use less pages. Launch report from a menu, considering criteria only when it is filled…

730 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question