Discussion :

[Noline]

Bjrs,

Je me réfère au tutorial de cafeine "Un formulaire auto-extensible pour Access" la méthode III-C "un formulaire caché" pour résoudre le problème dans un état : le format de l'image n'est aps supporté par le contrôle picture

Je débute sur VBA

la problème c'est que le tutorial fait référence à une zone de texte dans un formulaire. dans mon cas il s'agit d'une IMAGE dans un ETAT.

J'ai donc modifié quelques trucs mais sur la fin (application de la methode SizeToFit) je vois pas du tout comment faire...

Voici mon programme :

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
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
Private Sub Report_Load()
    ' lors du chargement du form
    '  nous ouvrons le form frmAutoSizeIt en mode conception (acDesign)
    '  et en mode caché (acHidden)
 
    DoCmd.OpenReport "frmAutoSizeIt", acDesign, , , , acHidden
 
End Sub
 
Private Sub Report_Unload(Cancel As Integer)
    ' lors du déchargement du form
    '  nous fermons le form frmAutoSizeIt sans le sauvegarder (acSaveNo)
 
    DoCmd.Close acReport, "frmAutoSizeIt", acSaveNo
 
End Sub
 
Private Sub Report_Current()
    ' événement provoqué pour chaque affichage d'un nouvel enregistrement
 
    If Not IsNull(Me.Photo) Then
        If Len(Me.Photo) > 0 Then
            '   appel de la fonction de calcul de la hauteur d'un contrôle
            Me.Photo.Height = GetCtlSize("Photo")
 
            '   affectation de la hauteur calculée
            Me.Section("Détail").Height = Me.Photo.Top + Me.Photo.Height
 
            '   marge pour la partie basse du formulaire
            Me.InsideHeight = Me.Section("Détail").Height + 50
        End If
    End If
 
End Sub
 
Private Function GetCtlSize(ByVal ctl As String) As Long
    ' fonction permettant de trouver la hauteur du contrôle pour un texte donné
    '  nous passons les caractéristiques de mise en forme
    '  puis nous utilisons la méthode .SizeToFit pour trouver la bonne hauteur
 
    ' argument  :   ctl As String (Chaîne nom du contrôle qui doit subir ce traitement)
 
'   Le formulaire frmAutoSizeIt est celui qui est ouvert en mode conception et caché
'    rappelons que l'étiquette lblDoIt est celle sur qui va s'appliquer la méthode
'    SizeToFit pour calculer la hauteur du texte
With Report("frmAutoSizeIt").lblDoIt
    '   attribution du texte du contrôle avec un renvoi à la ligne
    .Caption = Me.Controls(ctl).Value & vbCrLf & " "
 
    '   attribution des enrichissements de forme
    '       Police de caractères
    '.FontName = Me.Controls(ctl).FontName
 
    '       Taille de caractères
    '.FontSize = Me.Controls(ctl).FontSize
 
    '       Gras
    '.FontBold = Me.Controls(ctl).FontBold
 
    '       Italique
    '.FontItalic = Me.Controls(ctl).FontItalic
 
    '       Epaisseur
    '.FontWeight = Me.Controls(ctl).FontWeight
 
    '       Largeur du contrôle
    .Width = Me.Controls(ctl).Width
 
    '   application de la méthode .SizeToFit qui ajuste automatiquement
    '       la largeur du contrôle au contenu
    .SizeToFit
 
    '   on répète l'opération sans le retour charriot
    .Caption = Me.Controls(ctl).Value
    .Width = Me.Controls(ctl).Width
    .SizeToFit
 
    '   on renvoie la hauteur du contrôle
    GetCtlSize = .Height
End With
 
End Function

Sinon j'aurai aimé savoir ce que signifie "le format de l'image n'est pas supporté par le contrôle image picture", s'agit t-il du format taille (hauteur,largeur), de la résolution, du format jpg ou bmp?

Merci...

[Nohant]

a priori le message indique que c'est le format (ex : jpeg, gif, png ...) de ton image qui n'est pas supporté par le contrôle.

Quel est le format que tu utilises ?

[Noline]

En fait j'utilise jpg mais pour toute les photos, et avec certaines ca marche...
je comprend pas parce que j'ai comparé 2 (une qui marche, une qui marche pas) au niveau de la taille c'est la même et pour la résolution pareil...

[cafeine]

Hello,

C'est le format .jpg/.gif/.bmp qui ne doit pas coller.

Teste la photo qui ne marche pas dans un formulaire vierge et un contrôle image ...

[Noline]

J'ai essayé de testé sur un formulaire vierge une des photos qui marche pas et ca marche...

En fait je crois que le problème viens plus de l'ordinateur ou je sais pas : au bout d'un moment il arrive plus à importer les photos ( si je met les photos d'un un autre ordre certaine qui ne marchait pas marche) et ca rebeug au bout d'un moment. Il est aussi impossible d'imprimer....

Je vois pas de solution........

[cafeine]

Il faudrait tester sur un autre PC pour s'en assurer ...