Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Raymond [mvp]
Bonjour.
la bizarerie ne fonctionne pas que pour la virgule sinon tous les autres caractères fonctionnent. tu peux essayer MsgBox Replace("Zala", Chr(65), Chr(233)) je pense que la chaîne "," ajouté à des séparateurs , doit semer le trouble dans access. -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"defluc" a écrit dans le message de news:
Bonjour,
Replace("Z,l,", ",", "é") fonctionne, mais pas Replace("Z,l,", Chr(130), Chr(233))
Pourquoi ?
Bonjour.
la bizarerie ne fonctionne pas que pour la virgule sinon tous les autres
caractères fonctionnent.
tu peux essayer MsgBox Replace("Zala", Chr(65), Chr(233))
je pense que la chaîne "," ajouté à des séparateurs , doit semer le trouble
dans access.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"defluc" <defluc@skynet.be> a écrit dans le message de news:
41FB9A46.6040809@skynet.be...
Bonjour,
Replace("Z,l,", ",", "é") fonctionne, mais pas Replace("Z,l,", Chr(130),
Chr(233))
la bizarerie ne fonctionne pas que pour la virgule sinon tous les autres caractères fonctionnent. tu peux essayer MsgBox Replace("Zala", Chr(65), Chr(233)) je pense que la chaîne "," ajouté à des séparateurs , doit semer le trouble dans access. -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"defluc" a écrit dans le message de news:
Bonjour,
Replace("Z,l,", ",", "é") fonctionne, mais pas Replace("Z,l,", Chr(130), Chr(233))
Pourquoi ?
defluc
Comme le but est de remplacer le caractère «,» d'un ancien fichier ASCII par le «é» qui lui correspond dans le codage actuel, il était très simple, trop, de faire de la façon suivante : Private Function DosWinConv(TmpStr, m, n) As String Dim i As Integer Dim CharTable(15, 15) As String
For i = 1 To 15 DosWinConv = Replace(TmpStr, Chr(CharTable(m, i)), Chr(CharTable(n, i))) Next End Function
Cela a marché jusqu'hier, même pour chr(130).
Aujourd'hui, c'est bernique.
Raymond [mvp] a écrit:
Bonjour.
la bizarerie ne fonctionne pas que pour la virgule sinon tous les autres caractères fonctionnent. tu peux essayer MsgBox Replace("Zala", Chr(65), Chr(233)) je pense que la chaîne "," ajouté à des séparateurs , doit semer le trouble dans access.
Comme le but est de remplacer le caractère «,» d'un ancien fichier ASCII
par le «é» qui lui correspond dans le codage actuel, il était très
simple, trop, de faire de la façon suivante :
Private Function DosWinConv(TmpStr, m, n) As String
Dim i As Integer
Dim CharTable(15, 15) As String
For i = 1 To 15
DosWinConv = Replace(TmpStr, Chr(CharTable(m, i)), Chr(CharTable(n, i)))
Next
End Function
Cela a marché jusqu'hier, même pour chr(130).
Aujourd'hui, c'est bernique.
Raymond [mvp] a écrit:
Bonjour.
la bizarerie ne fonctionne pas que pour la virgule sinon tous les autres
caractères fonctionnent.
tu peux essayer MsgBox Replace("Zala", Chr(65), Chr(233))
je pense que la chaîne "," ajouté à des séparateurs , doit semer le trouble
dans access.
Comme le but est de remplacer le caractère «,» d'un ancien fichier ASCII par le «é» qui lui correspond dans le codage actuel, il était très simple, trop, de faire de la façon suivante : Private Function DosWinConv(TmpStr, m, n) As String Dim i As Integer Dim CharTable(15, 15) As String
For i = 1 To 15 DosWinConv = Replace(TmpStr, Chr(CharTable(m, i)), Chr(CharTable(n, i))) Next End Function
Cela a marché jusqu'hier, même pour chr(130).
Aujourd'hui, c'est bernique.
Raymond [mvp] a écrit:
Bonjour.
la bizarerie ne fonctionne pas que pour la virgule sinon tous les autres caractères fonctionnent. tu peux essayer MsgBox Replace("Zala", Chr(65), Chr(233)) je pense que la chaîne "," ajouté à des séparateurs , doit semer le trouble dans access.
Raymond [mvp]
j'ai fait mes essais sur 2003, quelle version as-tu ? as-tu fais des changements ces temps-ci ?
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"defluc" a écrit dans le message de news:
Comme le but est de remplacer le caractère «,» d'un ancien fichier ASCII par le «é» qui lui correspond dans le codage actuel, il était très simple, trop, de faire de la façon suivante : Private Function DosWinConv(TmpStr, m, n) As String Dim i As Integer Dim CharTable(15, 15) As String
For i = 1 To 15 DosWinConv = Replace(TmpStr, Chr(CharTable(m, i)), Chr(CharTable(n, i))) Next End Function
Cela a marché jusqu'hier, même pour chr(130).
Aujourd'hui, c'est bernique.
j'ai fait mes essais sur 2003, quelle version as-tu ? as-tu fais des
changements ces temps-ci ?
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"defluc" <defluc@skynet.be> a écrit dans le message de news:
41FBAEEF.3000306@skynet.be...
Comme le but est de remplacer le caractère «,» d'un ancien fichier ASCII
par le «é» qui lui correspond dans le codage actuel, il était très simple,
trop, de faire de la façon suivante :
Private Function DosWinConv(TmpStr, m, n) As String
Dim i As Integer
Dim CharTable(15, 15) As String
j'ai fait mes essais sur 2003, quelle version as-tu ? as-tu fais des changements ces temps-ci ?
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"defluc" a écrit dans le message de news:
Comme le but est de remplacer le caractère «,» d'un ancien fichier ASCII par le «é» qui lui correspond dans le codage actuel, il était très simple, trop, de faire de la façon suivante : Private Function DosWinConv(TmpStr, m, n) As String Dim i As Integer Dim CharTable(15, 15) As String
For i = 1 To 15 DosWinConv = Replace(TmpStr, Chr(CharTable(m, i)), Chr(CharTable(n, i))) Next End Function
Cela a marché jusqu'hier, même pour chr(130).
Aujourd'hui, c'est bernique.
defluc
Je suis en Access 2000 sous windows 2000. Je n'ai pas fait de changement conscient. Ceci dit, c'est la deuxième fois que j'ai une fonction qui tout à coup ne fonctionne plus. La fois précedente, c'était pour affecter un champs vide à une zone de texte. J'ai du utiliser la fonction NZ pour régler le problème. Quelque jours après, par curiosité, je supprime cette fonction de mon instruction et cela remarche comme auparavant.
Ce qui me fait penser que quelque chose rend l'interpréteur VBA instable, mais quoi ?
Raymond [mvp] a écrit:
j'ai fait mes essais sur 2003, quelle version as-tu ? as-tu fais des changements ces temps-ci ?
Je suis en Access 2000 sous windows 2000.
Je n'ai pas fait de changement conscient.
Ceci dit, c'est la deuxième fois que j'ai une fonction qui tout à coup
ne fonctionne plus.
La fois précedente, c'était pour affecter un champs vide à une zone de
texte. J'ai du utiliser la fonction NZ pour régler le problème. Quelque
jours après, par curiosité, je supprime cette fonction de mon
instruction et cela remarche comme auparavant.
Ce qui me fait penser que quelque chose rend l'interpréteur VBA
instable, mais quoi ?
Raymond [mvp] a écrit:
j'ai fait mes essais sur 2003, quelle version as-tu ? as-tu fais des
changements ces temps-ci ?
Je suis en Access 2000 sous windows 2000. Je n'ai pas fait de changement conscient. Ceci dit, c'est la deuxième fois que j'ai une fonction qui tout à coup ne fonctionne plus. La fois précedente, c'était pour affecter un champs vide à une zone de texte. J'ai du utiliser la fonction NZ pour régler le problème. Quelque jours après, par curiosité, je supprime cette fonction de mon instruction et cela remarche comme auparavant.
Ce qui me fait penser que quelque chose rend l'interpréteur VBA instable, mais quoi ?
Raymond [mvp] a écrit:
j'ai fait mes essais sur 2003, quelle version as-tu ? as-tu fais des changements ces temps-ci ?
