Discussion :

[WITER]

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]

Salut,

Code :

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

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

cf l'aide sur Replace...

[random]

replace ltrim


pardon Faw

[Faw]

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]

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]

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]

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