Discussion :

[cyjo77370]

Bonjour,

J'ai cherhcé sur le forum et trouvé un débute de solution à l'aide de ce lien.
http://www.developpez.net/forums/sho...uton+parcourir
Il permet de placer un bouton parcourir sur mon formulaire et d'afficher le chemin complet ainsi que le nom du fichier sélectionné.

Hors moi ce qui m'intéresse, c'est bien le bouton parcourir, mais je souhaite que le fichier choisit (en l'occurence une image) apparaisse dans mon objet OLE ayant pour nom "photo".

Merci de votre aide

[User]

Salut,

Ne vaut-il pas mieux que tu sauvegarde uniquement le chemin de l'image dans ta Base et que tu utilises le contrôle Image et sa propriété Picture pour l'afficher sur ton formulaire ???

(Comme dans le tuto de Caféine)

Plutot que d'utiliser un Objet OLE ?

@+

[cyjo77370]

je n'ai pas trouvé le tuto de caféine et ensuite, j'ai effectivement testé la propriété picture d'une image, mais celle-ci s'affiche à l'identique dans tous les enregistrements de mes formulaires.

[User]

Voici le lien:

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


En gros, tu a le bouton ouvrir fichier:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub OuvrirFichier_Click()
Dim Chemin As String
Chemin = OuvrirUnFichier(Me.hwnd, "Parcourir", 1)
If Chemin = "" Then
Exit Sub
Else
Me!CheminBase.Value = Chemin
End If
End Sub

Qui te permet de récupérer le chemin de l'image dans ta base (par ex: dans le Champ CheminBase de ta table)

et après en gros sur activation de ton formulaire:

Code :

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

1
2
3
4
5
6
Private Sub Form_Current()
 
Me.imgPhoto.Picture = Me!CheminBase.value
DisplayPhoto
 
End sub

Etudie surtout le tuto de caféine pour plus de précision..


@+

[cyjo77370]

je viens de trouver le tuto avec la base d'exemple de caféine

voici le lien pour ceux qui cherche comme moi.

http://cafeine.developpez.com/access.../photos/#LIV-B

et merci à la personne qui m'a aidé et aiguillé, je pense pouvoir résoudre mon problème maintenant.

[gharsa0007]

Voici le lien:

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


En gros, tu a le bouton ouvrir fichier:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub OuvrirFichier_Click()
Dim Chemin As String
Chemin = OuvrirUnFichier(Me.hwnd, "Parcourir", 1)
If Chemin = "" Then
Exit Sub
Else
Me!CheminBase.Value = Chemin
End If
End Sub

Qui te permet de récupérer le chemin de l'image dans ta base (par ex: dans le Champ CheminBase de ta table)

et après en gros sur activation de ton formulaire:

Code :

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

1
2
3
4
5
6
Private Sub Form_Current()
 
Me.imgPhoto.Picture = Me!CheminBase.value
DisplayPhoto
 
End sub

Etudie surtout le tuto de caféine pour plus de précision..


@+