Lier Bouton avec Lien Intranet

Résolu

jeenan Messages postés 42 Statut Membre -
jeenan Messages postés 42 Statut Membre - 27 juil. 2018 à 11:50

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 Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
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 Messages postés 42 Statut Membre
  
  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 Messages postés 42 Statut Membre
  
  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 Messages postés 42 Statut Membre
  
  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
  1. yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention 1 588 > jeenan Messages postés 42 Statut Membre
    
    moi 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
4. jeenan Messages postés 42 Statut Membre
  
  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 Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588

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 Messages postés 42 Statut Membre
  
  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
  1. yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention 1 588 > jeenan Messages postés 42 Statut Membre
    
    peux-tu partager ton fichier?
    
    0
2. jeenan Messages postés 42 Statut Membre
  
  Comment je joint un fichier??
  
  0
3. jeenan Messages postés 42 Statut Membre
  
  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