Discussion :

[papyxy]

Bonjour
dans une table, j'ai un champ déclaré en type de donnée "Date/Heure".
Lorsque je fournie une date, il la met au format "mm/jj/aa".
Est-il possible de l'obtenir au format "jj/mm/aa" ?
c'est dans ce format que lui entre la donnée (vbs) et elle est transformée dans la table.

[User]

Bonjour,

Concernant l'affichage des dates cela est définit dans les paramètres régionaux de Windows, sous "modifier format date/heure.."

Cdlt,

[papyxy]

bonjour
je suis allé voir dans les paramètres régionaux, et je constate que le format est français , sous la forme jj/mm/aaaa
C'est donc dans Access que le format est anglais.

[User]

Bonjour,

N'avez-vous pas défini ce paramètre au moment de l'installation d'office ?

Avez-vous regardé la propriété format au niveau du champ de la table ?

Cdlt,

[papyxy]

la date est au format général : jj/mm/aaaa hh:mn:sec

[User]

Pouvez-vous poster votre base sans données confidentielles ?

[papyxy]

j'ai mis en pièce jointe mon fichier zipé
vous pourrez constater dans la table LesClefs, que la date d'aujourd'hui des 3 derniers enregistrements n"est pas au format français.

[User]

Voila ce que j'obtiens comme affichage dans la table lesclefs :

NomTable	ValeurClef	dernmaj
articles	167	25/09/2017 09:31:37
Clients	36	11/09/2017 14:43:07
LesClefs	4	11/09/2017 12:03:32
..	..	..

Avez-vous la même chose ?

[tee_grandbois]

bonsoir,

Lorsque je fournie une date, il la met au format "mm/jj/aa".
Est-il possible de l'obtenir au format "jj/mm/aa" ?
c'est dans ce format que lui entre la donnée (vbs) et elle est transformée dans la table.

si c'est par VBA que les dates sont entrées, cela me parait normal puisque c'est le format US qui est utilisé dans cet environnement.

[papyxy]

bonjour
à User : Oui j'ai la même chose

donc on est obligatoirement dans le système US ! (faut faire avec?)

[User]

Bonjour,

Pouvez-vous poster votre code VBA ?

Cdlt,

[papyxy]

C'est un VBS ; voici la fonction qui met à jour :

Code :

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

1
2
3
4
5
Sub maj_LesClefs(n, tbl)
   sql = "Update LesClefs Set ValeurClef = " & n & _
         " , dernmaj = #" &  date & " " & time & "# WHERE NomTable = " & x(tbl)
         Execute sql
End Sub

[User]

Bonjour,

Dans ce cas la Date n'a pas besoin d'être formatée en utilisant la fonction Now() qui donne la date et l'heure actuelles, et en l'écrivant dans la chaîne SQL et non à l'extérieur :

Code :

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

1
2
3
4
5
Sub maj_LesClefs(n, tbl)
   sql = "Update LesClefs Set ValeurClef = " & n & _
         " , dernmaj = now() WHERE NomTable = " & x(tbl)
         Execute sql
End Sub

Cdlt,

[papyxy]

Avant j'avais essayé avec Now, mais j'ai le même résultat.

[User]

Oui, mais l'aviez-vous écrit dans la chaîne ou à l'extérieur de la chaîne SQL ?

[papyxy]

En VBA la fonction donne une date en français;
mais dans mon prog. HTA, la syntaxe ne fonctionne pas ; il faut encadrer "#" la date comme ce qui suit :

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
Sub maj_LesClefs 
   sql = "Update LesClefs Set  dernmaj = #" &  now()  &  "# WHERE NomTable = 'LesClefs'"
        Execute sql
End Sub
 
sub execute(cmd)
 on error resume next
        with CreateObject("ADODB.Connection")
            .Open    connstring
            .Execute cmd
        end with
if err.number<>0 then  _
        alert cmd & vbcr & err.description  & lig : window close
 on error goto 0
end sub

et le résultat est une date anglaise

PS. pour vérifier j'ai mis Now()-2 car aujourd'hui le 11/11 n'est pas significatif.

[tee_grandbois]

bonsoir,
vous n'avez pas répondu à la question de User, du coup, vous refaites l'erreur : il faut mettre now() à l'intérieur des apostrophes car c'est une fonction reconnue dans SQL :

Code :

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

 sql = "Update LesClefs Set  dernmaj =  now()  WHERE NomTable = 'LesClefs'"

et pour tester aujourd'hui

Code :

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

 sql = "Update LesClefs Set  dernmaj =  now()+2  WHERE NomTable = 'LesClefs'"

[papyxy]

merci cela fonctionne parfaitement après cette correction

je n'ai pas répondu à la question de User car je n'avai pas compris ce qu'il voulait dire.