Discussion :

[Myaccess]

Bonjour a tous,

Je cherche une source de contrôle ou une fonction qui me permet d'introduire une apostrophe a des nom de champ de texte spécifique.

Exemple:

Mettre " d' " Si mon [Nom]=Arriel ----> alors j'obtiens d'Arriel.

Merci beaucoup.

[marot_r]

Bonjour.

À mettre dans un module

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Public function GererElision(prmPrepostion as string, prmTexte as string) as string
     dim result as string
 
     select case right(prmTexte, 1)
        case "a", "â",  "e", "é", "ê", "è", "ë", "i", "o", "ô", "u", "y", _
               "h"
           'Il faudra peut-être ajouter des voyelles accentuées
           ' Je ne suis pas sur pour le "h"
           result=left(prmProposition,1)
        case else
           result=prmPreposition
     end select
 
     if len(result)=1 then
           result=result & "'"
        else
           result=result & " "
     end if
 
     GererElision=resullt
end function

Pour l'utiliser :

Code :

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

=GererElision("de", [Nom]) & [Nom]

A+

[Myaccess]

Merci Marot,

Je ne sais pas pourquoi ça ne marche pas.

En faite, je voulais faire cela dans un contenu de texte enrichi sur un Etat.

Voici un quelques extrait:

Sous la direction de Anne Dupont

Sous la direction de Hugo

Est-ce que je doit mettre le code en Déclaration ou sur le nom de mon champ ?

[Jean-Philippe André]

Salut,

ici tu peux adapter le code propose en forcant la minuscule :

Code :

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

1
2
3
select case LCase(right(prmTexte, 1))
        case "a", "â",  "e", "é", "ê", "è", "ë", "i", "o", "ô", "u", "y", _
               "h"

[marot_r]

Tu peux mettre la fonction dans le rapport si tu veux ou dans un module et l'utiliser quand tu mets en forme ton texte.
Poste le code qui met ton texte en forme pour une réponse plus précise.

Je ne sais pas pourquoi ça ne marche pas.

Comment cela ne marche pas ?

1. Cela ne fait rien
2. Cela génère une erreur ? Si oui, laquelle ?
3. Cela donne un résultat mais pas celui attendu. Si oui, lequel ?

A+

[marot_r]

Un autre solution serait de remplacer le " de " par " : " comme cela tu n'as pas à gérer l'élision.

A+

[Myaccess]

Ah ! vous avez raison Marot.

Oui, j'ai obtenus seulement le contenu du champ, quelle il est.

Mon champ contiens des adresses, alors je veut mettre l'apostrophe pas obligatoirement après chaque voyelle, mais je voudrai faire cela pour certains adresses à mon propre choix, ville: A, ville:B, ville:C...par exemple.

[marot_r]

Si tu ne garde pas l'idée des ":", il faudrait que tu en dises plus sur la façon dont tu remplis ton champ enrichi imprimé.

Par exemple une copie d'écran du contrôle et de sa propriété source ou le code VBA utiliser pour composer le texte.

A+

[Myaccess]

En fait, j'ai presque rien changé du tout dans les propriété des champs, mis à part le texte enrichi.

Voir ci-joint, i'imprime de l'écran.