Actualisation photo Access 2003 dans formulaire - Logiciels::Bureautique

Auteur

Message

rodillo85

Posté le 20/06/2008 15:27:22

Bonjour à tous,
Voila je vous explique mon problème :
J'ai une base access qui me sert à gérer différents clients.
Un formulaire me demande quel client je veux interroger, puis suivant ma réponse va chercher les infos du client. Jusque la c'est tout bon. ensuite pour chaque client j'ai une photo. le problème est que lorsque j'ouvre le formulaire il m'affiche une image par défaut et non l'image du client. Pourtant sous cette photo j'ai bien le lien ou il va chercher la photo qui est la bonne photo. en cliquant sur ce lien puis en double cliquant sur l'emplacement de la photo elle apparait. Mais ceci ne se fait pas automatiquement,

Que faire ??

Merci d'avance

-->Message édité par rodillo85 le 20/06/2008 15:27:56<--

f6ggr

Posté le 20/06/2008 18:26:59

Salut,
1) Access et les images, c'est pas gané d'avance.
2)Essaye de'utiliser une macro qui "actualisera" ce "contrôle" à l'ouverture du formulaire.
3) Tu peux utiliser un champ de type OLE dans la table des clients, dans lequel sera stocké l'image. Mais pour les versions antérerieures à 2007, l'image est convertie en bitmap, ce qui crée un gros fichier et fait rapidement grossir le fichier.mdb.
4) Une autre solution est d'entrer le chemin complet de la photo dans un champ texte de la base et de l'utiliser dans un contrôle d'image indépendant grâce à une macro.

-------
ALAIN

michel_m

Posté le 22/06/2008 17:30:32

Bonjour,

Dans la table clients, ajouter un champ (ici c_photo) dans lequel on marque le nom du fichier photo (par exemple machin.jpg …tout format accepté: tiff, png, bmp….)
Les photos sont dans un sous-répertoire de la base (ici photo_ident)

Sur le contrôle image: (ici trombine)
Propriétés type: attaché
Mode affichage: zoom
Alignement centré

Les macros à insérer dans le module du formulaire "clients"
Dans propriété de "trombine": évènements sur "clic" cliquer sur le bouton avec 3 points et copier en les adaptant les 2 macros ci dessous

Private Sub c_photo_AfterUpdate()
Dim photo_id As String

If IsNull(Me!c_photo) Then
Me!trombine.Picture = ""
Else

photo_id = CurrentProject.Path & "\photo_ident\" & Me!c_photo

Me!trombine.Picture = photo_id
End If
End Sub

Private Sub Form_Current()
c_photo_AfterUpdate
End Sub

Ces 2 macros sont nécessaires pour enlever la photo de l'enregistrement précédent

-------
Amicalement
Michel

rodillo85

Posté le 23/06/2008 09:50:20

Ok merci je vais jeter un coup d'œil la dessus.

[sécurité] Les veines du doigt, nouveau sésame biométrique

[services] Bouygues Telecom lorgne les iPhone d'Orange

[mobile] Une panne empêche 15 % des abonnés SFR de téléphoner

[médias] Plus de 350 dossiers de candidature reçus pour la radio numérique

[société] Une manifestation contre la « société de surveillance »

[marché] Le nouvel Internet à construire est l'Internet des objets

[matériels] Eee PC du riche et Eee PC du pauvre : Asus va enrichir sa gamme de notebooks

[jeu vidéo] Les jeux créés pour la nouvelle DS seront « zonés »