PatCatNat’s, site de Patrice MOREL
Vous êtes ici : Accueil » Inform@tic » Access » Affichage hypertextes

Affichage hypertextes

D 13 mars 2007     H 10:00     A Patrice MOREL    


Affichage des adresses de sites et courriels et numéros de téléphone en clair !

Access 97 Access 97 | Compatible |
Access 2003 Access 2003 | Compatible |

1 champ [NumAppel] pour les N° de téléphone ou fax.
1 champ [Net] pour les liens hypertexte et courriels

1 requête affichant un seul champ que cela soit [NumAppel] ou [Net].

Contact: VraiFaux(EstNull([NumAppel]);
                  [Net];
                  [NumAppel])

Les problèmes se situent sur l’affichage des champs de types de données Hypetexte.

1re problématique :
Le courriel s’affiche en valeur string (texte) au format d’ouverture d’une page web avec des # encadrant l’adresse derrière l’intitulé.
Exemple : patrice.morelbzh@sncf.fr affichera patrice.morelbzh@sncf.fr#http://patrice.morelbzh@sncf.fr#

Code pour enlever les 2 dièzes et le lien :

Contact: VraiFaux(EstNull([NumAppel]);
                  Gauche([Net];DansChaîne(2;[Net];"#")-1);
                  [NumAppel])

2e problématique :
Le lien hypertexte s’affiche de même en valeur string (texte) avec des # encadrant l’adresse mais sans intitulé devant.
Exemple : http:\patcatnats.free.fr affichera #http:\patcatnats.free.fr#

Code pour enlever les 2 dièzes encadrant le lien :

Contact : VraiFaux(Gauche([Net];1)="#";
                         ExtracChaîne(Gauche([Net];DansChaîne(2;[Net];"#")-1);2);
                         [Net])

Code final :

Contact: VraiFaux(EstNull([NumAppel]);

VraiFaux(DansChaîne([Net];"@")>0;

                  Gauche([Net];DansChaîne(2;[Net];"#")-1);

ExtracChaîne(Gauche([Net];DansChaîne(2;[Net];"#")-1);2));

                  [NumAppel])

Ou mieux avec une fontion créée à partir de ce code :

L’appel avec la fonction :

Dans la même rubrique

18 février 2010 – Liste déroulante

26 janvier 2010 – Requête croisée

5 mars 2008 – Evènement sur Onglet

7 février 2008 – Astuces et pièges VBA

8 décembre 2007 – Envoi de mails