Discussion :

[ClaudeLELOUP]

Bonjour à tous,
J'utilise Access 2000.
Dans une application, j'ai de nombreux états et formulaires avec des logos.
Si j'intègre les images, la taille de la DB devient très importante.
Pour réduire la taille, j'inscris
- dans la propriété "picture" : le chemin de l'image (même répertoire que ma DB)
- dans la propriété "TypeImage" : 'Attaché'.

Inconvénient: si la DB et les images changent de répertoire (par exemple sur une clé USB), les adresses dans la propriété "picture" deviennent caduques.
J'ai tenté de libeller l'adresse en codant :

Code :

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

ParentDirectory(currentDb.Name) & "\MonImage.bmp"

mais sans succès.

Quelqu'un a-t-il une piste ?

[Domi2]

Bonsoir,

Par exemple :

Code :

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

Me.Photo.Picture = CurrentProject.Path & "\Photos\" & "MaPhoto1.jpg"

Les photos étant stockèes dans un sous-répertoire au niveau de l'application appelé "Photos".

Domi2

[ClaudeLELOUP]

merci

[Domi2]

Re,

Si cela répond à ton besoin, n'oublie pas de tagger "Résolu"...

Sinon, on continue...

Bon dév !

Domi2

[ClaudeLELOUP]

Voici la solution que j’ai adoptée pour les formulaires et les états contenant des images.
- les fichiers images sont logés dans un sous-répertoire du répertoire de l’application (\Images)
- pour chaque contrôle ou objet contenant une image « attachée », le nom du fichier image (ex : logo.bmp) est inscrit dans la propriété « remarque »
- dans l’évènement « ouverture » d’un formulaire, on appelle une Sub :

Code :

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

Call CheminDesImages(acForm, Me.Name)

- dans l’évènement « ouverture » d’un état, on appelle une Sub :

Code :

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

Call CheminDesImages(acReport, Me.Name)

- un module contient la Sub :

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
26
27
28
29
30
31
Public Sub CheminDesImages(TypeObjet, Nom)
On Error GoTo GestionErreurs
Dim Ctrl As Control
Select Case TypeObjet
Case acForm     'pour les formulaires
  'l'image du formulaire
  If Forms(Nom).PictureType = 1 And Forms(Nom).Tag Like "*.*" Then
      Forms(Nom).Picture = CurrentProject.Path & "\Images\" & Forms(Nom).Tag
  End If
  ' l'image des contrôles du formulaire (image, bouton, ...)
  For Each Ctrl In Forms(Nom)
     If Ctrl.PictureType = 1 And Ctrl.Tag Like "*.*" Then
      Ctrl.Picture = CurrentProject.Path & "\Images\" & Ctrl.Tag
     End If
  Next Ctrl
Case acReport     'pour les états
  ' l'image des contrôles
  For Each Ctrl In Reports(Nom)
     If Ctrl.PictureType = 1 And Ctrl.Tag Like "*.*" Then
      Ctrl.Picture = CurrentProject.Path & "\Images\" & Ctrl.Tag
     End If
  Next Ctrl
End Select
Fin:
Exit Sub
GestionErreurs:
Select Case Err.Number
Case 438   'la propriété picture n'existe pas pour ce contrôle
Resume Next
End Select
End Sub