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]
Bonsoir.
utilise la fonction replace comme ceci:
Dim Texte As String Dim début As Long Dim fin As Long Texte = "1234%abc%5678%CDE%9" Do début = InStr(1, Texte, "%") If début = 0 Then Exit Do fin = InStr(début + 1, Texte, "%") Texte = Replace(Texte, Mid(Texte, début, fin - début + 1), "") DoEvents Loop MsgBox Texte
copie cette fonction dans ton formulaire et teste la en changeant simplement le texte.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"dom" a écrit dans le message de news:022701c3c3fb$d639ddb0$ bonjour,
J'ai un champ sous access xp avec des enregistrements de cette forme
abc%defg%hij klmno%qsd%mlk azerty%wxcv%azerr
Comment faire pour garder pour les enregistrements :
abchij klmnomlk azertyazerr
J'ai essayé d'utiliser dans les critères la formule suivante : <>"%xxx%" mais cela n'a pas l'air de fonctionner
Quelqu'un peut-il m'aider
Dom
Bonsoir.
utilise la fonction replace comme ceci:
Dim Texte As String
Dim début As Long
Dim fin As Long
Texte = "1234%abc%5678%CDE%9"
Do
début = InStr(1, Texte, "%")
If début = 0 Then Exit Do
fin = InStr(début + 1, Texte, "%")
Texte = Replace(Texte, Mid(Texte, début, fin - début + 1), "")
DoEvents
Loop
MsgBox Texte
copie cette fonction dans ton formulaire et teste la en changeant simplement
le texte.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"dom" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:022701c3c3fb$d639ddb0$a101280a@phx.gbl...
bonjour,
J'ai un champ sous access xp avec des enregistrements de
cette forme
abc%defg%hij
klmno%qsd%mlk
azerty%wxcv%azerr
Comment faire pour garder pour les enregistrements :
abchij
klmnomlk
azertyazerr
J'ai essayé d'utiliser dans les critères la formule
suivante : <>"%xxx%" mais cela n'a pas l'air de fonctionner
Dim Texte As String Dim début As Long Dim fin As Long Texte = "1234%abc%5678%CDE%9" Do début = InStr(1, Texte, "%") If début = 0 Then Exit Do fin = InStr(début + 1, Texte, "%") Texte = Replace(Texte, Mid(Texte, début, fin - début + 1), "") DoEvents Loop MsgBox Texte
copie cette fonction dans ton formulaire et teste la en changeant simplement le texte.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"dom" a écrit dans le message de news:022701c3c3fb$d639ddb0$ bonjour,
J'ai un champ sous access xp avec des enregistrements de cette forme
abc%defg%hij klmno%qsd%mlk azerty%wxcv%azerr
Comment faire pour garder pour les enregistrements :
abchij klmnomlk azertyazerr
J'ai essayé d'utiliser dans les critères la formule suivante : <>"%xxx%" mais cela n'a pas l'air de fonctionner
