Solved

Can anyone tell me what mc. means?

Posted on 2009-04-10
4
276 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
Comment Utility
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
Comment Utility
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
Comment Utility
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
Comment Utility
Thanks for clearing that up for me.
0

Featured Post

Threat Intelligence Starter Resources

Integrating threat intelligence can be challenging, and not all companies are ready. These resources can help you build awareness and prepare for defense.

Join & Write a Comment

When you are entering numbers in a speadsheet, and don't remember what 6×7 is, you just type “=6*7" instead. It works in every cell! This is not so in Access. To enter the elusive 42 in a text box, you have to find a calculator, and then copy the re…
A simple tool to export all objects of two Access files as text and compare it with Meld, a free diff tool.
Familiarize people with the process of utilizing SQL Server functions from within Microsoft Access. Microsoft Access is a very powerful client/server development tool. One of the SQL Server objects that you can interact with from within Microsoft Ac…
Access reports are powerful and flexible. Learn how to create a query and then a grouped report using the wizard. Modify the report design after the wizard is done to make it look better. There will be another video to explain how to put the final p…

743 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

Need Help in Real-Time?

Connect with top rated Experts

15 Experts available now in Live!

Get 1:1 Help Now