OVH Cloud OVH Cloud

Fichier texte

17 réponses
Avatar
Jim
Bonjour,

J'en suis =E0 mes premi=E8res armes j'ai donc besoin de votre=20
aide.
J'ai import=E9 un fichier texte dans access. J'ai un champs=20
(texte) qui contient exemple la valeur suivante. 1.345,45.
Je veux convertir ce champs en num=E9rique mais il refuse=20
car il y a un point dans la valeur. Comment je peux faire=20
disparaitre ce point ?

Merci =E0 l'Avance

10 réponses

1 2
Avatar
Buddy
Salut

Replace(TaChaine, ".", "")
Ouala
Bye
Buddy

"Jim" a écrit dans le message de
news:134601c3df71$0331ce00$
Bonjour,

J'en suis à mes premières armes j'ai donc besoin de votre
aide.
J'ai importé un fichier texte dans access. J'ai un champs
(texte) qui contient exemple la valeur suivante. 1.345,45.
Je veux convertir ce champs en numérique mais il refuse
car il y a un point dans la valeur. Comment je peux faire
disparaitre ce point ?

Merci à l'Avance
Avatar
Raymond [mvp]
Bonjour.

Si tu es en version 2000 et +, tu fais une requête mise à jour comme ceci:
UPDATE table1 SET table1.monchamp = Replace([monchamp],".","");

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Jim" a écrit dans le message de
news:134601c3df71$0331ce00$
Bonjour,

J'en suis à mes premières armes j'ai donc besoin de votre
aide.
J'ai importé un fichier texte dans access. J'ai un champs
(texte) qui contient exemple la valeur suivante. 1.345,45.
Je veux convertir ce champs en numérique mais il refuse
car il y a un point dans la valeur. Comment je peux faire
disparaitre ce point ?

Merci à l'Avance
Avatar
jim
Est ce que REPLACE est une fonction que je dois utiliser
dans un module. Étant débutant j'ai donne la commande dans
une requête maj mais il ne reconnait cette focntion.


-----Original Message-----
Salut

Replace(TaChaine, ".", "")
Ouala
Bye
Buddy

"Jim" a écrit dans
le message de

news:134601c3df71$0331ce00$
Bonjour,

J'en suis à mes premières armes j'ai donc besoin de votre
aide.
J'ai importé un fichier texte dans access. J'ai un champs
(texte) qui contient exemple la valeur suivante.
1.345,45.

Je veux convertir ce champs en numérique mais il refuse
car il y a un point dans la valeur. Comment je peux faire
disparaitre ce point ?

Merci à l'Avance


.



Avatar
Je suis en Access 97
-----Original Message-----
Bonjour.

Si tu es en version 2000 et +, tu fais une requête mise à
jour comme ceci:

UPDATE table1 SET table1.monchamp = Replace
([monchamp],".","");


--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Jim" a écrit dans
le message de

news:134601c3df71$0331ce00$
Bonjour,

J'en suis à mes premières armes j'ai donc besoin de votre
aide.
J'ai importé un fichier texte dans access. J'ai un champs
(texte) qui contient exemple la valeur suivante.
1.345,45.

Je veux convertir ce champs en numérique mais il refuse
car il y a un point dans la valeur. Comment je peux faire
disparaitre ce point ?

Merci à l'Avance


.



Avatar
Raymond [mvp]
Perdu. maintenant on joue avec ton fric.

Ci-dessous la fonction donnée par Jessy pour faire du replace sous 97.
tu la places dans un module standard et tu gardes la syntaxe que je t'ai
donnée, ça devrait marcher.

Voici l'équivalent de la fonction Replace() sous Access 97 :
Public Function Replace(TextIn, SearchStr, Replacement, CompMode As
Integer)
Dim WorkText As String, Pointer As Integer
If IsNull(TextIn) Then
ReplaceStr = Null
Else
WorkText = TextIn
Pointer = InStr(1, WorkText, SearchStr, CompMode)
Do While Pointer > 0
WorkText = Left(WorkText, Pointer - 1) & Replacement & _
Mid(WorkText, Pointer + Len(SearchStr))
Pointer = InStr(Pointer + Len(Replacement), WorkText, _
SearchStr, CompMode)
Loop
ReplaceStr = WorkText
End If
End Function

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


