Discussion :

[gwenagan]

Bonjour à toutes et à tous,
Je fais souvent appel à vous pour de soucis de formats de dates. cette fois, je veux créer un planning à partir d'un code qui utilise un Do Loop pour une année entière.
Dans mon code, le date apparait bien ainsi : 01/02/2023 mais quand je l'insert dans ma table, le résultat est : 30/12/1899. Dans mon code c'est au format US et dans ma table en FR. comment puis je convertir ?

Le champ de ma table est "date abrégée" et dans mon code format(MaDate,"dd/mm/yyyy")

Je vous remercie par avance et vous souhaite une bonne journée.

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
 
MaDate = WANNEE
Do
CTRL_DATE1 = Format(MaDate, "yyyy")
CTRL_DATE2 = Format(WANNEE, "yyyy")
 
If CTRL_DATE1 <> CTRL_DATE2 Then
Exit Do
End If
 
DoCmd.SetWarnings False
 
WSQL = "INSERT INTO T_DATE_CALENDRIER ( DATE_CALENDRIER ) "
WSQL = WSQL + "SELECT " & Format(MaDate, "dd/mm/yyyy") & " AS Expr1;"
 
DoCmd.RunSQL WSQL
DoCmd.SetWarnings True
MaDate = MaDate + 1
Loop
 
End Sub

[hyperion13]

Salut
En L14 ne serait-ce pas plus tôt Format(MaDate, "mm/dd/yyyy")?

[gwenagan]

Bonjour et merci pour votre aide.
Le résultat reste inchangé, j'obtiens toujours dans ma table 30/12/1899.

[tee_grandbois]

bonsoir,

Le champ de ma table est "date abrégée" et dans mon code format(MaDate,"dd/mm/yyyy")

Je vous remercie par avance et vous souhaite une bonne journée.

Code :

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

MaDate = WANNEE

que vaut WANNEE ? on ne le voit pas dans ton code

[gwenagan]

Bonsoir et encore un grand merci pour votre aide.
WANNEE est un champs indépendant (format : Date,abrégé et masque de saisie : 00/00/0000) de mon formulaire dans lequel je saisi la date du premier jour de l'année que je veux créer.
Je tape donc 01/01/2023 dans ce champs. MaDate prends cette valeur 01/01/2023.

[tee_grandbois]

j'ai trouvé: il manque les apostrophes autour de la date:

Code :

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

INSERT INTO T_DATE_CALENDRIER ( DATE_CALENDRIER ) SELECT 01/01/2023 AS Expr1;

Code :

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

WSQL = WSQL + "SELECT '" & Format(MaDate, "dd/mm/yyyy") & "' AS Expr1;"