Discussion :

[adelion7015]

Bonjour,

Pour les besoins de ZOOM+ et ZOOM- et pour utiliser les barres de défilement horizontale et verticale du sous formulaire, j'ai choisi de mettre la photo dans un sous formulaire, je precise que la photo est stocké hors base selon un tutoriel de gestion des photos.

Le probleme actuel est que j'ai un message d'erreur que voici :

C'est surement du au passage de la photo du formulaire au sous formulaire et que je n'arrive pas a trouver l'astuce pour que ca rentre dans l'ordre.

Merci,

Cordialement.

[Jean-Philippe André]

Salut,

8 secondes de recherche dans la

https://access.developpez.com/faq/?page=Ctrl#ctlsForm

[adelion7015]

Merci pour la reponse, je vais de suite voir.

encore merci.

[adelion7015]

J'ai effectué les corrections qui s'imposent, ou tu moins j’espère, a présent j'ai le message suivant :

[adelion7015]

j'ai aussi effectué des changement, j'ai encore un autre message d'erreur :



La je coince, je ne vois pas le probleme, d'autant plus que j'ai effectué toute les modifications necessaires comme sur la FAQ, voici le code :

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
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 enregistrement vierge, donc en cours de saisie.
'  Me.Caption : gère le titre du formulaire.
If Len(Me.Nom_Perimetres) > 0 Then
    Me.Caption = "Détails pour le Périmètre : " & Me.Nom_Perimetres & " - "
Else
    Me.Caption = "Saisie d'un nouveau périmètre"
End If

' Gestion des erreurs
On Error GoTo Catch02

' si la photo n'est pas définie, on affiche la photo blank.jpg
If Len(Me.Photo) > 0 Then
   Forms![tbl_signalitique_superficiaire]![frm_map].Form! [Me.imgPhoto].Picture = Me.Photo
Else
   Forms![tbl_signalitique_superficiaire]![frm_map].Form! [Me.imgPhoto].Picture = CurrentProject.Path & "\images\blank.jpg"
End If

DisplayPhoto

Exit Sub

Catch02:
Select Case err.Number
    Case 2114
        'Cas d'un type de fichier photo non supporté ...
        MsgBox "Le format de l'image n'est supporté par le contrôle image Picture", vbCritical + vbOKOnly, "Application Photos"
        Forms![tbl_signalitique_superficiaire]![frm_map].Form! [Me.imgPhoto].Picture = CurrentProject.Path & "\images\blank.jpg"
        Me.Photo = vbNullString
    Case 2220
        'Cas d'un emplacement non valide du fichier images
        MsgBox "Le fichier image n'a pas été trouvé à l'emplacement indiqué : " & vbCrLf & _
                Me.Photo, vbCritical + vbOKOnly, "Application Photos"
        Forms![tbl_signalitique_superficiaire]![frm_map].Form! [Me.imgPhoto].Picture = CurrentProject.Path & "\images\blank.jpg"
        Me.Photo = vbNullString
    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
Sub DisplayPhoto()
' Traitement en fonction de la taille de l'image

' regarde si la hauteur de l'image dépasse celle du controle Picture
If Me.imgPhoto.ImageHeight > Me.imgPhoto.Height Then
    ' met le controle en mode zoom
    Me.imgPhoto.SizeMode = 3
Else
    ' met le contrôle en mode respect de la taille originale
    Me.imgPhoto.SizeMode = 0
End If

' si la largeur dépasse et qu'on est en mode taille réelle ...
If (Me.imgPhoto.ImageWidth > Me.imgPhoto.Width) And (Me.imgPhoto.SizeMode) = 0 Then
    ' on met en mode zoom
    Me.imgPhoto.SizeMode = 3
End If


End Sub

Les modificaitons sont marqués en vert.

[tee_grandbois]

Bonsoir,

La je coince, je ne vois pas le probleme, d'autant plus que j'ai effectué toute les modifications necessaires comme sur la FAQ

