Discussion :

[matel]

bonjour tout le monde,


j'ai un petit pb dans mon code, VBA + access dans mes dates..


En fait quand j'execute ce code, j'obtiens :

31/03/2006
24/03/2006
17/03/2006
03/10/2006
03/03/2006
24/02/2006
17/02/2006
02/10/2006
02/03/2006
27/01/2006

on peut voir pour le 10/03/2006 j'ai un petit soucis ...
Je n'arrive pas à trouver le problème...

merci à vous.

++

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
Sub test()
 
 Dim db As DAO.Database
    Set db = DBEngine.OpenDatabase("C:\Documents and Settings\mcolsenet\Mes documents\rochebrune.mdb")
 
Dim dateIni As Date
dateIni = "31 / 3 / 2006"
 
MsgBox dateIni
 
For i = 1 To 10
 
  sql = "INSERT INTO test VALUES (#" & dateIni & "#)"
 
 ' MsgBox sql
    ' Exécution de la requête
    db.Execute sql
 
dateIni = dateIni - 7
 
Next i
 
 End Sub

[Megaxel]

En fait, tu tombes dans l'écueil de l'inversion du jour et du mois entre Français et Anglo-saxons.
Moi, pour éviter ça, et éviter de devoir vérifier les paramètres régionaux et tout et tout, j'utilise tout le temps des "DateSerial".
Tu crées tes dates en disant:
-"ça, c'est le jour !"
-"ça, c'est le mois !"
-"ça, c'est l'année !"
Et ensuite, DateAdd(...) pour ajouter ou retirer des jours.
C'est plus lourd, comme syntaxe, mais au moins, on est sûr de ce qu'on fait.

[matel]

ok merci beaucoup je vais voir tout ca !


thanks

[matel]

pourrais tu me filer un petit exemple simple, je rame un peu la en fait ...


thanks

[Megaxel]

Allez, cadeau:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub DesDatesBien()
    Dim DateIni As Date
    Dim i As Integer
    DateIni = DateSerial(2006, 3, 31)
    'DateIni = #6/3/2006# : ça, par exemple, c'est le plantage assuré!
 
    For i = 1 To 5
        MsgBox DateIni
        DateIni = DateAdd("d", -7, DateIni)
 
    Next i
 
End Sub

[matel]

merci pour ton code...mais en vain ...

Il était grossomodo comme le mien et j'obtiens toujours :


31-mars-06
24-mars-06
17-mars-06
03-oct-06
03-mars-06

dans ma table 03-oct-06 au lieu de 10-mars-06, j'ai essayé de changer le format du champs rien a faire ....

je commence a desespéré ca fait plus d'une heure je suis dessus ...

[Megaxel]

Alors là...
Tu veux me montrer ton code tel qu'il est maintenant avec les DateSerial, s'il te plait.
Parce que je peux t'assurer que les dates en base sont bonnes.
Comment est-ce que tu les lis, ensuite? Ce n'est pas quand tu les réaffiches, pour vérifier, que tu fais une boulette? Si tu fais un "Format", ça ne va pas mieux?

[Megaxel]

Et pourquoi ton sujet est-il à ?