1 membre
Connectés : ( personne )
- La Charte du Forum - Forum - Problèmes Access des débutants
Sujet n° 565 |
Etat avec photo |
le 27/11/2011 : 17:35 par jeanpierre78
visiteur |
Bonjour,Bravo et merci pour l'exemple trombinoscope. Je l'ai appliqué avec succés à la BD de gestion des membres de mon association.Je souhaite maintenant inclure la photo du membre plutôt qu'un rectangle vide dans l'état "Fiche d'inscription" . Quelle est la procédure?Merci d'avance.Jean-Pierre |
|
|
Réponse n° 1 -------- le 28/11/2011 : 15:12 par 3Stone
Administrateur
|
Bonjour,
Le principe pour l'affichage dans un état est exactement le même que pour un formulaire.
On dispose donc un contrôle image et on renseigne sa source dans l'événement "Au formatage" de la section détail.
Il faut bien sûr que le chemin d'accès vers l'image soit conforme à la réalité.
Il ne faut donc pas avoir un accès mémorisé du type "C:/Mes documets/Ma base/photo1.jpg", mais plutôt relatif à la base.
Si tu as créé comme dans l'exemple un répertoire "Photos" dans le même répertoire que celui ou se trouve la base, tu peux récupérer ce chemin par le VBA suivant:
Code :
dim sPath as String sPath = CurrentProject.Path & "/Photos/"
auquel il suffit alors d'ajouter le nom de la photo.
Cela ressemble alors à quelque chose comme ceci :
Code :
Me![ctlImage].Picture = sPath & Me.[NomPhoto]
Cordialement,
Pierre(3stone)
Note: Les slash "/" sont à remplacer par des backslash propre à windows... |
|
|
Réponse n° 2 -------- le 07/12/2011 : 12:44 par jeanpierre78
visiteur |
Bonjour,
Merci pour la réponse. J'ai réglé le problème en mettant dans mon état un contrôle image.
Jean-Pierre |
|
|
Réponse n° 3 -------- le 07/12/2011 : 12:51 par jeanpierre78
visiteur |
Bonjour,
Lors du choix de l'image, si l'on choisit un fichier du dossier \Sauve\ ou si l'on quitte l'écran d echoix avant la sélection, il y a un message d'erreur. Le code suivant élimine ces messages :
Code :Dim sPath As String Dim sFichier As String Dim sNomPhoto As String '/ Définition des accès aux images sPath = Application.CurrentProject.path '/ Sélection de la photo sFichier = fOpenFiles '/ Si pas de sélection = sortir If sFichier = "" Then Exit Sub End If '/ Traitement de la sélection If Len(sFichier) > 0 Then '/ Récupéreration du nom de la photo sNomPhoto = Mid(sFichier, InStrRev(sFichier, "\") + 1) Me.Act_Photo = sNomPhoto End If '/ sauver la modification de l'enregistrement Me.Dirty = False '/ Actualiser l'image Call Form_Current Me.Refresh '/ Copie de la photo dans le répertoire local si la photo n'existe pas If ExisteFileFSO(sPath & "\Photos\" & sNomPhoto) = False Then FileCopy sFichier, sPath & "\Photos\" & sNomPhoto Else Exit Sub End If
Jean-Pierre |
|
|
Réponse n° 5 -------- le 08/02/2012 : 15:31 par jeanpierre78
visiteur |
Bonjour,
J'ai appliqué cette méthôde pour gérer ma collection de CD (175 CD). Lorsque je veux faire un catalogue avec la photo de la pochette pour chaque CD, j'ai soit :
- des images blanches à partir de la 7ème page, c'est à dire à partir de la 104ème image, lorsque l'état est très simple (4 champs et le contrôle image),
- soit si l'état est plus compliqué, un message d'erreur : "Erreur d'éxécution '2114' : Gestion des CD ROM ne prend pas en charge le fichier "D\Mes documents\...\xxx.jpg" ou le fichier est trop volumineux. Essayer de le convertir au format BMP ou GIF." alors que sur une flitrage (sur un interprète par exemple) qui limite à 6 ou 8 CD au maximum, l'état fonctionne.
Comment contourner cette difficulté?
Jean-Pierre |
|
|
Réponse n° 7 -------- le 08/02/2012 : 23:39 par jeanpierre78
visiteur |
Bonsoir,
Merci pour la réponse.
Lors du message d'erreur, sur 2096 ko de mémoire vive, il en reste 214 ko de disponible, c'est à dire : rien. L'origine est donc probablement matérielle.
Mes images font 1,4 Mpixels pour un affichage en 10x10 cm dans le formulaire de saisie. Dans l'état, les images ont une taille de 3x3 cm où une taille de 0,126 Mpixels serait suffisante.
Existe-t-il un moyen pour réduire leur taille dans l'état sans toucher au fichier original ?
Cordialement.
Jean-Pierre |
|
|
Réponse n° 8 -------- le 09/02/2012 : 09:53 par jeanpierre78
visiteur |
Bonjour,
En diminuant la taille des images à 0.1 Mpixel, je n'ai plus de problème et l'affichage à l'écran (formulaire) en 10x10 cm est suffisant. Sur l'état avec une image de 3x3 cm, la définition est de 300 dpi.
Cordialement.
Jean-Pierre |
|
|
sujet actif
sujet clos
Important!
Nouveau message -
Rectifier message
Clôturer sujet
Remonter
|