Discussion :

[MaiCaz]

Bonjour à tous,

J'ai une "erreur" dans mon code. J'utilise Dlookup sur un tableau mais il me renvoie la mauvaise valeur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Dim strDate As Date
strDate = Message.ReceivedTime
 
If Not IsNull(DLookup("[Statut]", "Tableau", " [Reçu]=#" & strDate & "#")) Then
      oRst.Fields("Statut").Value = "Doublon"
Else
      oRst.Fields("Statut").Value = "Importé"
End If

Il me renvoie null donc "Importé" à chaque fois alors que la date "Reçu" existe déjà dans ma table.
Merci par avance.

[Jean-Philippe André]

Salut,

il faut preciser le format de ta date #MM/DD/YYYY#

[MaiCaz]

Bonjour,

J'ai testé avec les deux formats dd/mm/yyyy et mm/dd/yyyy mais sans succès tel que :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
        If Not IsNull(DLookup("[Statut]", "Tableau", "[Objet]='" & str & "' AND [Reçu]=#" & Format(strDate, "mm/dd/yyyy") & "#")) Then
            oRst.Fields("Statut").Value = "Doublon"
        Else
            oRst.Fields("Statut").Value = "Importé"
        End If

[Jean-Philippe André]

Hum, tu mets une variable strDate, j'en deduis que tu recuperes une chaine de caracteres et non une date.

Comment alimentes-tu ta variable strDate ?

[User]

Bonjour,

La propriété ReveivedTime de l'objet message, renvoie la date et l'heure à laquelle le message a été reçu.

Donc normalement, il faut un format complet pour les dates du style "mm/dd/yyyy hh:nn:ss" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim strDate As Date
strDate = Message.ReceivedTime
 
   If Not IsNull(DLookup("[Statut]", "Tableau", "[Objet]='" & str & "' AND [Reçu]=#" & Format(strDate, "mm/dd/yyyy hh:nn:ss") & "#")) Then
      oRst.Fields("Statut").Value = "Doublon"
   Else
      oRst.Fields("Statut").Value = "Importé"
   End If

A tester...

Cdlt,

[MaiCaz]

Bonjour,

strDate est alimenté par la date d'un message d'Outlook comme decrit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Dim strDate As Date
strDate = Message.ReceivedTime

La date est bien récupérée.

En ce qui concerne le format avec l'heure testé et ça ne marche pas toujours pas.

[User]

Peux-tu donner des exemples de valeurs stockées dans la colonne "Recu" de la table "Tableau" ?

Peux-tu nous dire ce que contient la variable str ?
Contient-elle une valeur ?

Cdlt,