[AC-2003] Suppression mot dans champ [Résolu]

[lucas-18]

Bonjour,

J'ai un champ contenant les informations suivantes :

179240T40001 personne de contact : de Castro Chloé - (03) 555 55 55

Le n° 179240T40001 varie selon les enregistrement et le nom prénom et téléhpone aussi

J'aimerais ne garder que dans le champ le nom prénom et téléphone (à partir de Castro donc dans ce cas-ci)

Comment m'y prendre ? Avec une requête mise à jour ?

[dok flint]

Bonjour ,
Il est possible de créer un champ temporaire sur le formulaire et tu lui donne comme source de données = =ExtracChaîne([champ1];37;34)
ou : 37 désigne le nombre de caractères à enlever et 34 de ceux à garder
puis tu n'a qu'à créer un requête :

Code :

UPDATE Table1 SET Table1.champ1 = Formulaires!Table1!Texte38;

texte38 : c'est le champ temporaire
table1 : c'est la table des données
champ1: le champ contenant les informations à diminuer
mais c'est plus prudent de créer un autre champ dans le quel tu met la mise à jour car si tu exécute la requête une 2 ème fois elle va diminuer encore les infos du champ .
A+

[lucas-18]

merci pour ta si rapide réponse mais j'ai un problème : les données du champ peuvent être remplies des manières suivantes :
120501T60021
132923T20001personne de contact : Castro Chloé
personne de contact : Castro Chloé
ou champ vide

[dok flint]

Bonjour,
Si j'ai bien compris tu a des données d'une autre source et tu veux les "polir" un peut pour ne garder que le nom.
Une question : est ce que le format de saisie est respecter pour tous les enregistrements c'est a dire est ce que le nom quand il existe il est toujours le dernier ,car comme ça on pourra faire un test de la longueur du texte dans le champ avant l'extraction .
A+

[lucas-18]

Ma table contient ce champ qui contient des données que j'aimerais nettoyer. Ces données peuvent se présentées de 4 manières :

- Le champ est vide
- 120501T60021
- 163445T20001personne de contact : Castro Chloé - (02)555 55 55
- personne de contact : Castro Chloé - (02)555 55 55
Je n'aimerais dans mon champ que garder cela :
Castro Chloé - (02)555 55 55

[lucas-18]

J'ai bien trouvé une solution pour supprimer "personne de contact :"

Code :

Me.contact.Value = Replace(Me.contact.Value, " personne de contact : ", " ")

mais pas pour supprimer le n° de contrat comprenant 12 caractères et se situant avant "personne de contact :" ou seul dans le champ

[User]

Salut,

Regarde du côté des fonctions InStr et Mid en anglais

A+

[lucas-18]

oui j'y ai pensé si le n° de contrat à 12 chiffres précède personne de contact mais dans le cas ou le champ ne reseigne que le n° de contrat ...

[User]

Dans ce cas la fonction InStr renvoie 0 et tu effectue un autre traitement

[marsouin_89]

Bonjour lucas,

Pour ma part, voilà comment je ferais :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Function AnalyseMot(MonChamp As String) As String
 
    If Len(MonChamp) = 0 Then 'Le champ est vide
        AnalyseMot = ""
    'Le champ contient ce caractère
    '163445T20001personne de contact : Castro Chloé - (02)555 55 55 ou
    'personne de contact : Castro Chloé - (02)555 55 55)
    ElseIf MonChamp Like "*:*" Then
        AnalyseMot = Mid(MonChamp, InStr(MonChamp, ":") + 1)
    Else 'Il ne reste que la solution où il n'y a que le n° de contrat
        AnalyseMot = MonChamp
    End If
End Function

Cordialement

Christophe

[lucas-18]

Bonjour,

Je suppose que je dois faire référence à cette fonction sur l'évènement de mon formulaire mais lequel ? sur activation ? et de quelle manière ?

[User]

Salut,

Sur la propriété source contrôle de la zone de texte ou tu souhaite faire apparaître ce résultat et à supposé que la chaine d'origine se trouve dans [Champ1] :

Code :

=AnalyseMot([Champ1])

Remarque:

Cette fonction doit figurer dans un module indépendant
A+

[lucas-18]

Ca marche pour mes champs commencant par personne de contact.
Par contre si mon champ était vide , il me met #ERREUR maintenant et pour mes champs qui ne contiennent que le n° de contrat commencant par 1 suivi de 11 caractères ? une solution peut etre ?

[User]

Re,

Ce n'est pas moi l'auteur de la fonction

Pour le cas ou le champ1 est vide tu peux faire :

Code :

=iif(IsNull([Champ1]);Null;AnalyseMot([Champ1]))

A+

[lucas-18]

euh dsl mais je dois placer ca ou dans mon code ?

[User]

A adapter et copier à la main toujours sur la propriété Source contrôle

[lucas-18]

Envoyé par User

A adapter et copier à la main toujours sur la propriété Source contrôle

ok mais j'ai déjà ca comme source controle pour mon champ :

Code :

=AnalyseMot([Champ1])

[User]

tu le remplaces...

[lucas-18]

bêtequestion dsl ...
merci bcp
il me reste + qu'à supprimer mes champs qui comment par 1 suivi de 11 caractères ...