Solved: Calendar control not working

[tomzanca]

Hi,
i've been trying to use the great code for the calendar control that bluecactus posted on the KB (i'm newbie and I couldn't find a way to post my comment there).
Unfortunately it crashes my excel :-(
And it is the same on all the other Macs i tested it on.

Just for your info I've got:
MacBook pro
Lion
Office 2011 (fully updated and original)

and the log I've got after crashing is:
Microsoft Error Reporting log version: 2.0

Error Signature:
Exception: EXC_BAD_ACCESS
Date/Time: 2012-02-01 09:45:56 +0000
Application Name: Microsoft Excel
Application Bundle ID: com.microsoft.Excel
Application Signature: XCEL
Application Version: 14.1.4.111121
Crashed Module Name: Fm20.dylib
Crashed Module Version: unknown
Crashed Module Offset: 0x0000bf5d
Blame Module Name: Fm20.dylib
Blame Module Version: unknown
Blame Module Offset: 0x0000bf5d
Application LCID: 1040
Extra app info: Reg=en Loc=0x0410
Crashed thread: 0

Don't know if this can help you somehow
thanks anyway for the great job!

[dave_nq]

Hi,

I have the same experience reported by tomzanca, with the calendar control crashing Excel 2011 (Version 14.2.2) on a Mac with Lion OS 10.7.4.

I am using the simplest form of the calendar control (dpMode = 0). Changing the month or year in the DatePick userform works fine, but clicking on a date causes Excel to crash. In stepping though the code, the crash happens when it gets to EndSub in the TextBox_enter subroutine triggered by clicking on one of the dates e.g.

[VBA]Private Sub TextBox20_enter(): Call SetNewDate(TextBox20.Text): End Sub[/VBA]

I think it's associated with the DatePick userform being loaded/unloaded. If in the following code I comment out the Unload Me line, the code exits the TextBox subroutine without a problem, but the date doesn't change to what I selected.

[VBA]Private Sub SetNewDate(setDay As String)
' Change the selected date
If canUpdate = 0 Then
If dpMode = 0 Then
' Quits form with selected date for dpMode 0
Call CalendarModule.returnDate(DateValue(ComboBox1.Text & " " & setDay & ", " & ComboBox2.Text), "no events")
Unload Me
ElseIf dpMode = 1 Then
selectDate = DateValue(ComboBox1.Text & " " & setDay & ", " & ComboBox2.Text)
Call SetDays(selectDate)
Label9.Caption = strLabel9C & ComboBox1.Text & " " & setDay & ", " & ComboBox2.Text
Else
setDay = Left(setDay, InStr(setDay, Chr(13)) - 1)
selectDate = DateValue(ComboBox1.Text & " " & setDay & ", " & ComboBox2.Text)
Call SetDays(selectDate)
Label9.Caption = strLabel9C & ComboBox1.Text & " " & setDay & ", " & ComboBox2.Text

Call ListEvents
End If
End If
End Sub[/VBA]

The Error Reporting log details are as follows:

Microsoft Error Reporting log version: 2.0

Error Signature:
Exception: EXC_BAD_ACCESS
Date/Time: 2012-05-26 06:39:49 +0000
Application Name: Microsoft Excel
Application Bundle ID: com.microsoft.Excel
Application Signature: XCEL
Application Version: 14.2.2.120421
Crashed Module Name: Fm20.dylib
Crashed Module Version: unknown
Crashed Module Offset: 0x0000be89
Blame Module Name: Fm20.dylib
Blame Module Version: unknown
Blame Module Offset: 0x0000be89
Application LCID: 1033
Extra app info: Reg=en Loc=0x0409
Crashed thread: 0

I suspect this is a bug in Excel 2011 for Mac. Any assistance to workaround it would be welcome. I need a portable calendar control to work on Excel 3003 / 2007 / 2010 for WIN and 2011 for Mac, and this would be ideal - if I can get it to work.

[serj1980]

I don't know reason of crash by unload form in Excel 2011, but I can fix it by replacing TextBox1-37 to Labels.
Globalization question, I can resolve by replace all DateValue on DateSerial function. Now it's work for me on Russian and Ukrainian environment.

Good luck.

[dave_nq]

Thanks for the suggestion re replacing TextBoxes with Labels. I've not been working on this project on the mac for a couple of months, but will go back to it to try this fix, and report back. I have been working on a Win project, where this calendar control does work without need for modification.

[LS_Qwertt]

I have the same problem but, since I am a complete newbie, I was not able to fix the issue a per srj1980's indication.

Could you please give some more details, please?

[gert.thys]

Solved?

[LS_Qwertt]

Hello gert.thys,

actually no, I didn't solve it. I tried to replace TextBoxes with Labels but with no joy. Everything was messed up. I am still stuck there...

[xman2000]

hello people!

link to Thread forum by me:
"vbaexpress.com/forum/showthread.php?55438-Calendar-by-BlueCactus-not-works"

iam post the screens of errors and sample file.

if you have this workbook working please share with me!

calendarBluecactus in kb repository not working never!

thanks!