Lier Bouton avec Lien Intranet

Résolu

jeenan -

Bonjour,

Je suis un peu novice en Access.....Mais là je n'y arrive pas du tout....

J'ai une base de donnée avec UNE seule table (Tb_Info)
contentant plusieurs colonne (Nom, Adresse,Lien Cert,etc...)

J'essaie de faire un Formulaire (Forms) avec un Bouton pour activer un lien (intranet) qui est dans la colonne (Lien Cert)

Si je mets un 'Text Box', le lien fonctionne à merveille
C'est quand j'essaie de le mettre sous forme de Bouton que je n'y arrive pas....

PS - Il est possible que quelques fois, le 'Lien Cert' sois vide, il faudrais qqchose pour éviter donner un message d'erreur (du genre 'No Cert Found')

PS-2 -- Je suis avec Access-2000

Merci à l'avance pour votre temps et votre aide... :)

Afficher la suite

2 réponses

Réponse 1 / 2
yg_be Contributeur
je pense que tu peux associer ce code à un bouton du formulaire, pour suivre le lien:
```
Application.FollowHyperlink (Me.Lien___Certificat___1.Hyperlink.Address)
```
1
1. jeenan Auteur
  
  Wow....Fonctionne super bien.....
  
  MAIS....(IL y a presque toujours un MAIS....)
  
  Si il n'y a pas de fichier.....est qu'il y a un moyen de donner un message du genre 'Pas de fichier'... ??
  
  0
2. jeenan Auteur
  
  J'ai mis:
  
  Private Sub Command40_Click()
  
  Application.FollowHyperlink (Me.Lien___Certificat___1.hyperlink.Address)
  
  On Error GoTo Err_Command40_Click
  Err_Command40_Click:
  MsgBox "Pas de Procedure"
  
  End Sub
  
  Mais le message apparait....fichier ou non.... :(
  
  0
3. jeenan Auteur
  
  Par essaie/erreur.....j'ai trouvé ceci:
  
  Private Sub Command40_Click()
  
  Application.FollowHyperlink (Me.Lien___Certificat___1.hyperlink.Address)
  
  If (Me.Lien___Certificat___1.hyperlink.Address = "") Then MsgBox "Pas de Procedure"
  
  End Sub
  
  Ca semble fonctionner....
  Est-ce une solution viable??
  
  0
4. yg_be Contributeur
  
  @jeenanmoi je ferais plutôt:
  If (Me.Lien___Certificat___1.Hyperlink.Address = "") Then MsgBox "Pas de Procedure" Else Application.FollowHyperlink (Me.Lien___Certificat___1.Hyperlink.Address) End If
  
  mais comme tu as forcé un lien non vide dans la table, que gagnes-tu à tester que le lien n'est pas vide?
  
  0
5. jeenan Auteur
  
  Je comprends, mettre la 'condition d'erreur' AVANT....Bonne idée
  
  Merci yg_be pour ton aide....Vraiment apprécié!!!!
  
  0
Réponse 2 / 2
yg_be Contributeur
bonjour,
peux-tu partager ton fichier?
que fais-tu avec le lien à partir du textbox? dans quoi s'ouvre-t-il?
que souhaites-tu faire à partir du bouton?
0
1. jeenan Auteur
  
  Le bouton servira simplement à ouvrir un fichier (PDF ou autre)
  Je voudrais que lorsqu'on click sur le bouton, le fichier ouvre
  
  Tel que mentionné, le lien fonctionne, car si il est en 'Text Box', le lien ouvre
  
  Mais avec un 'Command Boutton', rien ne se passe... :(
  
  0
2. yg_be Contributeur
  
  @jeenanpeux-tu partager ton fichier?
  
  0
3. jeenan Auteur
  
  Comment je joint un fichier??
  
  0
4. jeenan Auteur
  
  J'ai trouver pour le fichier
  
  Voici le lien: https://www.cjoint.com/c/HGApJVjPMYr
  
  0

Lier Bouton avec Lien Intranet

2 réponses

Discussions similaires

Newsletters