Discussion :

[tajjorf]

Bonjour,
J'insère une image .jpg (500 Ko. sur le disque) dans un de mes états.
Résultat : le poids de mon fichier .mdb a quasiment doublé (18 à 32Mo) !

Je précise que l'image est intégrée et que je ne préfère pas l'attacher.

Est-ce qu'un autre format d'image ou un quelconque bidouillage peut permettre de réduire le poids du mdb ?


Cordialement

[vincent1746]

Essaie de compacter ta base de données ça doit venir de la je pense, par contre j'utilise access 2007 donc je ne sais pas comment le faire dans 2000 ou 2003. Cherche de ce coté la la taille de ta bdd devrait redevenir raisonnable .

[tajjorf]

Je n'avais pas précisé que j'ai veillé à compacter ma base.
Je reste donc à 32 Mo contre 18 sans le logo.
Dès que je le supprime et que je compacte, je repasse à 18.

Surprenant que le poids de l'image ne soit pas mieux gérée.
Si toutefois tu as (ou quelqu'un d'autre) une autre piste, je suis preneur.

Merci

[ClaudeLELOUP]

L’idée est de loger les images en dehors de la DB.

Dans le répertoire qui contient la DB, je crée un sous-répertoire "Images".
J'y loge toutes les images de l’application.

Dans le contrôle « image » des formulaires ou états :
Propriété Image : (aucune)
Propriété Type Image : attaché
Propriété Remarque : le nom de ton fichier image (EX : « MonImage.bmp »)

Dans l’événement « Ouverture » d’un formulaire :

Code :

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

1
2
3
Private Sub Form_Open(Cancel As Integer)
Call CheminDesImages(acForm, Me.Name)
End Sub

Dans l’événement « Ouverture » d’un état :

Code :

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

1
2
3
Private Sub Form_Open(Cancel As Integer)
Call CheminDesImages(acReport, Me.Name)
End Sub

Dans un module la fonction suivante

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

Amicalement