Access et le web
Comment, en Visual Basic, charger une page web depuis Access ?
Solution
Utilisez la méthode FollowHyperlink de l’objet Application.
Par exemple :
|
1 2 3 |
public sub Surfer() Application.FollowHyperlink "http://www.google.com" end sub |
On peut bien sûr améliorer la procédure Surfer() de façon à paramétrer l’adresse du site web.
Variante
La méthode FollowHyperlink peut être une alternative à l’utilisation du type de champs « Lien hypertexte mailto ». En d’autres termes : vous souhaitez stocker des adresses e-mail dans un champ, mais vous ne voulez pas les faire précéder de mailto:, que ce soit en manuel, ou en automatique. Voici une solution :
- Créez un champ de type Texte (et non Lien hypertexte) dans une table. Nommez-le par exemple
Email. - Créez un formulaire basé sur cette table.
- Ajoutez un bouton de commande sur le formulaire, nommez ce bouton par exemple
btnEmail. - Tapez le code suivant dans l’événement
Sur clicdu bouton :
|
1 2 3 |
Private Sub btnEmail_Click() Application.FollowHyperlink "mailto:" & Me![Email] End Sub |
Passez en mode Formulaire, tapez dans la zone de texte nommée Email une adresse e-mail normale (sans mailto:), puis cliquez sur le bouton btnEmail pour tester.
