Renseigner un champ hyperlien différent pour chaque enregistrement

Version imprimable

21/04/2017, 13h30
LJubi

2 pièce(s) jointe(s)

Renseigner un champ hyperlien différent pour chaque enregistrement

Bonjour,

Dans ma BD, j'ai une table contenant un champ hyperlien que je veux renseigner au besoin afin que les utilisateurs puissent avoir accès à un fichier lié à cet enregistrement spécifique. Autrement dit, pour certains enregistrements, un fichier .PDF est associé et je veux pouvoir y accéder.

Autrement dit, je veux que l'utilisateur puisse, au besoin, renseigner le champ et avoir accès, par la suite, au fichier dont il aura spécifié le nom. J'ai créé le champ hyperlien dans ma table et l'ai inséré dans un formulaire. Je travaille en mode création le plus possible. Pour renseigner le champ, j'ai essayé différentes méthodes :

1. Le générateur d'expression directement dans la source de contrôle de l'onglet données. Mais aussitôt que je fais afficher un nouvel enregistrement, le système affiche la boîte de dialogue.

Pièce jointe 266840

2. Le générateur d'expression dans l'onglet Événement. Il me demande le nom de fichier que "Sur clic" mais ne renseigne pas le champ.

Pièce jointe 266844

3. J'ai aussi essayé un bouton (ce serait l'idéal) mais le champ n'est pas renseigné non plus.

Voici le code (très simple) que j'ai mis dans le générateur de code (je concatène le chemin d'accès avec le nom du fichier qui est demandé en boîte de dialogue) :

="\\Serveur\Données\Sentences et Décisions\ARBITRAGE GRIEFS\SL1111\" & BEntrée("entrez le nom du fichier")

Quelqu'un peut m'aider à régler mon souci ???

Signé : Désespérée :calim2:

1 pièce(s) jointe(s)

Bonjour,

Voici un exemple

http://claudeleloup.developpez.com/&99/M1162.jpg

Dans un module ce code (de Loufab :hola:)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Compare Database
Option Explicit
 
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
    ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
Public Sub Ouvrir_fichier(Chemin As String)
 
'Ouvrir, avec le pgm associé, le fichier dont le chemin est passé en paramètre
ShellExecute Application.hWndAccessApp, "open", Chemin, "", "", 1
 
End Sub

Et le code associé au bouton du formulaire :

Code:

1
2
3
4
5
6
Option Compare Database
Option Explicit
 
Private Sub btAfficher_Click()
 Call Ouvrir_fichier(Me.txtAdresse)
End Sub

Bonjour.

Personnellement, je trouve les champs hyperliens plus un problème qu'une solution.

Voilà ce que j'utilise :

