Lier Bouton avec Lien Intranet

Résolu
jeenan Messages postés 42 Statut Membre -  
jeenan Messages postés 42 Statut Membre -
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 24281 Statut Contributeur 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 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
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
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
yg_be Messages postés 24281 Statut Contributeur 1 584 > 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
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
yg_be Messages postés 24281 Statut Contributeur 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 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
yg_be Messages postés 24281 Statut Contributeur 1 584 > jeenan Messages postés 42 Statut Membre
 
peux-tu partager ton fichier?
0
jeenan Messages postés 42 Statut Membre
 
Comment je joint un fichier??
0
jeenan Messages postés 42 Statut Membre
 
J'ai trouver pour le fichier

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