Lier Bouton avec Lien Intranet

Résolu
jeenan Messages postés 38 Date d'inscription   Statut Membre Dernière intervention   -  
jeenan Messages postés 38 Date d'inscription   Statut Membre Dernière intervention   -
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... :)

A voir également:

2 réponses

yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
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 38 Date d'inscription   Statut Membre Dernière intervention  
 
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 38 Date d'inscription   Statut Membre Dernière intervention  
 
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 38 Date d'inscription   Statut Membre Dernière intervention  
 
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 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584 > jeenan Messages postés 38 Date d'inscription   Statut Membre Dernière intervention  
 
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 38 Date d'inscription   Statut Membre Dernière intervention  
 
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 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
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 38 Date d'inscription   Statut Membre Dernière intervention  
 
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 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584 > jeenan Messages postés 38 Date d'inscription   Statut Membre Dernière intervention  
 
peux-tu partager ton fichier?
0
jeenan Messages postés 38 Date d'inscription   Statut Membre Dernière intervention  
 
Comment je joint un fichier??
0
jeenan Messages postés 38 Date d'inscription   Statut Membre Dernière intervention  
 
J'ai trouver pour le fichier

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