OVH Cloud OVH Cloud

Lien hypertexte

4 réponses
Avatar
Georges
Bonsoir,

Je souhaite créer une base de données destinée à la gestion et à l’ouverture
de documents de type différents (.xls, .doc, .jpg, ….).
Pour cela, j’ai crée une table qui entre autres comporte un champ «
Nom_fichier » et dans lequel je renseigne , le nom du fichier et son
extension.
J’utilise un formulaire qui me permet d’ajouter et ou de visualiser un
document.
Pour répondre à la seconde possibilité, je souhaite créer un lien hypertexte.
J’ai ajouté dans le formulaire une « zone de texte » nommée « lien » avec
les propriétés suivantes :
« Source de contrôle » : =CurrentProject.Path & "\" & [Nom_Fichier]
« Is Hyperlink » : Oui.

Je vois bien apparaître le chemin d’accès souhaité, mais je n’arrive pas à
ouvrir le dossier concerné.
Je vous remercie d’avance pour votre aide apportée à un novice d’Access,
mais qui espère pouvoir progressé.
Georges Lyon

4 réponses

Avatar
Raymond [mvp]
Bonjour.

tu peux faire ça sans utiliser un lien hypertexte mais avec une api qui
exécutera ton fichier selon son extension. Tu trouveras la procédure sur la
page:
http://officesystem.access.free.fr/apiopenfileextend.htm

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Georges" a écrit dans le message de
news:
Bonsoir,

Je souhaite créer une base de données destinée à la gestion et à l'ouverture
de documents de type différents (.xls, .doc, .jpg, ..).
Pour cela, j'ai crée une table qui entre autres comporte un champ «
Nom_fichier » et dans lequel je renseigne , le nom du fichier et son
extension.
J'utilise un formulaire qui me permet d'ajouter et ou de visualiser un
document.
Pour répondre à la seconde possibilité, je souhaite créer un lien
hypertexte.
J'ai ajouté dans le formulaire une « zone de texte » nommée « lien » avec
les propriétés suivantes :
« Source de contrôle » : =CurrentProject.Path & "" & [Nom_Fichier]
« Is Hyperlink » : Oui.

Je vois bien apparaître le chemin d'accès souhaité, mais je n'arrive pas à
ouvrir le dossier concerné.
Je vous remercie d'avance pour votre aide apportée à un novice d'Access,
mais qui espère pouvoir progressé.
Georges Lyon



Avatar
Georges
Bonsoir,
Je suis vraiment un novice dans Access, alors même si ta solution est la
bonne elle me paraît compliquée.
Comme indiqué, j'ai crée un bouton avc sur "click" la procédure suivante:

Private Sub Commande63_Click()

Dim Réponse As Variant
Réponse = OpenFileExtend("D059.doc", Maximized, OpExecute)
If Not Réponse = True Then
MsgBox Réponse
End If

End Sub

Après j'ai recopié dans un module la procédure proposée dans ta réponse.

Malheureusement lorsque je clique sur le bouton je n'ouvre pas le dossier
désiré.

Merci pour ton aide

George Lyon Monplaisir




Bonjour.

tu peux faire ça sans utiliser un lien hypertexte mais avec une api qui
exécutera ton fichier selon son extension. Tu trouveras la procédure sur la
page:
http://officesystem.access.free.fr/apiopenfileextend.htm

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Georges" a écrit dans le message de
news:
Bonsoir,

Je souhaite créer une base de données destinée à la gestion et à l'ouverture
de documents de type différents (.xls, .doc, .jpg, ..).
Pour cela, j'ai crée une table qui entre autres comporte un champ «
Nom_fichier » et dans lequel je renseigne , le nom du fichier et son
extension.
J'utilise un formulaire qui me permet d'ajouter et ou de visualiser un
document.
Pour répondre à la seconde possibilité, je souhaite créer un lien
hypertexte.
J'ai ajouté dans le formulaire une « zone de texte » nommée « lien » avec
les propriétés suivantes :
« Source de contrôle » : =CurrentProject.Path & "" & [Nom_Fichier]
« Is Hyperlink » : Oui.

Je vois bien apparaître le chemin d'accès souhaité, mais je n'arrive pas à
ouvrir le dossier concerné.
Je vous remercie d'avance pour votre aide apportée à un novice d'Access,
mais qui espère pouvoir progressé.
Georges Lyon








Avatar
Raymond [mvp]
si tu indiques D059.doc sans chemin, ça veut dire qu'il est dans le même
répertoire que ta base.
est-ce exact ?
si non indique ton document avec le chemin complet.
si tu n'y arrives pas passe moi ta base par mail , tu enleves le XYZ. (le
point aussi ) dans mon adresse.

(Lyon sans souci)

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Georges" a écrit dans le message de
news:
Bonsoir,
Je suis vraiment un novice dans Access, alors même si ta solution est la
bonne elle me paraît compliquée.
Comme indiqué, j'ai crée un bouton avc sur "click" la procédure suivante:

Private Sub Commande63_Click()

Dim Réponse As Variant
Réponse = OpenFileExtend("D059.doc", Maximized, OpExecute)
If Not Réponse = True Then
MsgBox Réponse
End If

End Sub

Après j'ai recopié dans un module la procédure proposée dans ta réponse.

Malheureusement lorsque je clique sur le bouton je n'ouvre pas le dossier
désiré.

Merci pour ton aide

George Lyon Monplaisir



Avatar
Georges
Bonjour Raymond
Cette fois tout fonctionne très bien,
Merci pour ton aide et ta proposition d'envoi de ma base.

Bonne journée

Georges
(Monplaisir Tuiliers)



"Raymond [mvp]" wrote:

si tu indiques D059.doc sans chemin, ça veut dire qu'il est dans le même
répertoire que ta base.
est-ce exact ?
si non indique ton document avec le chemin complet.
si tu n'y arrives pas passe moi ta base par mail , tu enleves le XYZ. (le
point aussi ) dans mon adresse.

(Lyon sans souci)

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Georges" a écrit dans le message de
news:
Bonsoir,
Je suis vraiment un novice dans Access, alors même si ta solution est la
bonne elle me paraît compliquée.
Comme indiqué, j'ai crée un bouton avc sur "click" la procédure suivante:

Private Sub Commande63_Click()

Dim Réponse As Variant
Réponse = OpenFileExtend("D059.doc", Maximized, OpExecute)
If Not Réponse = True Then
MsgBox Réponse
End If

End Sub

Après j'ai recopié dans un module la procédure proposée dans ta réponse.

Malheureusement lorsque je clique sur le bouton je n'ouvre pas le dossier
désiré.

Merci pour ton aide

George Lyon Monplaisir