Publié: 04 Jan 2011 à 16:42copie écran colonne ci dessous
- 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