Discussion :

[L'Oracle]

Tout d'abord bonjour,

Voila je me suis lancé dans un travail de construction d'une base de donnée avec formulaire état requête etc pour la gestion d'une collection.
Le problème c'est que je souhaite pour chaque nouvelle fiche, mettre une image de l'objet et je n'ai trouvé aucun moyen de le faire.
Ce problème n'est pas tout simplement de mettre une image lorsque je suis dans la création du formulaire mais lorsque le formulaire est en train de tourner, de manière à ce que je puisse cliquer sur par exemple parcourir aller chercher mon image et ensuite qu'elle s'enregistre et soit attitré à cette fiche créee.
Pour les soluce que vous me donnerez n'allez pas trop vite dans les termes techniques car je suis novices ans ce type de projet et on peut dire qu je découvre au fur et à mesure access.
Merci pour vos réponse
Cordialement

L'Oracle

[Arkham46]

bonjour,

commence par lire le post-it :
*~* >>>>> A LIRE AVANT DE POSTER - IMPERATIF

dans lequel il y a tous les liens utiles où chercher avant de poster un message

dans les tutoriels tu pourras trouver un tutoriel de cafeine sur le sujet (et il y a également un nombre importants de messages dans le forum)

Remarque que quand tu dis :

aller chercher mon image et ensuite qu'elle s'enregistre

il faut savoir que Access n'est pas efficace dans le stockage des images (il est même plutôt déconseillé d'y stocker des images)
Il convient donc de laisser les images à l'extérieur de la base, en utilisant éventuellement la fonction FileCopy pour regrouper tes images dans un sous-répertoire.

bye.

[cafeine]

Tout d'abord bonjour,

Voila je me suis lancé dans un travail de construction d'une base de donnée avec formulaire état requête etc pour la gestion d'une collection.
Le problème c'est que je souhaite pour chaque nouvelle fiche, mettre une image de l'objet et je n'ai trouvé aucun moyen de le faire.
Ce problème n'est pas tout simplement de mettre une image lorsque je suis dans la création du formulaire mais lorsque le formulaire est en train de tourner, de manière à ce que je puisse cliquer sur par exemple parcourir aller chercher mon image et ensuite qu'elle s'enregistre et soit attitré à cette fiche créee.
Pour les soluce que vous me donnerez n'allez pas trop vite dans les termes techniques car je suis novices ans ce type de projet et on peut dire qu je découvre au fur et à mesure access.
Merci pour vos réponse
Cordialement

L'Oracle

Hello,

j'espère que ce tutoriel pourra t'inspirer ...

http://cafeine.developpez.com/access/tutoriel/photos

