Access 97
Il est possible d'utiliser les liens hypertexte pour aller directement sur une adresse sur le Web, mais également pour appeler un fichier qui existe sur votre disque dir (et qui possède l'application par défaut de son extension bien sûr).
Pour ce faire, il suffit de créer une zone de texte, ou autre qui accepte la propriété "Adresse Lien Hypertexte". Il suffit de mettre dedans soit
http://www.microsoft.com, ou
c:\atelier\Fichier.xls
Un lien hypertexte est séparé en trois parties, séparées par des #
Exemple
En gros : TexteEnClair#AdresseDuSite#Signet#InfoBulleQuandOnPasseAvecLaSourisAuDessusDuLien
Le site Microsoft#http://www.microsoft.com#NomSignet
|
Le site Microsoft |
Nom apparent |
|
http://www.microsoft.com |
Pointeur hypertexte proprement dit |
|
NomSignet |
éventuel signet à l'intérieur |
ATTENTION :
- Lorsqu'on définit un champ comme étant un simple champ texte, et qu'on le transforme en lien Hypertexte, Access rajoute alors certains caractères, mais qui restent invisibles, jusqu'au moment ou... On remet le champ en question en texte, c'est à ce moment qu'on voit la pollution. Exemple :
Admettons un champ texte Prenom, dans lequel on met un seul enregistrement "Paul". On le transforme en Lien hypertexte (ce qui est en soi aberrant, mais bon...), on sauvegarde, et on retransforme en texte :
Paul
S'est transformé en
Paul#http://Paul#
Ce bout de code est à modeler. Il permet de faire des recherches sur AltaVista, Yahoo et Excite, grâce à l'instruction FollowHyperLink
Dim varSearch, OptSite
OptSite = 1
Const SiteAltaVista = 1
Const SiteYahoo = 2
Const SiteExcite = 3
' varSearch = adhReplaceAll(Me!txtSearch, " ", "+")
varSearch = "test"
Select Case OptSite
Case SiteAltaVista
Application.FollowHyperlink _
Address:="http://altavista.digital.com/cgi-bin/query", _
ExtraInfo:="pg=q&what=Web&fmt=.&q=" & _
varSearch, Method:=msoMethodGet, _
AddHistory:=True
Case SiteYahoo
Application.FollowHyperlink _
Address:="http://search.yahoo.com/bin/search", _
ExtraInfo:="p=" & varSearch, Method:=msoMethodGet, _
AddHistory:=True
Case SiteExcite
Application.FollowHyperlink _
Address:="http://excite.com/search.gw", _
ExtraInfo:="search=" & varSearch & _
"&collection=Web&searchButton.x=11&searchButton.y=8", _
Method:=msoMethodGet, AddHistory:=True
End Select
Voir la propriété SendObject