Lier Bouton avec Lien Intranet

Résolu/Fermé
jeenan Messages postés 36 Date d'inscription samedi 17 novembre 2007 Statut Membre Dernière intervention 21 août 2018 - Modifié le 26 juil. 2018 à 15:19
jeenan Messages postés 36 Date d'inscription samedi 17 novembre 2007 Statut Membre Dernière intervention 21 août 2018 - 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... :)

2 réponses

yg_be Messages postés 22724 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 1 476
Modifié le 26 juil. 2018 à 19:19
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
jeenan Messages postés 36 Date d'inscription samedi 17 novembre 2007 Statut Membre Dernière intervention 21 août 2018
26 juil. 2018 à 20:07
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
jeenan Messages postés 36 Date d'inscription samedi 17 novembre 2007 Statut Membre Dernière intervention 21 août 2018
Modifié le 26 juil. 2018 à 20:14
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
jeenan Messages postés 36 Date d'inscription samedi 17 novembre 2007 Statut Membre Dernière intervention 21 août 2018
26 juil. 2018 à 20:19
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
yg_be Messages postés 22724 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 1 476 > jeenan Messages postés 36 Date d'inscription samedi 17 novembre 2007 Statut Membre Dernière intervention 21 août 2018
26 juil. 2018 à 21:47
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
jeenan Messages postés 36 Date d'inscription samedi 17 novembre 2007 Statut Membre Dernière intervention 21 août 2018
27 juil. 2018 à 11:50
Je comprends, mettre la 'condition d'erreur' AVANT....Bonne idée

Merci yg_be pour ton aide....Vraiment apprécié!!!!
0
yg_be Messages postés 22724 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 1 476
26 juil. 2018 à 16:02
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
jeenan Messages postés 36 Date d'inscription samedi 17 novembre 2007 Statut Membre Dernière intervention 21 août 2018
26 juil. 2018 à 16:26
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
yg_be Messages postés 22724 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 1 476 > jeenan Messages postés 36 Date d'inscription samedi 17 novembre 2007 Statut Membre Dernière intervention 21 août 2018
26 juil. 2018 à 16:35
peux-tu partager ton fichier?
0
jeenan Messages postés 36 Date d'inscription samedi 17 novembre 2007 Statut Membre Dernière intervention 21 août 2018
26 juil. 2018 à 17:16
Comment je joint un fichier??
0
jeenan Messages postés 36 Date d'inscription samedi 17 novembre 2007 Statut Membre Dernière intervention 21 août 2018
26 juil. 2018 à 17:36
J'ai trouver pour le fichier

Voici le lien: https://www.cjoint.com/c/HGApJVjPMYr
0