a écrit dans le message de
news:12c501c3df74$866a0000$
Je suis en Access 97
Avatar
jim
Est-ce que c'est peine perdue si je suis en ACCess 97
Raymond ?

-----Message d'origine-----
Bonjour.

Si tu es en version 2000 et +, tu fais une requête mise à
jour comme ceci:

UPDATE table1 SET table1.monchamp = Replace
([monchamp],".","");


--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Jim" a écrit dans
le message de

news:134601c3df71$0331ce00$
Bonjour,

J'en suis à mes premières armes j'ai donc besoin de votre
aide.
J'ai importé un fichier texte dans access. J'ai un champs
(texte) qui contient exemple la valeur suivante.
1.345,45.

Je veux convertir ce champs en numérique mais il refuse
car il y a un point dans la valeur. Comment je peux faire
disparaitre ce point ?

Merci à l'Avance


.



Avatar
J'ai fait une copie intégrale dans le module et lordque je
compile le module j'obtiens l'erreur suivante
"Erreur de compilation . Variable non définie sur cette
variable ...... ReplaceStr =
Ecxusez mon non savoir

-----Original Message-----
Perdu. maintenant on joue avec ton fric.

Ci-dessous la fonction donnée par Jessy pour faire du
replace sous 97.

tu la places dans un module standard et tu gardes la
syntaxe que je t'ai

donnée, ça devrait marcher.

Voici l'équivalent de la fonction Replace() sous Access
97 :

Public Function Replace(TextIn, SearchStr, Replacement,
CompMode As

Integer)
Dim WorkText As String, Pointer As Integer
If IsNull(TextIn) Then
ReplaceStr = Null
Else
WorkText = TextIn
Pointer = InStr(1, WorkText, SearchStr, CompMode)
Do While Pointer > 0
WorkText = Left(WorkText, Pointer - 1) &
Replacement & _

Mid(WorkText, Pointer + Len(SearchStr))
Pointer = InStr(Pointer + Len(Replacement),
WorkText, _

SearchStr, CompMode)
Loop
ReplaceStr = WorkText
End If
End Function

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


a écrit dans le
message de

news:12c501c3df74$866a0000$
Je suis en Access 97


.



Avatar
Raymond [mvp]
remplace remplacestr par remplace . excuses je n'ai pas vérifié

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


a écrit dans le message de
news:149001c3df78$fdf11290$
J'ai fait une copie intégrale dans le module et lordque je
compile le module j'obtiens l'erreur suivante
"Erreur de compilation . Variable non définie sur cette
variable ...... ReplaceStr Ecxusez mon non savoir

-----Original Message-----
Perdu. maintenant on joue avec ton fric.

Ci-dessous la fonction donnée par Jessy pour faire du
replace sous 97.

tu la places dans un module standard et tu gardes la
syntaxe que je t'ai

donnée, ça devrait marcher.

Voici l'équivalent de la fonction Replace() sous Access
97 :

Public Function Replace(TextIn, SearchStr, Replacement,
CompMode As

Integer)
Dim WorkText As String, Pointer As Integer
If IsNull(TextIn) Then
ReplaceStr = Null
Else
WorkText = TextIn
Pointer = InStr(1, WorkText, SearchStr, CompMode)
Do While Pointer > 0
WorkText = Left(WorkText, Pointer - 1) &
Replacement & _

Mid(WorkText, Pointer + Len(SearchStr))
Pointer = InStr(Pointer + Len(Replacement),
WorkText, _

SearchStr, CompMode)
Loop
ReplaceStr = WorkText
End If
End Function

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


a écrit dans le
message de

news:12c501c3df74$866a0000$
Je suis en Access 97


.



Avatar
Raymond [mvp]
remplace replacestr par replace . excuses je n'ai pas vérifié

dur ce soir
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
Avatar
Par la suite ja fais ma requête MAJ comme mentionné plus
haut ? Avec comme fonction:
replace([monchamp];".";"") ?
Si c'est ça bien ça ne marche pas . Je recois encore
comme message UNDEFINE fonction REPLACE.

Je suis en sueur .......


-----Original Message-----
remplace replacestr par replace . excuses je n'ai pas
vérifié


dur ce soir
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


.



1 2