salut,
 
est-ce qqun sait copier un champ (truc) au format string dans un autre (date) format date abrégée dans une meme table avec une marco ?
 
 
en fait je dois retraiter les valeurs d'une colonne 030221 en 21/02/2003 par exemple. comment fait on la boucle pour prendre les valeurs?
 
Dim maBase2 As Database
Dim maTable2 As TableDef
Dim monChamp As Object
Dim monChamp2 As Object
 
 
Set maBase2 = CurrentDb
Set maTable2 = maBase2.TableDefs("devise" )
Set monChamp = maTable2.Fields("d_date" )    'format string
Set monChamp2 = maTable2.Fields("d_date2" )  'format date
 
Do While monChamp.EOF
 
monChamp2 = CDate(Mid(monChamp, 5, 2) + "/" + Mid(monChamp, 3, 2) + "/" + "20" + Mid(monChamp, 1, 2))
 
Loop
 
 
 
 
 

Dirige toi vers www.vbfrance.com en attendant mieux !

Une bête requête mise à jour ne pourrait pas faire l'affaire ?
 

je pensais plutot à une boucle avec lecture de l'enregistrement puis retraitement puis enregistrement de l'enregitrement dans l'autre champ
 
 
mais la MàJ etait une bonne idée :
 
ca fonctionne avec ça :
ExtracChaîne([d_date];5;2)+"/"+ExtracChaîne([d_date];3;2)+"/"+"20"+ExtracChaîne([d_date];1;2)

Niveau rapidité : Tegu +1