Mes photos de Diagnostic hors base de donnée

**Cedross** · 27/03/2020, 07h50

Bonjour,

Avant tous merci pou vos tutos traitant du sujet…. Cette problématique de volume des photos dans une base de données est récurrente sous Access…. Limité a 2 Go.
Je demande de l'aide parce que cela fait 5 jours que je suis dessus...
J'ai la dernière version d'Access en 64 bits (cela a son importance).
Je vous explique ce que je suis en train de monter:
Je dois établir un Diagnostic de bâtiment... Batiment01; n° Entrée; étage; n° logt; et enfin le nom de la pièce concernée...
J'ai donc une ligne par pièce dans ma base... Et a chaque ligne 4 photos associées.... Vous comprenez vite le volume que peut atteindre mon fichier Access...
J'ai suivie pas á pas vos diffèrent tutos, téléchargé vos exemples... Mais la plupart sont en 32 bits...
Je peux créer un fichier exemple pour m'aider... Si nécessaire.
Merci d'avance.
En pièce jointe un fichier exemple..
Cedross

**bertiny** · 27/03/2020, 09h35

Bonjour
Que veux-tu faire exactement faire ?
Pour ne pas alourdir la base de données, il est conseillé de ne stocker que les chemins d'accès aux photos dans un dossier externe.

**User** · 27/03/2020, 09h42

Bonjour,

Pour gérer les pièces jointes à l'extérieur de la base j'ai écrit ce billet récemment :

gérer-vos-pieces-jointes-access-filedialog

Il ne devrait pas y avoir de souci avec la version 64 bits.

Cdlt,

**Cedross** · 27/03/2020, 09h49

Merci pour t'as réponse…
Effectivement, je pense que :
- je dois créer un champ supplémentaire par photo dans la base pour indiquer le chemin (des photos)…
- dois-je créer également un champs supplémentaire par photo, pour nommer le nom de la photo sélectionnée?

Je cherche bien sûr a lier mes photos a ma base, via un chemin d'accès externe à la base…
Ceci pour les voir dans mon formulaire et à l'édition de mon état…

Merci pour ton aide..

**Cedross** · 27/03/2020, 09h51

Merci User….
Je regarde de suite!..

**bertiny** · 27/03/2020, 09h57

Effectivement. Dans la table tu crées un champ Photo de type texte court. Ça dépendra donc de la façon dont tu va remplir ton formulaire qui entre les données dans ta table.
Il faut noter que si tu ton application n'est qu'à usage personnel, tu va insérer les chemins absolus et si tu dois l'installer dans d'autres machines alors tu dois insérer dans chemins relatifs.
De plus, pour afficher tes images sur les formulaires, tu inseres un contrôle image que tu donnes pour source de données ton champ Photo.

**User** · 27/03/2020, 10h01

Re,

Il faut ajouter un champ CheminPhoto à votre base :

Pour enregistrer le chemin dans la base sur un bouton, il faut reprendre le code du billet :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Private Sub CmdChoisirFichier_Click()
    Dim fd As Object ' Office.FileDialog
 
    ' Créer un objet FileDialog pour choisir un fichier
    Set fd = Application.FileDialog(3) ' msoFileDialogFilePicker : 3
 
    ' Titre de la boîte de dialogue
    fd.Title = "Sélectionnez un fichier..."
 
    ' Ne pas autoriser la sélection multiple
    ' (donc 1 seul fichier est sélectionnable à la fois)
    fd.AllowMultiSelect = False
 
    ' Effacer les filtres précédents
    fd.Filters.Clear
 
    ' Afficher la boîte de dialogue
    If fd.Show() Then ' on a sélectionné un fichier
        Me.CheminPhoto = fd.SelectedItems(1) ' on met à jour le champ avec le chemin sélectionné
    End If
 
    ' On libère la variable objet
    Set fd = Nothing
 
End Sub

Ensuite, pour afficher la photo sur le formulaire, il faut je pense agir sur l'événement activation

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Form_Current()
 
If Len(Me.CheminPhoto) > 0 Then
    Me.imgPhoto.Picture = Me.CheminPhoto
Else
    Me.imgPhoto.Picture = ""