à ceci près que sur la FAQ il n' y a pas d'espace entre le formulaire et le contrôle :

Code :

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

Form! [Me.imgPhoto].Picture

[adelion7015]

Tout d'abord, merci pour la reponse, je n'ai tout simplement pas fait attention a l'espace, sinon, j'ai toujours ces messages d'erreurs :

[tee_grandbois]

Malheureusement, l'impression d'écran de messages d'erreurs n'a aucune utilité si on ne sait pas quelle instruction en est la cause ...

[adelion7015]

Bonjour,

Ok, je vais mettre le code alors, je reviendrais vers vous des que j'aurais un petit moment.

[adelion7015]

Re bonjour,

voila, j'ai joint ma base, bien-sur, pour des raisons que vous comprendrais, j'ai supprimé les données.

Ftest.rar

cordialement.

[Jean-Philippe André]

Salut,

pas besoin de toute la base, un copier coller de ton code de formulaire fait largement l'affaire

[adelion7015]

Bonjour Jean Philipe André;

voila c'est tout le code qui tourne autour de de cette histoire de photo :

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
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
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
Private Sub cmdDelete_Click()
' Bouton de commande d'effacement de la photo
 
' supprime l'adresse de la photo
Me.Photo = vbNullString
 
' affiche l'image blank.jpg
Me.imgPhoto.Picture = CurrentProject.Path & "\images\blank.jpg"
 
' redimensionne la photo
DisplayPhoto
 
End Sub
 
 
 
Private Sub cmdPhoto_Click()
Dim strLink As String
 
' Gestion des erreurs
On Error GoTo Catch01
 
' récupération du chemin physique de la photo
'  par la boite de dialogue
strLink = OuvrirUnFichier(Me.hwnd, _
                         "Sélectionner une vue pour le périmètre " & Me.Nom_Perimetres, _
                         1)
 
' si la boite renvoie une adresse non nulle
If Len(strLink) > 0 Then
    ' tentative d'affichage de la photo
    Froms![tbl_signalitique_superficiaire]![frm_map].Form![Me.imgPhoto].Picture = strLink
    Me.Photo = strLink
End If
 
DisplayPhoto
Exit Sub
 
Catch01:
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 supporté par le contrôle image Picture", vbCritical + vbOKOnly, "Application Photos"
        Exit Sub
    Case 2220
        'Cas d'un emplacement non valide du fichier images
        MsgBox "Le fichier image n'a pas été trouvé à l'emplacement indiqué : " & vbCrLf & _
                Me.Photo, vbCritical + vbOKOnly, "Application 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
 
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 enregistrement vierge, donc en cours de saisie.
'  Me.Caption : gère le titre du formulaire.
If Len(Me.Nom_Perimetres) > 0 Then
    Me.Caption = "Détails pour le Périmètre : " & Me.Nom_Perimetres & " - "
Else
    Me.Caption = "Saisie d'un nouveau salarié"
End If
 
' Gestion des erreurs
On Error GoTo Catch02
 
' si la photo n'est pas définie, on affiche la photo blank.jpg
If Len(Me.Photo) > 0 Then
   Forms![tbl_signalitique_superficiaire]![frm_map].Form![Me.imgPhoto].Picture = Me.Photo
Else
   Forms![tbl_signalitique_superficiaire]![frm_map].Form![Me.imgPhoto].Picture = CurrentProject.Path \ images \ blank.jpg
End If
 
DisplayPhoto
 
Exit Sub
 
Catch02:
Select Case err.Number
    Case 2114
        'Cas d'un type de fichier photo non supporté ...
        MsgBox "Le format de l'image n'est supporté par le contrôle image Picture", vbCritical + vbOKOnly, "Application Photos"
        Forms![tbl_signalitique_superficiaire]![frm_map].Form![Me.imgPhoto].Picture = CurrentProject.Path & " \ images \ blank.jpg & """
        Me.Photo = vbNullString
    Case 2220
        'Cas d'un emplacement non valide du fichier images
        MsgBox "Le fichier image n'a pas été trouvé à l'emplacement indiqué : " & vbCrLf & _
                Me.Photo, vbCritical + vbOKOnly, "Application Photos"
        Forms![tbl_signalitique_superficiaire]![frm_map].Form![Me.imgPhoto].Picture = CurrentProject.Path & " \ images \ blank.jpg & """
        Me.Photo = vbNullString
    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