Une champ texte normal (255 car)
Du code VBA qui réagi au double click pour ouvrir le fichier (l'instruction FollowHyperLink est fabuleuse pour cela).

Ici mon code :

Code:

Call FollowHyperlink(infoFichier.Repertoire_Nom_Extention)

Un bouton qui appelle du code VBA qui lance la sélection de fichier.

ici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
    Dim fd As Office.FileDialog
    Dim fichier As Variant
 
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
 
    With fd
        'Seulement 1 fichier
        .AllowMultiSelect = False
 
        'Défini les filtres de sélection
        Call .Filters.Clear
        Call .Filters.Add("Fichier Access", "*.accdb;*.mdb")
        Call .Filters.Add("Tous les fichiers", "*.*")
 
        'Défini le Repertoire par défaut
        If Not IsNull(Me.RepertoireFichier) Then
            .InitialFileName = Me.RepertoireFichier
        End If
 
    End With
 
    'Affiche la boite de dialogue et récupère les fichiers
    If fd.Show Then
            'Il y a un fichier choisi
            For Each fichier In fd.SelectedItems 'Boucle sur 1 seul élément
                Me.RepertoireFichier = Left(fichier, InStrRev(fichier, "\") - 1)
                Me.NomFichier = Mid(fichier, InStrRev(fichier, "\") + 1)
            Next fichier
 
        Else
            'Ne rien faire, l'utilisateur a abandonné la sélection
    End If
 
    set fd=nothing

Ça prend une référence à Microsoft Office Object Library.
Dans les formulaires en mode feuille de données j'ai remplacé le bouton par un champ texte qui contient "..." ce qui rappel le bouton [...] dans la feuille de propriété.

A+

21/04/2017, 14h30
LJubi

Excusez ma lenteur de compréhension...

Bonjour,

Je ne suis pas sûre de bien comprendre comment l'utilisateur va renseigner lui-même le lien dans votre exemple.

Pouvez-vous éclairer ma lanterne ?

:koi:
21/04/2017, 14h32
LJubi

Merci d'avoir répondu si rapidement !

Dans mon empressement, j'avais oublié de le mentionner dans le message précédent. :)
21/04/2017, 14h39
ClaudeLELOUP

Si c'est à moi que tu poses la question.

Le formulaire permet de saisir la colonne Adresse, l'adresse du fichier (dans mon exemple, sur internet).

Une fois ce champ complété, le clic sur le bouton t'ouvre le fichier avec le programme que l'utilisateur a associé au type de fichier.
21/04/2017, 15h50
LJubi

Renseignement du lien

Bonjour ClaudeLELOUP,

Je vois ce que tu veux dire, mais l'utilisateur ne connaît pas le chemin d'accès (il s'agit de fichiers sur notre réseau interne). C'est pour cette raison que j'utilise une boîte de dialogue pour concaténer le chemin d'accès et le nom du fichier. L'utilisateur doit nécessairement être interpelé pour le nom du fichier et le chemin concaténé ensuite et le tout déposé dans le champ de l'enregistrement et y rester, prêt à être utilisé.

Merci pour tout ! ;)
21/04/2017, 16h10
ClaudeLELOUP

Je ne comprends pas.

Essaie de me décrire les étapes sans me parler de code informatique.

Qu'a l'utilisateur devant les yeux ?

Que souhaites-tu qu'il puisse faire ?

Comment l'utilisateur peut-il obtenir l'info pour le faire ?
21/04/2017, 17h10
LJubi

1 pièce(s) jointe(s)

Désolée

Je suis désolée de ne pas être assez claire.

J'y vais par étapes :

1. Pour certains enregistrements, un fichier est requis (pour certains dossiers de griefs, il existe une décision arbitrale s'y rattachant). L'utilisateur doit pouvoir :
a. Ajouter le lien qui le mènera au fichier s'il n'y est pas
b. Cliquer sur le lien pour consulter le fichier s'il y est.
2. Quand le fichier n'y est pas et qu'il est requis, l'utilisateur appuie sur le bouton "Choisir le fichier de la décision" et entre le nom du fichier. Le chemin d'accès et le nom du fichier est versé dans le champ "Décision arbitrale", y demeure et est utilisé au besoin par la suite.

Voir l'encadré rouge de la capture d'écran du formulaire.

Pièce jointe 267008
21/04/2017, 17h55
ClaudeLELOUP

http://claudeleloup.developpez.com/&99/M1174.jpg
21/04/2017, 23h48
marot_r

Bonjour.

:salut: Claude.

À propos de ma solution.

Citation:

Bonjour,

Je ne suis pas sûre de bien comprendre comment l'utilisateur va renseigner lui-même le lien dans votre exemple.

Pouvez-vous éclairer ma lanterne ?

L'utilisateur doit appuyer sur le bouton qui appelle le code qui ouvre l'écran de sélection de fichier (c'est comme quand tu veux ouvrir un fichier Excel à partir de Excel).
Une fois qu'il a navigué jusqu'au fichier, il clique dessus.
Le système enregistre l'information (personnellement j'ai séparé le chemin d'accès du répertoire) dans la BD.

Après par un double click l'utilisateur signale qu'il veut ouvrir el fichier et le système va le chercher avec FollowHyperlink.

A+

1 pièce(s) jointe(s)

Bonjour,

Si la problématique se résume ainsi :

- si l’adresse du fichier est déjà mentionnée, un clic sur le bouton « Afficher le fichier » montre le contenu du fichier en avant-plan avec le programme que l’utilisateur a associé à l’extension d’un tel fichier (ex. Word pour .doc ; Adobe pour .pdf…). Quand l’utilisateur referme le fichier, Access revient au premier plan ;
- si l’adresse n’est pas encore mentionnée ou qu’il convient de la modifier, un clic sur le bouton « Choisir le fichier de la décision », affiche la boîte de dialogue standard pour désigner le fichier.
Le choix de l’utilisateur provoque : la mémorisation de l’adresse et l’affichage du contenu.

Ma proposition devient alors :

http://claudeleloup.developpez.com/&99/M1179.jpg
N.B. On peut paramétrer la fonction OuvrirUnFichier() pour qu’elle affiche un répertoire par défaut.

Code associé au formulaire
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Option Compare Database Option Explicit Private Sub btAfficher_Click() If existeFileFSO(Me.Adresse) Then Call Ouvrir_fichier(Me.txtAdresse) Else MsgBox "Ce fichier n'est pas disponible" End If End Sub Private Sub BtChercher_Click() On Error GoTo GestionErreur Me.txtAdresse = OuvrirUnFichier(Me.hwnd, "Quel Fichier ?", 1) Me.Refresh Call btAfficher_Click GestionErreur: Exit Sub 'Abandon de la recherche End Sub Private Sub txtAdresse_AfterUpdate() Me.Refresh End Sub
La fonction OuvrirUnFichier est dans la FAQ : https://access.developpez.com/faq/?p...#AffBoitDialog
La fonction existeFileFSO est dans la FAQ : https://access.developpez.com/faq/?p...eexistFunction