Discussion :

[zandeparis]

Bonsoir pourriez vous m'aidez je galere pour faire un truc super simple j'en suis sure ( je suis débutant je précise)

en fait j'ai une table avec un champ en format date. les valeurs de champ sont ecris dans ce format jj/mm/aaaa

moi je veux simplement changer le format de ce champ en aaaammjj !

j'ai tenté une requete update du genre :

Code sql :

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

UPDATE Table SET champ = FORMAT([champ],'YYYYMMDD');

mais ca me vide ma colonne lol

comme faire svp ? merci pour votre aide

[Snipah]

Bonjour,

Le format d'une date est une notion d'affichage et non de stockage.

[zandeparis]

ok mais alors ce que je ne comprends pas c'est que lorsque je vais dans format d'un champ dans ma table et que je tape aaaammjj j'ai bien ce que que je veux lorsque je regarde le champ de cette table lorsque je clique dans ma table

moi je voudrais simplement automatiser cela ! que les formats des champs que je selectionne soit affichés comme cela ! alors comment faire ? SVP !!!

[Tofalu]

En SQL, ce n'est pas possible, il va falloir recourir à la modification de l'objet DAO.Field correspondant en VBA, voir :

http://warin.developpez.com/access/dao/

[zandeparis]

et bien figure que ce turorat est mon livre de chevet ! mais je n'arrive pas a savoir quel est la propriété du field que je dois utilisé pour utiliser ensuite la fonction format !


j'ai essayé de faire une methode comme celle la :

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
24
25
26
27
28
29
30
Sub test_modifDate()
Dim oRst As DAO.Recordset
Dim oDb As DAO.Database
 
Set oDb = CurrentDb
 
Set oRst = oDb.OpenRecordset(table, dbOpenTable)
 
While Not oRst.EOF
 
    'Passe en mode Ajout
     oRst.Edit
    'Affecte les différents champs
    oRst.Fields("champ").Value = format(champ, "aaaammjj")
 
    'Met à Jour
   oRst.Update
'Passe au suivant
oRst.MoveNext
Wend
 
'Libération des objets²
oRst.Close
 
oDb.Close
 
Set oRst = Nothing
Set oDb = Nothing
 
End Sub

mets ce n'est pas la bonne propriété de field ! un peu aide ne serait pas de mal SVP !!

[Tofalu]

Merci de poursuivre dans la discussion VBA.