Code pour supprimer caractere dans formulaire

**WITER** · 24/01/2007, 17h52

Bonjour à tous, je recherche un code pour supprimer les "=" et les espaces inutiles qui ce trouvent dans une zone de texte "Texte150_" d'un de mes formulaires.

Le texte se presente comme ceci dans la zone de texte:

EXEMPLE:

AUTRE CABLE TYPE 070663 011340 977 HAUTEUR 1068 LARGEUR1314 ==================

et je voudrais le voir comme ceci:

AUTRE CABLE TYPE 070663 011340 977 HAUTEUR 1068 LARGEUR1314

Merci d'avance pour votre aide

**Faw** · 24/01/2007, 18h31

Salut,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.MaZtx = Replace(Me.MaZtx, "=", "")

cf l'aide sur Replace...

**random** · 24/01/2007, 18h31

replace ltrim

pardon Faw

**Faw** · 24/01/2007, 18h42

Envoyé par random

replace ltrim

pardon Faw

je t'en prie, bien au contraire, la combinaison de replace et trim répond plus
complètement à la question

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.MaZtx = LTrim(RTrim(Replace(Me.MaZtx, "=", "")))

Merci random.

**WITER** · 24/01/2007, 19h11

Merci pour vos reponses, mais je suis un novice en code access, comment doije ecrire le code complet.

J'ai ecris:

Private Sub Texte150_BeforeUpdate(Cancel As Integer)

Me.MaZtx = LTrim(RTrim(Replace(Me.MaZtx, "=", "")))

End Sub

ca ne marche pas.

**Oleff** · 24/01/2007, 19h17

A priori il faut que tu remplaces

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

me.maZtx

Par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.texte150

Ou le nom de ta zone de texte quel qu'il soit...

**WITER** · 25/01/2007, 01h13

Re bonjour,
meme en écrivant le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Texte150_BeforeUpdate(Cancel As Integer)
Me.Texte150 = LTrim(RTrim(Replace(Me.Texte150, "=", "")))
End Sub

j'ai toujour les "=" dans ma zone de texte150, quelqu'un serait il pourquoi le code ne fonctionne pas ?

Merci encore pour votre aide

**cafeine** · 25/01/2007, 10h33

Hello,

tout d'abord inutile de combiner LTrim et RTrim, autant utiliser Trim()

Ensuite ton problème vient du choix de l'événement et de ce que tu veux faire :
- si tu veux corriger les données dans la table : tu dois faire une requête mise à jour
- si tu veux juste modifier l'affichage : place le code sur l'événement Activation de ton formulaire (Current)

**WITER** · 25/01/2007, 12h20

En faite j'ai trouvé pourquois ca marchais pas, j ai mis le code dans un bouton et il fonction, il fonctionne également quand je le met dans les propriétées de "texte150" sur souris déplacée.

PAR CONTRE JAI ENCORE UN PROBLEM.

Il me faudrais une variable dans le code, en effet quand je deplace la souris et que la zone "texte150" est vide , la macro plante.
Comment rajouté une condition à lla macro

Private Sub Texte150_Click()
Me.Texte150 = Trim(Replace(Me.Texte150, "=", ""))
End Sub

pour que si le champ "texte150" est vide elle ne s'execute pas.

MERCI ENCORE POUR VOTRE AIDE PRECIEUSE

**Faw** · 25/01/2007, 12h36

Comme ça ça devrait passer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.MaZtx = Trim(Replace(Nz(Me.MaZtx, ""), "=", ""))

Merci caf'. moi boulet

**Faw** · 25/01/2007, 13h07

Cela vient des attributs de ton champ "texte150" de la table 'TABLE 2' .
Regarde les propriétés "Nul interdit" / "Chaine vide autorisée" de ce champ...

**Tofalu** · 25/01/2007, 13h15

Excusez moi de faire interruption, mais pourquoi un évènement ?

Ce ne serait pas plus simple de mettre cette formulaire dans la propriété Source de la zone de texte ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=Trim(Replace(MonChamp;"=";""))

?

**WITER** · 25/01/2007, 13h17

le champ est sur: nul interdit: non
chaine vide autorisé: non

ma table est une table attaché elle est non modifiable pour c'est critéres

**Faw** · 25/01/2007, 13h28

chaine vide autorisé: non donc ton champ ne peut pas être vide.
Je pense que ça n'a rien à voir avec le Trim(), texte150 est dépendant et met
à jour la table. Si texte150 est vide alors ça plante...normal il y a une contrainte
sur le contenu de ce champ...A la création / Màj d'un enregistrement, il faut que
texte150 soit renseigné par autre chose que "".

Ps: Mets les balises de code ou au train où va cafeine, il va rester que les réponses

**WITER** · 26/01/2007, 14h09

Rebonjour à tous, j'ai toujour un probleme avec mon code:

Private Sub Texte150_Click()
Me.Texte150 = Trim(Replace(Me.Texte150, "=", ""))
End Sub

J'ai don crée une requete mise à jour avec ce code:

SupprGauche(SupprDroite(Replace([Anomalies TSI];"=";"")))

Mais j'ai un message:
Fonction 'replace' non définie dans l'expression

Quelqu'un pourrait me dire d'ou vien le probleme
merci une foi de plus pour votre aide