Problème GetItemValue d'un champ date

[zouzi]

copie écran colonne ci dessous

[Michael DELIQUE]

il faut que tu remplace

Code : Tout sélectionner

 If CRDoc Is Nothing Then
         Set v = dbParten.GetView("CRDoublons")
         If Not (v Is Nothing) Then
            Call v.Refresh
            Key(0) = note.GetItemValue("PostedDate")(0)
            Key(1) = note.GetItemValue("From")(0)
            Key(2) = note.GetItemValue("Subject")(0)
            Set CRDoc = v.GetDocumentByKey(key)
            Set v = Nothing
         End If
      End If

par un truc du genre

Code : Tout sélectionner

 If CRDoc Is Nothing Then
         Set v = dbParten.GetView("CRDoublons")
         If Not (v Is Nothing) Then
            Call v.Refresh
            dim keyString as String
            keyString = format(note.GetItemValue("PostedDate")(0),"dd/mm/yyyy hh:nn:ss")+note.GetItemValue("From")(0)+note.GetItemValue("Subject")(0)
            Set CRDoc = v.GetDocumentByKey(keyString)
            Set v = Nothing
         End If
      End If

[zouzi]

Le truc du genre

ça marche nikel !!! Merci à tous