;-) Insertion image sous access

Version imprimable

05/04/2006, 19h56
L'Oracle

[RESOLU] ;-) Insertion image sous access

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
05/04/2006, 20h26
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 :

Citation:

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.
05/04/2006, 22h19
cafeine

Re: Insertion image sous access

Citation:

Envoyé par 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

Hello,

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

http://cafeine.developpez.com/access/tutoriel/photos
05/04/2006, 22h48
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

@+
06/04/2006, 13h58
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
06/04/2006, 14h57
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
06/04/2006, 15h00
Davik

comment a tu fait ??? pourrai tu partager tes codes
06/04/2006, 15h12
cafeine

Citation:

Envoyé par 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

Pensez à utiliser :arrow: http://www.developpez.net/forums/tem...ini_search.gif 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.
06/04/2006, 15h29
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
06/04/2006, 15h33
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 ...
06/04/2006, 15h52
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
06/04/2006, 16h10
cafeine

re,

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

Code:

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

je pense que ton erreur te sautera aux yeux ..

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:

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]

06/04/2006, 16h49
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 ?
06/04/2006, 16h54
L'Oracle
Désolé pour le code je n'avais pas compris :oops:
Pour ce qui est de
Code:

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:

1 2 CurrentProject.Path
Désolé d'être lourd à la comprenette mais je fais de mon mieux

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

Code:

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

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:

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 :

Citation:

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 :cry:

06/04/2006, 17h26
Arkham46

Citation:

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.

Merci merci merci Arkham46!!!!!

En effet ce n'est pas :
Code:

1 2 Private Sub Détail_Format
mais
Code:

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 :wink: