Microsoft Calendar Control 10.0 and later versions use an incorrect value for the FirstDay property (826761)

WORKAROUND

1. Determine the association between the days and the Microsoft Visual Basic for Applications (VBA) intrinsic numeric constants. To do this, follow these steps:
   1. Start Access.
   2. Open the Northwind.mdb sample database.
   3. In the Database window, click Forms under Objects.
   4. In the right pane, double-click Create form in Design view.
   5. On the Insert menu, click ActiveX Control.
   6. In the Insert ActiveX Control dialog box, click to select Calendar Control 10.0 or a later version from the Select an ActiveX Control list box.
   7. Click OK.
   8. Add a command button to the form that has the properties set as follows:

      Property	Value
      Name	testFD
      Caption	Change First Day

   9. On the File menu, click Save.
   10. In the Save As dialog box, type Form1 in the Form Name box, and then click OK to save the Form1 form.
   11. On the View menu, click Code.
   12. In the Visual Basic Editor, type or paste the following code:

       Option Compare Database
       
       Private Sub testFD_Click()
           Calendar0.FirstDay = vbTuesday
       End Sub
       

   13. Open Form1 in the Form view.
   14. Click the Change First Day button.
   15. If the first column of the Calendar Control is not set to Tuesday, take note of the day in the first column.
   16. In the Visual Basic Editor, click Immediate Window on the View menu.
   17. In the Immediate window, type ?vbTuesday, and then press ENTER.
       
       Notice the numeric value.
   18. Repeat step k through step p by replacing vbTuesday with other numeric constants, such as vbMonday and vbWednesday. Create a table as follows:

       Week Day	VBA Intrinsic Constant	Numeric Value Associated
       Monday	vbSunday	1
       Tuesday	vbMonday	2
       Wednesday	vbTuesday	3
       Thursday	vbWednesday	4
       Friday	vbThursday	5
       Saturday	vbFriday	6
       Sunday	vbSaturday	7

2. Create a global custom enumeration that is correctly mapped to the week days. To do this, follow these steps:
   1. In the Database window, click Module under Objects.
   2. On the Insert menu, click Module.
   3. Type or paste the following code in the Visual Basic Editor:

      Option Explicit
              
      Public Enum nwFirstDay
          nwMonday = 1
          nwTuesday = 2
          nwWednesday = 3
          nwThursday = 4
          nwFriday = 5
          nwSaturday = 6
          nwSunday = 7
      End Enum
      

      Note Create the enumeration as described in the "Week Day" column and in the corresponding "Numeric Value Associated" column of the table that is in step 1r.
   4. Type Day_Association in the Module Name box, and then save the module.
   5. Close the Visual Basic Editor.
3. Replace the VBA intrinsic constants in your application with the constants that are in the custom enumeration that is described in step 2.
   
   For example, if your original code is

   Calendar0.FirstDay = vbTuesday

   modify your code to use custom enumeration as follows:

   Calendar0.FirstDay = nwTuesday

4. Run the application.