Runtime Error R6025 and some other things

Hi everybody,

this happens when you switch between different events only in the monthview.
The exact message is:

Microsoft Visual C++ Runtime Library
Runtime Error!
R6025
- Pure Virtual function call

It does not happen on my computer but on a testmachine.


A couple of other topics:
When I use the Office 2007 Theme (it looks really cool), there is no start time in the subject nor the icon for meetings.

When I use the old theme, the printout in monthview is a bit unreadable, there is no frame around the multi-days-events so it is very hard to read it correctly.

I have a datepicker that shows 2 month and I put events for 4 month into the calendar, let's say from Jan-Apr. and start the calendar showing April.
When I use the daypicker, to go into January the days containing events within the datepicker are not bold and when I click onto one day that certainly has events, it won't show them.
When I change the month programmatically it will work as expected.


Thanks in advance
Joachim

Hi Serge,
what exactly do you mean?
The events are filled by code - similar to your calendar example. Nothing special so far. Strange, that it only happens in the monthview.

Best regards
Joachim

I use VB6 with SP6 on WinXP with SP2, the calendar control is 10.1.1.
No specific calendar options.

The code snippet:

Private Sub FillKal(ByRef rstKal As Recordset, Optional fFilterID As Boolean = False, _
        Optional sSubjectPrefix As String = "")
    On Error GoTo errHandler
   
    Dim lCount As Long
    Dim lRow As Long
    Dim vStart As Variant
    Dim vEnde As Variant
    Dim vWV As Variant
    Dim sSubject As String
    Dim evt As CalendarEvent
    Dim dDate As Date
    Dim iDiff As Integer
    Dim iAdd As Integer
    Dim sDescr As String
    Dim dtStartTime As Date
    Dim dtEndTime As Date
    Dim lID As Long
    Dim lThemaID As Long
    Dim sName As String
    Dim lIDName As Long
    Dim sHerkunft As String
   
      
    With rstKal
        lCount = .RecordCount
        For lRow = 0 To lCount - 1
             If m_listType = ltPendenz Then
                 vStart = rstKal.Fields("TERMIN_START").Value
                 vEnde = rstKal.Fields("wann_datum").Value
                 sHerkunft = "EditPendenz"
             Else
                 vStart = rstKal.Fields("termin_start").Value
                 vEnde = rstKal.Fields("endtermin").Value
                 sHerkunft = "EditThema"
             End If
             vWV = rstKal.Fields("WIEDERVORLAGE").Value
            
             If Not IsNull(vStart) Then
                 vStart = Format(vStart, "Short Date")
                 If IsNull(vEnde) Then
                     vEnde = vStart
                 End If
                 If m_listType = ltPendenz Then
                     sSubject = rstKal.Fields("pendenz").Value
                     sDescr = sNullToBlank(rstKal.Fields("was").Value)
                     lID = rstKal.Fields("id_pendenz").Value
                     lThemaID = rstKal.Fields("id_massnahme").Value
                 Else
                     sSubject = rstKal.Fields("bezeichnung").Value
                     sDescr = sNullToBlank(rstKal.Fields("beschreibung").Value)
                     lID = rstKal.Fields("id_massnahme").Value
                     lThemaID = lID
                 End If
                 dtStartTime = IIf(IsNull(rstKal.Fields("STARTTIME").Value), #8:00:00 AM#, Format(rstKal.Fields("STARTTIME").Value, "h:m"))
                 dtEndTime = IIf(IsNull(rstKal.Fields("ENDTIME").Value), #6:00:00 PM#, Format(rstKal.Fields("ENDTIME").Value, "h:m"))
                
                 sName = rstKal.Fields("name").Value & ", " & rstKal.Fields("vorname").Value
                 lIDName = rstKal.Fields("id_mitarbeiter").Value
                 If Not fFilterID Then
                     AddToFG sName, lIDName
                 End If
                
                 If Me.atbCal.Tools("ID_ShowName").State = ssChecked And sSubjectPrefix = "" Then
                     sSubject = sName & ": " & sSubject
                 ElseIf sSubjectPrefix <> "" Then
                     sSubject = sSubjectPrefix & ": " & sSubject
                 End If
                
                
                 Set evt = Me.cccCalendar.DataProvider.CreateEvent
                 With evt
                     .Subject = sSubject
                     .AllDayEvent = lNullToZero(rstKal.Fields("ALLDAYEVENT").Value, CInt(False))
                     .BusyStatus = lNullToZero(rstKal.Fields("BUSYSTATUS").Value, xtpCalendarBusyStatusBusy)
                     .StartTime = CDate(vStart) + dtStartTime
                     .EndTime = CDate(vEnde) + dtEndTime
                     .Body = sDescr
                     .Importance = xtpCalendarImportanceHigh
                     .Label = lNullToZero(rstKal.Fields("EVENTLABEL").Value, 0)
                     .Location = sNullToBlank(rstKal.Fields("LOCATION").Value)
                     .BusyStatus = lNullToZero(rstKal.Fields("BUSYSTATUS").Value, 2)
                     .MeetingFlag = lNullToZero(rstKal.Fields("MEETINGFLAG").Value, 0)
                     '.RecurrenceState = lNullToZero(rstKal.Fields("RECURRENCESTATE").Value, 0)
                     .CustomProperties("id") = lID
                     .CustomProperties("typ") = m_listType
                     .CustomProperties("themaid") = lThemaID
                     .CustomProperties("name") = sName
                     .CustomProperties("nameid") = lIDName
                     .CustomProperties("subjectprefix") = sSubjectPrefix
                     .CustomProperties("herkunft") = sHerkunft
                 End With
                 Me.cccCalendar.DataProvider.AddEvent evt
                
                
             End If
             rstKal.MoveNext
        Next
    End With
    Me.cccCalendar.DayView.ScrollToWorkDayBegin
    Me.cccCalendar.Populate
   
    Exit Sub
errHandler:
    HandleError CurrentModule, "FillKal", Err.Number, Err.Description
End Sub

Manually with mouse clicks.
As soon as my colleague is back I'll ask him if there is a difference when using the keyboard. I told you, it doesn't happen on my machine.

Getting the same error on my machine.

Unfortunately we haven't succedded to reproduce this problem.
However, we've updated some code which might have caused that and it will be included into the nearest release, which would probably be available in nearest couple weeks. Then will need to re-check it.

--
WBR,
Serge

I have a customer still complaining about this problem. Is there anything that can be done?

Will try it. will post if problem remains.

Thank you.