Bonjour,

Voilà j'ai un problème de date (je pense date à l'américaine) que je n'arrive pas à solutionner.

Voici mon code :
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
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub Maj_Outlook_Click()
Dim MaBase As Database, Tbl_RegrOutlook As Object
Dim SqlInsert As String, StrTable As String
Dim AncienneDate As String, Date_Cr As Date, NbEnr As Integer
Set MaBase = CurrentDb
Set Tbl_RegrOutlook = MaBase.OpenRecordset("Tbl_RegrOutlook", dbOpenTable)
 
'If IsNull(Me.Cbo_Cial) Or (Me.Cbo_Cial) = "" Then
 '   MsgBox "Vous devez choisir un commercial !"
 '   Else
 '   End If
'Exit Sub
 
'Test sur la date de la table tbl_RegrOutlook
If IsNull(Me.DateDernMAJ) Then
    AncienneDate = "01/01/2000"
    Else
    AncienneDate = Me.DateDernMAJ
    End If
 
StrTable = Me.Cbo_Outlook
 
SqlInsert = " INSERT INTO Tbl_RegrOutlook ( Nom_Client, Commercial, [Date], Message, Sujet )"
SqlInsert = SqlInsert + " SELECT " & "[" & StrTable & "]" & ".Objet," & "[" & StrTable & "]" & ".[Nom d'expéditeur],"
SqlInsert = SqlInsert + "[" & StrTable & "]" & ".[Créé le]," & "[" & StrTable & "]" & ".[Contenu],"
SqlInsert = SqlInsert + "[" & StrTable & "]" & ".[Sujets normalisés]"
SqlInsert = SqlInsert + " FROM " & "[" & StrTable & "]"
SqlInsert = SqlInsert + " WHERE (((" & "[" & StrTable & "]" & ".[Créé le])> " & "#" & AncienneDate & "#));"
 
        MsgBox "Vous avez ajouté " & MaBase.RecordsAffected & " nouveaux Compte-Rendu."
        CurrentDb.Execute (SqlInsert), dbFailOnError
 
End Sub
Par exemple dans mon formulaire ma date est "06/04/2006 09:31:57"
et elle devient "04/06/2006 09:31:57" dans ma requête.

J'ai pensé faire un Format(date;jj) & "/" & Format(date;mm) & "/" & format(date;yyyy) mais je bloque sur les heures (qui sont indispensables).

Avez vous une idée pour résoudre mon problème.

Ah et puis j'ai également une anomalie pour obtenir le nombre d'enregistrement mis à jour, j'utilise :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
MsgBox "Vous avez ajouté " & MaBase.RecordsAffected & " nouveaux Compte-Rendu."
mais la valeur est tjrs 0.

Merci d'avance.

Daniel