OVH Cloud OVH Cloud

Copier le premier nom

2 réponses
Avatar
Marie-Claire
Bonjour,
Dans un formulaire je dois écrire le premier mot contenu dans un champ dans
un autre or en fesant comme ça:
Private Sub Champ1_AfterUpdate()
Me.Champ2 = Me.Champ1.Column(1)

J'ai tout le texte contenu dans le champ qui s'écrit.

Par exemple si dans le champ1 il est écrit "Voyageur intermitant, Amérique
Latine"
J'aimerais que dans le Champ2 on ne retrouve que "Voyageur"
Pouvez-vous m'aider s'il-vous-plaît.
Marie-Claire
--
Marie-Claire

2 réponses

Avatar
Eric
Bonjour,

Et avec :
Private Sub Texte0_AfterUpdate()
If InStr(Me.Texte0, Chr(32)) > 0 Then
Me.Texte2 = Left(Me.Texte0, InStr(Me.Texte0, Chr(32)) - 1)
Else
Me.Texte2 = Me.Texte0
End If
End Sub

Bonjour,
Dans un formulaire je dois écrire le premier mot contenu dans un champ dans
un autre or en fesant comme ça:
Private Sub Champ1_AfterUpdate()
Me.Champ2 = Me.Champ1.Column(1)

J'ai tout le texte contenu dans le champ qui s'écrit.

Par exemple si dans le champ1 il est écrit "Voyageur intermitant, Amérique
Latine"
J'aimerais que dans le Champ2 on ne retrouve que "Voyageur"
Pouvez-vous m'aider s'il-vous-plaît.
Marie-Claire


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

Avatar
Marie-Claire
Merci Eric ça marche super
Marie-Claire
--
Marie-Claire



Bonjour,

Et avec :
Private Sub Texte0_AfterUpdate()
If InStr(Me.Texte0, Chr(32)) > 0 Then
Me.Texte2 = Left(Me.Texte0, InStr(Me.Texte0, Chr(32)) - 1)
Else
Me.Texte2 = Me.Texte0
End If
End Sub

Bonjour,
Dans un formulaire je dois écrire le premier mot contenu dans un champ dans
un autre or en fesant comme ça:
Private Sub Champ1_AfterUpdate()
Me.Champ2 = Me.Champ1.Column(1)

J'ai tout le texte contenu dans le champ qui s'écrit.

Par exemple si dans le champ1 il est écrit "Voyageur intermitant, Amérique
Latine"
J'aimerais que dans le Champ2 on ne retrouve que "Voyageur"
Pouvez-vous m'aider s'il-vous-plaît.
Marie-Claire


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