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

Rechercher

Traducteur



Les plus lus

1.  Notices diverses

2.  Le jeu de palets

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

4.  Expos et réalisations

5.  Au fil de l’eau


5 articles au hasard

1.  Une taupe à Maffliers ?

2.  Qui était Jésus ?

3.  BD et musique de concert

4.  C’est le 11 novembre !

5.  Imprimantes


Les plus populaires

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

2.  Drôle de vie russe !

3.  Çà bosse !

4.  Du muguet à la fête des travailleurs !

5.  Supprimer la pub de PDF Architecte