gestion des photos: lien hypertexte ou formulaire

Version imprimable

10/04/2006, 17h18
jeck

gestion des photos: lien hypertexte ou formulaire

Bonjour a tous, je suis stagiaire dans une mairie où je dois gérer plus de 2000 photos et je me pose pas mal de questions notamment quel sera l'organisation la plus simple pour permettre aux employés de consulter une ou plusieurs photos qu'ils souhaitent
Ainsi, j'hésite entre ces deux organisations:

- insérer un lien hypertexte dans la table qui permettra à l'employé de cliquer sur le lien pour voir la photo. L'avantage est que lorsque je crée une requête paramétré, l'employé indiquera par exemple toutes les photos du service qu'il souhaite et il pourra cliquer sur le lien pour voir la photo. L'inconvénient est qu'il devra cliquer pour consulter la photo

- faire une gestion des photos par formulaire, c'est a dire ne pas mettre un lien hypertexte dans la table, mais tout simplement du texte.
L'avantage est que l'employé pourra passer de photos en photos dans le formulaire sans passer par un lien. L'inconvénient est que l'employé ne pourra pas consulter les photos dans la requête, puisqu'il n'y aura pas de liens.

Voila, j'espere que vous m'avez compris et que vous me donnerez votre opinion.
10/04/2006, 17h53
cafeine

Hello,

je serais plutôt favorable à l'option 2 ... qui me paraît plus simple à gérer, peut-être as-tu déjà lu mon tuto sur le sujet.

Gérer des photos par des fichiers externes
10/04/2006, 18h22
jeck

Salut,
Oui j'ai lu ton tuto et je t'ai d'ailleurs posé des questions car je n'arrivais pas à faire fonctionner mon formulaire.
Ceci dit, ce qui m'embete dans la gestion des photos par formulaire c'est qu'on ne peut pas voir les photos en dehors du formulaire et moi je cherche vraiment à faciliter la consultation des photos par les employés.

Un exemple:
un employé recherche toutes les photos ayant comme thème: exposition.

Dans ce cas ils iront dans la requête paramétrée "recherche une photo en fonction du thème" et ils mettront le thème exposition et toutes les photos ayant ce thème seront inscrites, avec le lien hypertexte qui leur affichera la photo. Or, avec la méthode de gestion par formulaire il n'y aura pas de lien hypertexte, donc pas de photos.

Qu'en penses tu?

Hello,

tu pourrais générer rapidement un HTML qui afficherait les photos à partir d'une requête.

une ébauche exemple ULTRA schématique ... il faut ensuite placer strFic dans un fichier .html et en lancer l'ouverture avec un ShellExecute ...
Code:

1 2 3 4 5 6 7 8 set rec = currentdb.openrecordset("SELECT photo From Matable Where Type = '" strCritereType & "'", dbopensnapshot) strfic = <HTML><HEADER><TITLE>Visualisation Photos - Type = " & strCritereType & "</TITLE></HEADER><BODY>" do while not rec.eof strFic = strFic & "<img src=" & rec!photo & "><br>" rec.MoveNext loop strfic = strFic & "</BODY></HTML>"

ok va falloir que j'essaye ça...
mais le problème c'est que je pensais avoir trouver la solution pour mon code, mais ça ne marche toujours pas :x

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
 
Private Sub Form_Current()
'L'évènement activation (current) se produit lorsque le focus passe à un enregistrement
' donné pour en faire l'enregistrement en cours ou lorsque le formulaire est
' Actualisé ou en Actualisation
 
'si le nom du salarié est non vide : on visualise un enregistrement
' sinon cela indique que nous sommes sur un environnement vierge, donc en cours de saisie.
' Me.Caption : gère le titre du formulaire
If Len(Me.NOMPHOTOS) > 0 Then
    Me.Caption = "PHOTOS: " & Me.NOMPHOTOS & Me.DATE & Me.OCCASION
Else
    Me.Caption = "Saisie d'une nouvelle photo"
End If
 
'Gestion des erreurs
On Error GoTo Catch02
 
'si la photo n'est pas définie, on affiche la photo ballade_menhir_2
'CurrentProject.Path : est le chemin de l'application
If Len(Me.Photo) > 0 Then
    Me.imgPhoto.Picture = Me.Photo
