Access 97 | Compatible |

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 :