insérer une photo

Bonsoir.

lis la page :
http://access.seneque.free.fr/images.htm
si tu es sur 2003, lis la page:
http://access2003.free.fr/images.htm

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"dav" <dav49400@wanadoo.fr> a écrit dans le message de
news:cihot4$91j$3@news-reader4.wanadoo.fr...

ma base doit comporter 3 champs :

- nom
- memo
- photo

pour les 2 premiers pas de problemes mais le 3° j'ai mis un cadre
d'objet indépendant...et ensuite ? j'ai choisi la photo allant ave la
fiche mais il me met la meme pour toute...je veux pouvoir créer mes
fiches et insérer la photo de la personne sur chaque fiche...comment
dois je procéder ?
merci de votre aide, je débute...
dav

Bonjour aussi,

moi je préfère garder les images indépendamment de la base; c'est
beaucoup plus simple pour modifier les images et la taille de la base
n'explose pas.

D'abord la base contient un champ "index" qui en est la clé primaire
(NuméroAuto-sans doublon)
Ma photo porte le même nom que le N° du champ index (donc pas de
possibilité de se tromper dans l'orthographe mais seulement 1 image
par enregistrement possible)

En pratique, j'insere un champ "image", avec la propriété Type image
= attaché.
L'image par défaut étant une image existante, mais vièrge (= de la
même couleur que le fond du formulaire).

ensuite il suffit d'un petit bout de code :

Private Sub Form_Current()
On Error GoTo Err_Form_Current

Dim myPath As String 'répertoire ou se trouvent les photos
Dim model As String 'variable qui récupère le nom de la photo

myPath = "D:ma_base_accessles_images_de_la_base"
model = myPath & Me.index & ".jpg"

Me.Image1.Picture = model

Exit_Form_Current:
Exit Sub

Err_Form_Current:
If Err.Number = "2220" Then 'la photo n'existe pas
Me.Image1.Picture = myPath & "vide.jpg"
Else
MsgBox Err.Number & " - " & Err.Description
End If

Resume Exit_Form_Current

End Sub

Bon courage

On Sat, 18 Sep 2004 18:50:35 +0200, dav <dav49400@wanadoo.fr> wrote:

ma base doit comporter 3 champs :

- nom
- memo
- photo

pour les 2 premiers pas de problemes mais le 3° j'ai mis un cadre
d'objet indépendant...et ensuite ? j'ai choisi la photo allant ave la
fiche mais il me met la meme pour toute...je veux pouvoir créer mes
fiches et insérer la photo de la personne sur chaque fiche...comment
dois je procéder ?
merci de votre aide, je débute...
dav

Bonjour aussi,

moi je préfère garder les images indépendamment de la base; c'est
beaucoup plus simple pour modifier les images et la taille de la base
n'explose pas.

D'abord la base contient un champ "index" qui en est la clé primaire
(NuméroAuto-sans doublon)
Ma photo porte le même nom que le N° du champ index (donc pas de
possibilité de se tromper dans l'orthographe mais seulement 1 image
par enregistrement possible)

En pratique, j'insere un champ "image", avec la propriété Type image
= attaché.
L'image par défaut étant une image existante, mais vièrge (= de la
même couleur que le fond du formulaire).

ensuite il suffit d'un petit bout de code :

Private Sub Form_Current()
On Error GoTo Err_Form_Current

Dim myPath As String 'répertoire ou se trouvent les photos
Dim model As String 'variable qui récupère le nom de la photo

myPath = "D:ma_base_accessles_images_de_la_base"
model = myPath & Me.index & ".jpg"

Me.Image1.Picture = model

Exit_Form_Current:
Exit Sub

Err_Form_Current:
If Err.Number = "2220" Then 'la photo n'existe pas
Me.Image1.Picture = myPath & "vide.jpg"
Else
MsgBox Err.Number & " - " & Err.Description
End If

Resume Exit_Form_Current

End Sub

Bon courage

On Sat, 18 Sep 2004 18:50:35 +0200, dav <dav49400@wanadoo.fr> wrote:

ma base doit comporter 3 champs :

- nom
- memo
- photo

pour les 2 premiers pas de problemes mais le 3° j'ai mis un cadre
d'objet indépendant...et ensuite ? j'ai choisi la photo allant ave la
fiche mais il me met la meme pour toute...je veux pouvoir créer mes
fiches et insérer la photo de la personne sur chaque fiche...comment
dois je procéder ?
merci de votre aide, je débute...
dav

mais le champ index, il risque pas de changer en cas de suppression d'un

enregistrement ?
dav