Discussion :

[ludolan]

Bonjour à tous

Je dispose d'une table (importer depuis un autre logiciel) qui contient un numéro unique, un nom, un prénom, ......

J'ai un dossier contenant des photos d'identités.
Les noms de ces photos correspondent au numéro unique de ma base. Pour l'instant, il n'y a aucun lien entre ma table et mon dossier de photos.

j'ai donc :

une base access avec une table contenant un numéro unique (ex : 3006)
un dossier contenant les photos des personnes (ex : 3006.jpeg).

Je voudrai au FINAL faire un formulaire sur lequel apparaitrait les infos de la personne et sa photo correspondante.

Pourriez vous s'il vous plait m'indiquer la marche à suivre pour arriver à faire celà ? Merci à vous pour votre aide.

Ludolan.

[LedZeppII]

Bonjour,

tu peux t'inspirer du tutorial de Caféine Gestion de photos par formulaire

Bon courage

[ludolan]

Merci pour ta réponse, je viens de regarder celà brièvement et ne m'y connaissant pas vraiment en programmation, j'ai l'impression que celà ne me permettra pas de gérer mon attribution automatique. En fait, je vais avoir environ 500 photos qu'un photographe va me donner sur cd avec tout les fichiers images déjà nommés comme dans ma base utilisateurs. L'attribution "manuelle" sera trop longue je pense. Une attribution automatique par un truc du genre :

PHOTOSidpersonne=c:\photos\$idpersonne.jpg (j'espère que vous comprenez ce que je veux dire.... :/ )

Voilà, si d'autres ont des astuces, merci à vous.

Je m'en vais tester celà en tout cas et merci encore.

Ludolan.

[LedZeppII]

Le principe est d'insérer un contrôle 'Image' dans le formulaire.
Tu mets une image par défaut, sinon le contôle disparait du Formulaire
Tu la définis en tant qu'image liée. Propriétés->Format->Type Image : Attaché

Ensuite tu mets ce code pour l'évènement 'Sur Activation' du Formulaire.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_Current()
Dim strImage As String

strImage = "C:\Photos\" & Cstr(Me.idPersonne) & ".jpg"
If Dir(strImage)<>"" then
   Me.Image1.Picture = strImage
Else
   Me.Image1.Picture = ... image par défaut ...
End If

End Sub

idPersonne représente le champ qui contient le numéro unique.
Image1 est le nom du contrôle Image (Propriétés->Autres->Nom)

Bon courage

[ludolan]

Merciiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii !

Ca marche nickel ! Vraiment super bien ! Merci à toi ledzep.

A bientot et vraiment merci encore.

Ludo.