[L'Oracle]

Merci beaucoup pour ces précieuses iformations et pour ces tuto bien utiles. Logiquement je devrais m'en sortir surtout vu la qualité des tutos.
Bonne continuation

@+

[L'Oracle]

Je ne dois pas être très doué mais avec le tuto de cafeine je n'y arrive pas. Son fichier marche impécable mais impossible de le reproduire dans mon formulaire, je peine à savoir les champs qu'il faille que je modifie pour le rendre fonctionnel avec mes tables et mes formulaires. Un peu d'aide svp
Merci

[L'Oracle]

ça y est j'ai réussi, j'avais oublié de rentrer le code pour la commande photodisplay :-(
Par contre je me retrouve bloqué pour un autre problème, maintenant tout est ok pour la saisie de mes fiches rien à dire, mais j'aimerai que lorsque je veux imprimer mon état qui prend un objet par page avec toutes les informations je puisse avoir sa photo qui va avec et là même en remettant le même code je n'y arrive pas.
Merci pour vos réponses

[Davik]

comment a tu fait ??? pourrai tu partager tes codes

[cafeine]

ça y est j'ai réussi, j'avais oublié de rentrer le code pour la commande photodisplay :-(
Par contre je me retrouve bloqué pour un autre problème, maintenant tout est ok pour la saisie de mes fiches rien à dire, mais j'aimerai que lorsque je veux imprimer mon état qui prend un objet par page avec toutes les informations je puisse avoir sa photo qui va avec et là même en remettant le même code je n'y arrive pas.
Merci pour vos réponses

Pensez à utiliser Recherche avancée sur le forum
Merci

Un indice, cette fois l'événement n'est pas Current, mais Format de la section détail.

[L'Oracle]

Arhh
J'ai fait des recherches sur le site mais je ne trouve pas la solution
Avec ton indice j'ai pensé au lieu de marqué form_current j'ai marqué format_detail mais ça ne marche pas!!
SVP
Pourtant j'ai remarqué tout le code que j'avais utilisé pour le formulaire mais ça ne marche pas, je vais devenir chauve
Merci

[cafeine]

ah ben en recherchant : etat photo

je trouve ça :
http://www.developpez.net/forums/vie...ght=photo+etat
http://www.developpez.net/forums/vie...ght=etat+photo

ça devrait aider ...

[L'Oracle]

Merci pour ces tutos le problème c'est que ça va pas

J'ai mis ce code mais ça ne marche pas

Private Sub Détail_Format()
Me.CtlPicture.Picture = CurrentProject.Path & "image\blank.jpg" & Me.UnChampId & ".jpg"

End Sub

Mais les images ne changent pas

[cafeine]

re,

1- merci d'éditer ton message pour y mettre les balises code
2- pense à déboguer :

Code :

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

Debug.print "le chemin qui bug est : " & CurrentProject.Path & "image\blank.jpg" & Me.UnChampId & ".jpg"

je pense que ton erreur te sautera aux yeux ..

[L'Oracle]

Je n'y arrive pas rien ne marche il me dit des erreurs de type formatage entrée à provoquée une erreur
J'ai changé mon code en

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
Option Compare Database
Private Sub Détail_Format()
 
If Len(Me.Photo) > 0 Then
    Me.imgPhoto.Picture = Me.Photo
Else
    Me.imgPhoto.Picture = CurrentProject.Path & "\images\blank.jpg"
End If
 
DisplayPhoto
 
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

Mais il me mets l'expression au formatage entrée comme paramètre de la propriété de type évènement est à l'origine d'une erreur
J'ai bien lu tous les tutos mais rien ne me saute à la figure. Je pense être encore trop novice mais je cherche!!!

[RAPPEL]
[Modération, cafeine : Pensez à utiliser la balise [CODE] qui améliore la lisibilité, merci]

[cafeine]

Bon dernier rappel pour les balises code qui sont non facultatives ...

Il me semble que Me.Photo est un chemin relatif, non ?

par conséquent est-ce qu'il ne manque pas CurrentProject.Path ?

[L'Oracle]

Désolé pour le code je n'avais pas compris
Pour ce qui est de

Code :

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

1
2
 
Me.Photo

est le champs dans ma table ou se trouve le lien de l'image, je ne vois pas ou rajouter

Code :

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

1
2
 
CurrentProject.Path

Désolé d'être lourd à la comprenette mais je fais de mon mieux

[cafeine]

ben ici ... uniquement si Me.Photo est un chemin relatif ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Détail_Format()
 
If Len(Me.Photo) > 0 Then
    Me.imgPhoto.Picture = CurrentProject.Path & Me.Photo
Else
    Me.imgPhoto.Picture = CurrentProject.Path & "\images\blank.jpg"
End If
 
DisplayPhoto
 
End Sub

[L'Oracle]

Le problème est que ça ne marche toujours pas!
Pour donner plus de précision, je me suis servi de ton tuto pour ajouter des photos dans mes formulaires attitré à mes objets.
tout marche impec, lorsque que je veux ajouter une photo la boite de dialogue s'ouvre et la photo saisie, le chemin s'enregistre dans ma table "parfum" dans le champ "Photo"
Maintenant je met ce 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
Option Compare Database
Private Sub Détail_Format()
 
If Len(Me.Photo) > 0 Then
    Me.imgPhoto.Picture = CurrentProject.Path & Me.Photo
Else
    Me.imgPhoto.Picture = CurrentProject.Path & "\images\blank.jpg"
End If
 
DisplayPhoto
 
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

dans mon état en ayant pris soin de remettre un champ image qui se nomme imgPhoto mais lorsque je lance pour voir mon état il me met toujours la même chose qui est :

l'expression au formatage entrée comme paramètre de la propriété de type évènement est à l'origine d'une erreur. La déclaration de la procédure ne correspond pas à la description de l'vènement ou de la procédure de même nom
Le résultat de l'expression n'est pas une macro, le nom d'une fonction définie par l'utilisateur ou [Event Procedure]
Une erreur à peut-être été commise lors de l'évaluation d'une fonction, d'un évènement ou d'une macro

Maintenant que j'ai réussi à mettre les photos dans le formulaire c'est dommage que je ne puisse pas les lier aux état pour les imprimer

[Arkham46]

La déclaration de la procédure ne correspond pas à la description de l'vènement ou de la procédure de même nom

la procédure Détail_Format doit répondre à une syntaxe précise
donc il ne faut pas l'écrire soit-même, il faut cliquer à droite de la propriété "Sur Formatage" sur les [...] pour laisser access la générer avec les bons paramètres.

[L'Oracle]

Merci merci merci Arkham46!!!!!

En effet ce n'est pas :

Code :

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

1
2
 
Private Sub Détail_Format

mais

Code :

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

1
2
3
4
5
6
7
8
9
10
 
[b][color=red]Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)[/color][/b]
If Len(Me.Photo) > 0 Then
    Me.imgPhoto.Picture = Me.Photo
Else
    Me.imgPhoto.Picture = CurrentProject.Path & "\images\blank.jpg"
End If
 
DisplayPhoto
End Sub

Merci à tous pour votre patience maintenant tout fonctionne impécable. C'est vraiment très agréable de pouvoir recevoir des conseils de personnes s'y connaissant

Merci beaucoup