End If
 
End sub

Cdlt,

**Cedross** · 27/03/2020, 20h46

Merci User pour ton aide et ton fichier!!!...
Mais ainsi les photos ne sont pas liés à la base???
j'ai créé 4 lignes a ma base, soit 4 x 4 photos et le fichier a augmenté de 1630 ko.
Ce code n'équivaut pas a "pièce jointe" d'Access?

En cliquant sur l'image via ton bouton; il faudrait qu'Access enregistre le nom du fichier = créer un champ non fichier dans ma base….

Et qu'a chaque déplacement dans mon formulaire ou état les images soient recherchées, lues et apparaissent…
EN TOUT CAS MERCI!

Cordialement

Cédross.

**Cedross** · 27/03/2020, 20h58

Merci Bertiny, User...
Mon fichier DIAG se servira qu'a moi et ne sera pas porté sur plusieurs PC…
Tes orientations sont bonnes… mais je suis pas à l'aise avec le VBA...

Cordialement

Cédross

**Cedross** · 27/03/2020, 21h10

Re User…
J'ai un doute… dans les CHAMPS chemin d'accès que tu as créé j'ai bien le chemin… mais également le nom du fichier…!
T'es peux être en lecture seul et poids de l'image n'est pas rajouté à la base…???.

**User** · 27/03/2020, 21h15

Il faut mettre la propriété Type Image des Contrôles image à Attaché, sinon il ajoute les images à la base

J'ai mis à jour la pièce jointe ici.

Cdlt,

**Cedross** · 27/03/2020, 21h24

BA je suis sur le cul!!!...

….
M E R C I !
je remonte cela sur mon fichier de base… voir si je bug pas!!!

**Cedross** · 28/03/2020, 11h42

Bonjour User,
Je suis sur Mon état…. et je rencontre bien sûr un problème de code VBA....
J'ai suivi pas à pas vos lignes de code liées au formulaire… histoire de pas mourir bête du Covid-19...
Des réponses a des questions, des interrogations m'auraient aidé.. mais bon…
Encore Merci…

je vous joint ma version 4, avec un état….

Cordialement.
Cédric

[Edit] Mise à jour Pièce Joint.

**User** · 28/03/2020, 12h53

Bonjour,

J'ai mis à jour votre pièce jointe.

Le souci, c'est que les images dans l'état ne sont pas nettes.

Il faut regarder la propriété Affichage des images. La seule valeur que j'ai trouvé pour rendre les images nettes est Découpage.

Cdlt,

**Cedross** · 28/03/2020, 17h50

Re bonjour User…
C'est vrai les images sont bof…
J'ai essayé une autre solution, depuis ce matin j'ai monter pas un nouveau fichier Access (en suivant un Tuto, bien sûr!) pour comprendre ce nouveau code… mais cela ne marche pas….
Quant pensez-vous?

Cordialement

Cédross

**User** · 28/03/2020, 18h42

C'est le même principe que le fichier que je vous ai donné en plus complexe.

Qu'est-ce qui vous gène dans mon fichier ?

Cdlt,

**Cedross** · 28/03/2020, 20h27

Bonsoir User,

1/ MERCI pour votre aide…

2/ Je viens de me rendre compte, suite a vos lignes : Que la qualité de l'image à l'aperçu avant impression (sur l'état) est pas très bonne...
Mais à l'impression, c'est NIKEL !!!

Mais j'ai qu'une fiche sur l'état?

Un bouton, pour toute les fiches de l'état…?
MERCI.

Cordialement.

Cedross.

**User** · 28/03/2020, 20h49

Il faut ôter le filtre dans la commande sur clic du bouton :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub CmdApercu2_Click()
    DoCmd.OpenReport "Etat_Fiches_SUPERTYPE", acViewPreview
End Sub

Si vous souhaitez imprimer directement, vous enlevez le dernier argument :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub CmdApercu2_Click()
    DoCmd.OpenReport "Etat_Fiches_SUPERTYPE"
End Sub

Cdlt,

**Cedross** · 28/03/2020, 20h50

Merci User...

Mes photos de Diagnostic hors base de donnée

IHM

Discussions similaires

Partager

Partager