Else
    Me.imgPhoto.Picture = CurrentProject.Path & "\Mes_images\BLANK"
End If
 
DisplayPhoto
 
Exit Sub
 
Catch02
Select Case Err.Number
    Case 2114
        'Cas d'un type de fichier photo non supporté
        ' on sort de la procédure
        MsgBox "Le format de l'image n'est pas supporté par le contrôle image picture", vbCritical + vbOKOnly, "Application photos"
        Exit Sub
    Case 2220
        'Cas d'un emplacement non valide du fichier image
        MsgBox "Le fichier image n'a pas été trouvé à l'emplacement indiqué:" & vbCrLf & _
            Me.Photo, vbCritical + vbOKOnly, "Application Photo"
        Exit Sub
    Case Else
        'tout autre cas d'erreur
        MsgBox "Erreur inattendue : " & Err.Number & vbCrLf & Err.Description, vbCritical + vbOKOnly, "Application photos"
End Select
Err.Clear
 
End Sub
 
 
Private Sub CmdDelete_Click()
'Bouton de commande d'effacement de la photo
 
'supprime l'adresse de la photo
Me.Photo = vbNullString
 
'affiche l'image ballade_menhir_2.jpg
Me.imgPhoto.Picture = CurrentProject.Path & "\images\blank.jpg"
 
'redimensionne la photo
DisplayPhoto
 
End Sub
 
Private Sub CmdPhoto_Click()
'Bouton d'ajout - modification de photo
Dim StrLink As String
 
'Gestion des erreurs
On Error GoTo Catch01
 
'récupération du chemin physique de la photo
'par la boîte de dialogue
StrLink = OuvrirUnFichier(Me.Hwnd, _
                         "selectionner une photo pour la photo" & Me.NOMPHOTOS, _
                         1)
 
'si la boîte renvoie une adresse non nulle
If Len(StrLink) > 0 Then
'tentative d'affichage de la photo
Me.imgPhoto.pictures = StrLink
Me.Photo = StrLink
 
End If
 
Display Photo
Exit Sub
 
Catch01:
Select Case Err.Number
    Case 2114
        'Cas d'un type de photo non supporté ...
        ' on sort de la procédure
        MsgBox "Le format de l'image n'est pas supoporté par le contrôle image Picture", vbCritical + vbOKOnly, "Application Photos"
        Exit Sub
    Case 2220
        'Cas d'un emplacement non valide du fichier image
        MsgBox "Le fichier image n'a pas été trouvé à l'emplacement indiqué : " & vbCrLf & _
                Me.Photo, vbCritical + vbOKOnly, "Applications Photos"
        Exit Sub
    Case Else
        'tout autre cas d'erreur
        MsgBox "Erreur inattendue : " & Err.Number & vbCrLf & Err.Description, vbCritical + vbOKOnly, "Application Photos"
End Select
Err.Clear
 
 
End Sub

Aucun des deux boutons ne fonctionnent.
Pour "Ajouter photos", il me met "Erreur de compilation: Membre de méthode ou de données introuvables" et il me met la dessus

Code:

1
2
3
4
 
StrLink = OuvrirUnFichier(Me.Hwnd, _
                         "selectionner une photo pour la photo" & Me.NOMPHOTOS, _
                         1)

Pour "supprimer photos", il me met "Erreur de compilation : Sub ou Function non définie" et il me met la dessus

Code:

1
2
3
 
'redimensionne la photo
DisplayPhoto

Je n'arrive pas à trouver les erreurs.

Citation:
Code:

1 2 'affiche l'image ballade_menhir_2.jpg Me.imgPhoto.Picture = CurrentProject.Path & "\images\blank.jpg"
là, ça n'affichera pas ballade_menhir_2.jpg

11/04/2006, 17h21
jeck

oula la boulette...
J'ai rectifié mais les problèmes que j'ai énoncé plus haut sont hélas toujours d'actualité. :?
11/04/2006, 17h29
cafeine

Concernant OuvrirUnFichier(), as-tu copié la fonction API qui est dans la FAQ, comme précisé dans le tuto ?