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.

1ère 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])

2ème 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

Rechercher

Traducteur



Les plus lus

1.  Notices diverses

2.  Le jeu de palets

3.  Expos et réalisations

4.  Au fil de l’eau

5.  La rue


5 articles au hasard

1.  L’Homme parle - La Crise

2.  Télé chargée

3.  68ème anniversaire de l’Appel

4.  Juridique

5.  L’âne


Les plus populaires

1.  Notices diverses

2.  Travail sur chaînes de caractères.

3.  Son propre SMTP

4.  Les chiffres des "privilèges"

5.  Import tous fichiers Txt d’un répertoire