Access-3stone - Forum - Questions générale

1 membre

Connectés : ( personne )

Sujet n° 721	Fonction Eval
le 13/05/2014 : 18:47 par flomen visiteur	Bonjour,J'ai besoin de vos compétencesComment résoudre mon problème (voir la fonction TestCSV ci-dessous Function Testeval() ' Remplacement caractere # par la virgule ' Dans la table j'ai 99 champs de F1 à F99 Set CSV = CurrentDb.OpenRecordset("Temp_CSV", dbOpenDynaset) If CSV.EOF = True Then GoTo finCSV.MoveFirstDo While CSV.EOF <> True CSV.Edit CSV!F1 = Replace(CSV!F1, "#", ",") CSV!F2 = Replace(CSV!F2, "#", ",") ' Etc jusqu'à F99 ' Comment éviter de mettre 99 lignes peut être en utilisant Eval, si oui comment CSV.Update CSV.MoveNextLoopCSV.Close: Set CSV = Nothing Exit Function Merci Rectifié par 3Stone le 13/05/2014 : 21:26

Réponse n° 1 -------- le 13/05/2014 : 21:42 par 3Stone Administrateur	Bonjour, Il faut utiliser une boucle et changer l'écriture... Code : `Dim i as Interger For i = 1 to 99 ... CSV("F" & i ) = Replace(CSV("F" & i), "#",",") Next i` Ceci dit, 99 champs pour une table... ce n'est pas forcément idéal. Cordialement, Pierre (3Stone)