Bug in CustomProperties?

 

I wrote a little procedure for inserting/updating custom properties, and it seems, that there's a bug. Any help would be nice.

 

 

Code:

 

Private ModifiedEvent As CalendarEvent
Private m_pCalendar As CalendarControl

 

Private sub SaveProp()

 

    Dim I As Long
    Dim propName
    Dim propVal
   
    ModifiedEvent.CustomProperties.RemoveAll
   
    For I = 1 To 5
       propName = Trim(Me("editPropName" & I))
      If Len(propName & "") > 0 Then
         propVal = Me("editPropValue" & I)
          ModifiedEvent.CustomProperties.Property(propName) = propVal
          Debug.Print "Save as: ", propName, propVal
        End If
    Next

 

    For Each propName In ModifiedEvent.CustomProperties
        If Len(propName & "") > 0 Then
            Debug.Print "Saved as: ", propName, ModifiedEvent.CustomProperties(propName)
         End If
    Next
   
    Set m_pCalendar = Forms!frmkalender.g_pEditEvenArgs.m_pCalendar
    m_pCalendar.DataProvider.ChangeEvent ModifiedEvent

 

end sub

 

Output Debug1:

Save as:      zeile1        wert1
Save as:      zeile2        wert2
Save as:      zeile3        wert3

 

Output Debug2:

Saved as:     zeile1        wert3
Saved as:     zeile2        wert3
Saved as:     zeile3        wert3

 

Value of field CustomPropertiesXMLDate in table Event:

<Calendar CompactMode="1" Locale="1049"><CustomProperties><CustomProperty Name="zeile1" Value="wert3" VariantType="16396"/><CustomProperty Name="zeile2" Value="wert3" VariantType="16396"/><CustomProperty Name="zeile3" Value="wert3" VariantType="16396"/></CustomProperties></Calendar>