Sub DisplayPhoto()
' Traitement en fonction de la taille de l'image
 
' regarde si la hauteur de l'image dépasse celle du controle Picture
If [Me.imgPhoto].ImageHeight > [Me.imgPhoto].Height Then
    ' met le controle en mode zoom
    [Me.imgPhoto].SizeMode = 3
Else
    ' met le contrôle en mode respect de la taille originale
    Me.[imgPhoto].SizeMode = 0
End If
 
' si la largeur dépasse et qu'on est en mode taille réelle ...
If ([Me.imgPhoto].ImageWidth > Me.imgPhoto.Width) And ([Me.imgPhoto].SizeMode) = 0 Then
    ' on met en mode zoom
    [Me.imgPhoto].SizeMode = 3
End If

Cordialement.

[Jean-Philippe André]

Tu as interverti des lettres

Code :

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

Forms!

au lieu de

Code :

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

Froms!

[adelion7015]

Merci,

Maintenant j'ai un message:

Erreur inattendue : 2465
Microsoft Access ne trouve pas le champ "I1" auquel il est fait reference dans votre expression.


j'ai ce message lors de l'ouverture du formulaire ou s'affiche la photo et lors de l'ajout de la photo sur ce formulaire.

[Jean-Philippe André]

Je ne vois nulle part de I1 dans ton code.

N'y a-t-il pas egalement une erreur sur la partie de ton code :

Code :

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

.Form![Me.imgPhoto].Picture = strLink

devant etre plutot

Code :

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

.Form!imgPhoto.Picture = strLink

?

[adelion7015]

j'avance pas a pas, théoriquement ca rentre dans l'ordre, sauf que la j'ai un autre message que voici :

[adelion7015]

Une petite reponse ou petite piste s'il vous plait.

[tee_grandbois]

Bonjour,
cette erreur a t-elle un rapport avec le problème d'origine ?

Le probleme actuel est que j'ai un message d'erreur que voici : Pièce jointe 289799

Si oui, quel bouton provoque l'erreur et quel est le code associé ?
Si non, c'est un autre post à ouvrir ...

[adelion7015]

Bonjour tee_grandbois;

Oui c'est le meme probleme, puisque le code est le meme, voici le code quand je click sur le bouton ajouter/modifier de mon formulaire :

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
Private Sub cmdPhoto_Click()
Dim strLink As String
 
' Gestion des erreurs
On Error GoTo Catch01
 
' récupération du chemin physique de la photo
'  par la boite de dialogue
strLink = OuvrirUnFichier(Me.hwnd, _
                         "Sélectionner une vue pour le périmètre " & Me.Nom_Perimetres, _
                         1)
 
' si la boite renvoie une adresse non nulle
If Len(strLink) > 0 Then
    ' tentative d'affichage de la photo
   Forms [tbl_sinalitique_superficiaire]![frm_map].Form![Me.imgPhoto].Picture = strLink
    Me.Photo = strLink
End If
 
DisplayPhoto
Exit Sub
 
Catch01:
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 supporté par le contrôle image Picture", vbCritical + vbOKOnly, "Application Photos"
        Exit Sub
    Case 2220
        'Cas d'un emplacement non valide du fichier images
        MsgBox "Le fichier image n'a pas été trouvé à l'emplacement indiqué : " & vbCrLf & _
                Me.Photo, vbCritical + vbOKOnly, "Application 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

[Jean-Philippe André]

Encore et toujours des espaces en trop

Enleve nous tous cela
Ligne 16

Code :

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

Forms[tbl_sinalitique_superficiaire]![frm_map].Form!imgPhoto.Picture = strLink