j ai ecrit ce module
Sub test()
 
Dim Db As Database
Dim Rs As Recordset
Dim temp As Double
Set Db = Application.CurrentDb
Set Rs = Db.OpenRecordset("select * from test" )
   Do While Rs.EOF = False
   Rs.Edit
   temp = Rs("franc" ).Value
       Rs("euro" ).Value = temp / 6.55957
       MsgBox Rs("euro" ).Value
       Rs.MoveNext
   Loop
End Sub
ds la boite de dialog la valeur apparait bien en euro alors que le champs euro reste vide  
c ici que ca cloche Rs("euro" ).Value = temp / 6.55957
quelqu un a une idée?

[jfdsdjhfuetppo]--Message édité par veryfree--[/jfdsdjhfuetppo]

up
 

Je pense qu'un ptit Rs.Update devrait t'aider...
 
@++

Johan a écrit a écrit : Je pense qu'un ptit Rs.Update devrait t'aider...   @++

oui c etait exactement ca merci de ton aide
 

derniere chose
est ce que c possible toujour en vba de crée qq chose qui ressemblerai a ca
 
si champ x est  de type monaitaire alors
cree champs x_euro de type monaitaire
finsi
et ce sans connaitre le nom des champs d une table