Bonjour,
Je me retrouve face à un problème que je n'arrive pas à résoudre.
Dans mon application, j'ai créé une table de log qui me permet de tracer tous les évènements.
le format de Cette table est le suivant :
NoUnique (clé) -> (num auto)
...
Date évènement -> date/heure format : date, général
...
Pour alimenter cette table, j'ai créé la fonction suivante :
Or, lorsque j'insère un enregistrement dans la base, le format du champ Date évènement est du type "MM/JJ/AAAA hh:mm:SS" alors que je m'attends à obtenir un format du type "JJ/MM/AAAA hh:mm:SS"
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 Sub insert_Evenement(NumEnr As Long, CodeEvenement As Integer, Optional _ ParamEvt As Variant, Optional Comment As String) Dim NumPAram As Variant, Commentaire As String, SQLInsertEvt As String NumPAram = "Null" Commentaire = "" If Not (IsMissing(ParamEvt)) Then: NumPAram = ParamEvt If Not (IsMissing(Comment)) Then: Commentaire = Comment SQLInsertEvt = _ "INSERT INTO [Trace opérations] " & _ "(ENR,[Date evenement], [Type évenement], [Paramètre optionnel], Commentaire) values(" & _ NumEnr & ", " & _ "#" & Now() & "#, " & _ CodeEvenement & ", " & _ NumPAram & ",""" & _ Commentaire & """);" DoCmd.SetWarnings False DoCmd.RunSQL SQLInsertEvt DoCmd.SetWarnings True End Sub
en utilisant le débugger je lance
et je récupère bien
Code : Sélectionner tout - Visualiser dans une fenêtre à part debug.print now
alors que dans ma table je trouve :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 07/04/2011 11:40:17
Nota : ce problème n'arrive que pour les date inférieures au 13 du mois
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 04/07/2011 11:40:17
Quelqu'un a-t-il une idée ?
Partager