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,

[MaiCaz]

Voici un exemple d'un enregistrement de mon "Tableau":

Code :

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

1
2
3
 
N°	Reçu			
81	20/06/2016 11:17:10

Quand je fais afficher strDate (Important toujours le même mail pour test), il s'affiche : 20/06/2016 11:17:10
Le champs Reçu est paramétré en tant que Date/Heure.

Merci de vos aides.

[User]

Et quand tu fais afficher la variable str ?

[User]

Sinon, une autre piste pour savoir si c'est un doublon :

tu utilises la propriété EntryID du message et ajoutes un champ IdEmail dans ta table "Tableau",

tu mets à jour ce champ comme ceci :

Code :

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

1
2
3
...
oRst!IdEmail = Message.EntryID
...

Et tu testes comme cela :

Code :

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

1
2
3
...
   If Not IsNull(DLookup("[Statut]", "Tableau", " [IdEmail]='" & Message.EntryID & "'")) Then
...

Cdlt,

[MaiCaz]

Quand je teste séparément la partie Objet et Reçu. La partie Objet marche parfaitement.
C'est bien la partie Reçu qui pose problème.

J'ai testé le EntryID mais celui ci me renvoie à chaque fois un vide.

[User]

Quand je teste séparément la partie Objet et Reçu. La partie Objet marche parfaitement.
C'est bien la partie Reçu qui pose problème.

Essayer avec des numériques pour les dates :

Code :

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

1
2
3
4
5
 If Not IsNull(DLookup("[Statut]", "Tableau", " CDbl([Reçu])=" & CDbl(Message.ReceivedTime) )) Then
      oRst.Fields("Statut").Value = "Doublon"
   Else
      oRst.Fields("Statut").Value = "Importé"
   End If

J'ai testé le EntryID mais celui ci me renvoie à chaque fois un vide.

C'est normal, il faut alimenter la colonne EntryID avec les bons ID(s).

Cdlt,

[MaiCaz]

Si je comprends bien, il me faut alimenter les colonnes par EntryID du message puis tester le Dlookup sur ce champ.
Si c'est le cas, c'est ce que j'ai testé mais il n'extrait aucun EntryID du message.

En ce qui concerne la conversion, il ne l'accepte pas pour le champ [Reçu].

Merci encore.

[User]

Oui,

Il faut alimenter la table (le champ IDEmail) avec les bons ID(s).

Personnellement, pour les dates j'avais eu le m^me problème et la seule solution que j'avais trouvée pour pouvoir comparer les dates sous Outlook et les dates sous Access, c'était en parcourant tous les enregistrements du recordset et en comparant à chaque fois comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
trouve=false
 
   do until oRst1.eof 'parcourt des email
 
      If (oRst1!Recu = CDate(Message.ReceivedTime)) Then
         trouve=true
      end if
 
      oRst1.movenext 
 
   Loop
 
 
   If Trouve Then
      oRst.Fields("Statut").Value = "Doublon"
   Else
      oRst.Fields("Statut").Value = "Importé"
   End If
 
   ...

Cdlt,

[MaiCaz]

Merci.
J'ai pris le même genre de solutions pour éviter ce problème de Dlookup :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim rst As DAO.Recordset
        Dim dbl As Boolean
        Set rst = CurrentDb.OpenRecordset("SELECT [Statut] FROM [Tableau] WHERE [Reçu] = #" & strDate & "#", dbOpenSnapshot)
        dbl = IsNull(rst("Statut"))
 
        If Not (IsNull(DLookup("[Statut]", "Tableau", "[Objet]='" & str & "'")) Or dbl) Then
            oRst.Fields("Statut").Value = "Doublon"
        Else
            oRst.Fields("Statut").Value = "Importé"
        End If

[User]

Bonsoir,

J'ai quand même un doute et je me demande si le résultat ne vient pas du Or dans la condition, car normalement on utilise un peu les mêmes expressions dans le critère de la fonction DLookup et dans celui du sql.

Cdlt,