Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Tisane
Bonjour à toi aussi Ganesha !!!!
comment insérer des photo à chaque enregistrement dans un formulaire.
Ton champ est de type OLE je suppose : - clic droit | Insérer un objet, - coche "A partir d'un fichier", puis [Parcourir...] - sélectionne ton fichier image - coche "Liaison" (l'image ne sera pas incorporée dans la base, mais il faudra éviter de la changer de place).
Mais tu aurais tout intérêt à lire la page suivante avant même d'insérer la 1re image :-) http://officesystem.access.free.fr/images.htm
De rien,
-- Tisane
Bonjour à toi aussi Ganesha !!!!
comment insérer des photo à chaque enregistrement dans un formulaire.
Ton champ est de type OLE je suppose :
- clic droit | Insérer un objet,
- coche "A partir d'un fichier", puis [Parcourir...]
- sélectionne ton fichier image
- coche "Liaison" (l'image ne sera pas incorporée dans la base, mais il
faudra éviter de la changer de place).
Mais tu aurais tout intérêt à lire la page suivante avant même d'insérer la
1re image :-)
http://officesystem.access.free.fr/images.htm
comment insérer des photo à chaque enregistrement dans un formulaire.
Ton champ est de type OLE je suppose : - clic droit | Insérer un objet, - coche "A partir d'un fichier", puis [Parcourir...] - sélectionne ton fichier image - coche "Liaison" (l'image ne sera pas incorporée dans la base, mais il faudra éviter de la changer de place).
Mais tu aurais tout intérêt à lire la page suivante avant même d'insérer la 1re image :-) http://officesystem.access.free.fr/images.htm
De rien,
-- Tisane
boisgontier
Bonjour,
http://cjoint.com/?dyoXYj4HR4
Private Sub ChoixPersonne_AfterUpdate() Me.Nom.SetFocus DoCmd.FindRecord Me.ChoixPersonne End Sub
Private Sub Form_Current() ChDir Application.CurrentProject.Path If Dir(Me.Nom & ".jpg") <> "" Then Me.monimage.Picture = Me.Nom & ".jpg" Else Me.monimage.Picture = "cegos.gif" End If End Sub
Cordialement JB
Bonjour,
http://cjoint.com/?dyoXYj4HR4
Private Sub ChoixPersonne_AfterUpdate()
Me.Nom.SetFocus
DoCmd.FindRecord Me.ChoixPersonne
End Sub
Private Sub Form_Current()
ChDir Application.CurrentProject.Path
If Dir(Me.Nom & ".jpg") <> "" Then
Me.monimage.Picture = Me.Nom & ".jpg"
Else
Me.monimage.Picture = "cegos.gif"
End If
End Sub
Private Sub ChoixPersonne_AfterUpdate() Me.Nom.SetFocus DoCmd.FindRecord Me.ChoixPersonne End Sub
Private Sub Form_Current() ChDir Application.CurrentProject.Path If Dir(Me.Nom & ".jpg") <> "" Then Me.monimage.Picture = Me.Nom & ".jpg" Else Me.monimage.Picture = "cegos.gif" End If End Sub