Récupérer une partie d'un champ dans un autre

Bonjour,

Regarde du côté de Split.
Un exemple d'utilisation :

Sub fhrejk()
Dim LeTexte As String
Dim varTitre As Variant
LeTexte = "Monsieur le Directeur"
varTitre = Split(LeTexte, " ")
msgbox varTitre(0)
End Sub

cette routine afiche "Monsieur"

à+

Arnaud
-------------------------------------------------
Conseils d'utilisation : http://users.skynet.be/mpfa/
Site Perso : http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------


Herve Matous wrote:
| Bonjour,
| Mon pb est le suivant :
| J'ai un champ Titre dans lequel on va trouver la totalité
| de la fonction de la personne concernée par la fiche.
| Ex :
| Monsieur le Directeur
| Monsieur le Maire
| Madame la Directrice
| Mademoiselle
| ...
|
| Un 2° champ Titre_Mailing dans lequel je voudrais
| récupérer uniquement Monsieur, Madame ou Mademoiselle
| suivant le cas sur les fiches existantes et sur les
| nouvelles fiches créées.
| J'ai essayé avec :
| Select Case Titre '= True
| Case Monsieur
| Titre_Mailing = "Monsieur"
| Case Madame
| Titre_Mailing = "Madame"
| Case Mademoiselle
| Titre_Mailing = "Mademoiselle"
| Case Else
| Titre_Mailing = Null
| End Select
|
| Mais ça ne colle pas
| Si quelqu'un a une idée...
| Merci d'avance pour vos propositions
|
| Herve

Salut,
Voilà ce que je ferais sur titre après update
Private Sub Titre_AfterUpdate()
If (Me.Titre Like "Monsieur*") Then
Me.TitreMailing = "Monsieur"
Else
If (Me.Titre Like "Madame*") Then
Me.TitreMailing = "Madame"
Else
Me.TitreMailing = "Mademoiselle"
End If
End If

End Sub

Je l'ai testé et ça marche.......Si j'ai bien compris :)

"Anor" <http://memoaccess.free.fr/anor/email.htm> a écrit dans le message de
news:uLdgDqwTEHA.644@tk2msftngp13.phx.gbl...

Bonjour,

Regarde du côté de Split.
Un exemple d'utilisation :

Sub fhrejk()
Dim LeTexte As String
Dim varTitre As Variant
LeTexte = "Monsieur le Directeur"
varTitre = Split(LeTexte, " ")
msgbox varTitre(0)
End Sub

cette routine afiche "Monsieur"

à+

Arnaud
-------------------------------------------------
Conseils d'utilisation : http://users.skynet.be/mpfa/
Site Perso : http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------


Herve Matous wrote:
| Bonjour,
| Mon pb est le suivant :
| J'ai un champ Titre dans lequel on va trouver la totalité
| de la fonction de la personne concernée par la fiche.
| Ex :
| Monsieur le Directeur
| Monsieur le Maire
| Madame la Directrice
| Mademoiselle
| ...
|
| Un 2° champ Titre_Mailing dans lequel je voudrais
| récupérer uniquement Monsieur, Madame ou Mademoiselle
| suivant le cas sur les fiches existantes et sur les
| nouvelles fiches créées.
| J'ai essayé avec :
| Select Case Titre '= True
| Case Monsieur
| Titre_Mailing = "Monsieur"
| Case Madame
| Titre_Mailing = "Madame"
| Case Mademoiselle
| Titre_Mailing = "Mademoiselle"
| Case Else
| Titre_Mailing = Null
| End Select
|
| Mais ça ne colle pas
| Si quelqu'un a une idée...
| Merci d'avance pour vos propositions
|
| Herve