Discussion :

[aarlock]

bonjour a tous,

Code :

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

1
2
3
4
 
chMsg = "Tappez ici la date de dernière mise à jour des données du fichier"
DateMAJ = InputBox(chMsg, "Informations données", "mm/jj/aaaa", 2000, 2000)
CurrentDb.Execute "UPDATE table Set Date=#" & DateMAJ & "# WHERE IsNULL(Date);"

J'essaie de completer le champ vide date des enregistrements de ma table à l'aide de ce morceau de code.

Mon problème est que j'ai essayé ce code sur différents PC du bureau, et le format date n'est pas le même d'un PC à l'autre alors qu'ils ont a priori tous la meme config.

Lorsque je saisi la date 12/31/2005 (31 decembre 2005) j'obtiens soit 05/12/31 (5 decembre 1931 -> ce qui est un peu vieux comme date de derniere Mise a jour) soit 31/12/05 (31 decembre 2005 -> aleluia c'est ce que je souhaite obtenir)

D'ou vient ce probleme? comment je peux le resoudre?

J'ai essayé par la fonction DateSerial(year,month,day) ca ne change rien.J'ai l'impression que l'erreur vient dela requete UPDATE

merci

[FreeAccess]

Bonjour,
Sauf si je me trompe, mais il me semble que tu as un début de solution dans la F.A.Q. :
http://access.developpez.com/faq/?page=dates#DateFormat

Bonne continuation

[aarlock]

j'ai deja lu cet article, mais ca ne m'explique pas pourquoi sur certains PC j'obtiens un résultat et pourquoi sur d'autres le résultat est différent...

[pellec]

Bonjour,
A tout hasard, as-tu essayé quelque chose comme ça ?

Code :

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

1
2
3
chMsg = "Tappez ici la date de dernière mise à jour des données du fichier"
DateMAJ = InputBox(chMsg)
CurrentDb.Execute "UPDATE table Set Date=#" & format(DateMAJ,'mm/dd/yyyy') & "# WHERE IsNULL(Date);"

Ou alors essayer :

Code :

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

1
2
3
chMsg = "Tappez ici la date de dernière mise à jour des données du fichier"
DateMAJ = InputBox(chMsg)
CurrentDb.Execute "UPDATE table Set Date=# format(" & DateMAJ & ",'mm/dd/yyyy') # WHERE IsNULL(Date);"

[aarlock]

arf...

au temps pour moi j'ai trouvé mon erreur. Le code que je tentais d'executer etait en fait celui ci.

Code :

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

1
2
3
4
chMsg = "Tappez ici la date de dernière mise à jour des données du fichier"
DateMAJ = CDate(InputBox(chMsg, "Informations données", "mm/jj/aaaa", 2000, 2000))
CurrentDb.Execute "UPDATE table Set Date=#" & DateMAJ & "# WHERE IsNULL(Date);"

avec

Code :

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

Dim DateMAJ as DAte

forcément...

Merci quand meme pour votre aide, je vais demander à un ferrailleur ce qu'il peut faire d'un boulet comme moi

bonne apres'm