Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Suppression par la gauche de 0

Suppression par la gauche de 0

7 réponses
Avatar
Cyrille
Bonjour
Je recherche une autre solution
Comment à la saisie d'un champs texte, je peux supprimer les "0" sasie par
la gauche pour ne garder que le reste.

ex : 000132 doit devenir 132
ex : 005480C doit devenir 5480C

merci d'avance
Signaler un problème avec ce contenu

7 réponses

Supprimer
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
Avatar
Pierre CFI [mvp]
bonjour
ici ma zone se nomme text0
Private Sub Texte0_AfterUpdate()
If IsNull(Me.Texte0) Or Me.Texte0 = "" Then Exit Sub
Do Until Left(Me.Texte0, 1) <> "0"
Me.Texte0 = Right(Me.Texte0, Len(Me.Texte0) - 1)
Loop

End Sub


--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"Cyrille" a écrit dans le message de news:
Bonjour
Je recherche une autre solution
Comment à la saisie d'un champs texte, je peux supprimer les "0" sasie par
la gauche pour ne garder que le reste.

ex : 000132 doit devenir 132
ex : 005480C doit devenir 5480C

merci d'avance



Avatar
Cyrille
Merci pour cette réponse qui marche à merveille.

Si je peux abuser, comment puis je faire une requete mise à jour qui
reprendrait les saisies de codes existants et qui enléverait les 0 comme pour
la saisie.

Merci d'avance


bonjour
ici ma zone se nomme text0
Private Sub Texte0_AfterUpdate()
If IsNull(Me.Texte0) Or Me.Texte0 = "" Then Exit Sub
Do Until Left(Me.Texte0, 1) <> "0"
Me.Texte0 = Right(Me.Texte0, Len(Me.Texte0) - 1)
Loop

End Sub


--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"Cyrille" a écrit dans le message de news:
Bonjour
Je recherche une autre solution
Comment à la saisie d'un champs texte, je peux supprimer les "0" sasie par
la gauche pour ne garder que le reste.

ex : 000132 doit devenir 132
ex : 005480C doit devenir 5480C

merci d'avance








Avatar
Pierre CFI [mvp]
.../...
dans un module indépendant
Function FaitMenage (Dequi)
If IsNull(Dequi) Or Dequi = "" Then Exit function
Do Until Left(Dequi, 1) <> "0"
FaitMenage = Right(Dequi, Len(Dequi - 1)
Loop

dans la req mise à jour
FaitMenage([ton champ])

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"Cyrille" a écrit dans le message de news:
Merci pour cette réponse qui marche à merveille.

Si je peux abuser, comment puis je faire une requete mise à jour qui
reprendrait les saisies de codes existants et qui enléverait les 0 comme pour
la saisie.

Merci d'avance


bonjour
ici ma zone se nomme text0
Private Sub Texte0_AfterUpdate()
If IsNull(Me.Texte0) Or Me.Texte0 = "" Then Exit Sub
Do Until Left(Me.Texte0, 1) <> "0"
Me.Texte0 = Right(Me.Texte0, Len(Me.Texte0) - 1)
Loop

End Sub


--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"Cyrille" a écrit dans le message de news:

Bonjour
Je recherche une autre solution
Comment à la saisie d'un champs texte, je peux supprimer les "0" sasie par
la gauche pour ne garder que le reste.

ex : 000132 doit devenir 132
ex : 005480C doit devenir 5480C

merci d'avance










Avatar
Eric
Bonjour Pierre,

Si je puis me permettre, ne serait-ce point ?

Function FaitMenage(Dequi)
If IsNull(Dequi) Or Dequi = "" Then Exit Function
Do Until Left(Dequi, 1) <> "0"
Dequi = Right(Dequi, Len(Dequi) - 1)
Loop
FaitMenage = Dequi
End Function

.../...
dans un module indépendant
Function FaitMenage (Dequi)
If IsNull(Dequi) Or Dequi = "" Then Exit function
Do Until Left(Dequi, 1) <> "0"
FaitMenage = Right(Dequi, Len(Dequi - 1)
Loop

dans la req mise à jour
FaitMenage([ton champ])



--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Avatar
Pierre CFI [mvp]
il est mauvais ce éric, il est mauvais, :o))))

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"Eric" a écrit dans le message de news:
Bonjour Pierre,

Si je puis me permettre, ne serait-ce point ?

Function FaitMenage(Dequi)
If IsNull(Dequi) Or Dequi = "" Then Exit Function
Do Until Left(Dequi, 1) <> "0"
Dequi = Right(Dequi, Len(Dequi) - 1)
Loop
FaitMenage = Dequi
End Function

.../...
dans un module indépendant
Function FaitMenage (Dequi)
If IsNull(Dequi) Or Dequi = "" Then Exit function
Do Until Left(Dequi, 1) <> "0"
FaitMenage = Right(Dequi, Len(Dequi - 1)
Loop

dans la req mise à jour
FaitMenage([ton champ])



--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr



Avatar
Cyrille
Ce programme ne marche pas dans une requete mise à jour, parce que la boucle
s'arrete jamais et il demande si je veut prendre en compte les x
modifications.

Merci quand meme


il est mauvais ce éric, il est mauvais, :o))))

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"Eric" a écrit dans le message de news:
Bonjour Pierre,

Si je puis me permettre, ne serait-ce point ?

Function FaitMenage(Dequi)
If IsNull(Dequi) Or Dequi = "" Then Exit Function
Do Until Left(Dequi, 1) <> "0"
Dequi = Right(Dequi, Len(Dequi) - 1)
Loop
FaitMenage = Dequi
End Function

.../...
dans un module indépendant
Function FaitMenage (Dequi)
If IsNull(Dequi) Or Dequi = "" Then Exit function
Do Until Left(Dequi, 1) <> "0"
FaitMenage = Right(Dequi, Len(Dequi - 1)
Loop

dans la req mise à jour
FaitMenage([ton champ])



--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr








Avatar
Pierre CFI [mvp]
oui, il faut prendre la solution de éric, l'exellent éric
je vais au coin, faire 200 lignes

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"Cyrille" a écrit dans le message de news:
Ce programme ne marche pas dans une requete mise à jour, parce que la boucle
s'arrete jamais et il demande si je veut prendre en compte les x
modifications.

Merci quand meme


il est mauvais ce éric, il est mauvais, :o))))

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"Eric" a écrit dans le message de news:
Bonjour Pierre,

Si je puis me permettre, ne serait-ce point ?

Function FaitMenage(Dequi)
If IsNull(Dequi) Or Dequi = "" Then Exit Function
Do Until Left(Dequi, 1) <> "0"
Dequi = Right(Dequi, Len(Dequi) - 1)
Loop
FaitMenage = Dequi
End Function

.../...
dans un module indépendant
Function FaitMenage (Dequi)
If IsNull(Dequi) Or Dequi = "" Then Exit function
Do Until Left(Dequi, 1) <> "0"
FaitMenage = Right(Dequi, Len(Dequi - 1)
Loop

dans la req mise à jour
FaitMenage([ton champ])



--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr