Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access > IHM
IHM Ce forum est dédié aux questions relatives à la création de formulaires et d'états, avec ou sans code VBA, et macros.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 19/05/2011, 09h39   #1
Membre du Club
 
Inscription : novembre 2006
Messages : 86
Détails du profil
Informations forums :
Inscription : novembre 2006
Messages : 86
Points : 45
Points : 45
Par défaut Ajouter des pages en dynamique dans un report

Salut à tous,
voilà il faut que je récupère des photos stockées dans un dossier pour les afficher dans un Report. Une photo par page. Je ne sais pas ajouter dynamiquement une page et un contrôle image.

Merci de vos réponses.
Chrysostome est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 19/05/2011, 15h08   #2
Membre Expert
 
Homme Robert JAMIN
Retraité
Inscription : juillet 2009
Messages : 1 223
Détails du profil
Informations personnelles :
Nom : Homme Robert JAMIN
Âge : 73
Localisation : Belgique

Informations professionnelles :
Activité : Retraité
Secteur : Enseignement

Informations forums :
Inscription : juillet 2009
Messages : 1 223
Points : 2 022
Points : 2 022
Bonjour,
Suivant la zone du rapport où se trouve l'image il faut imposer un saut de page après section à cette zone.
__________________
Cordialement.

RJ
rjamin est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 19/05/2011, 18h59   #3
Membre du Club
 
Inscription : novembre 2006
Messages : 86
Détails du profil
Informations forums :
Inscription : novembre 2006
Messages : 86
Points : 45
Points : 45
Par défaut Merci de ta réponse ...

Mais, je ne l'ai pas stipulée, mais c'était pour modéliser en VBA.
La solution que j'ai adoptée, afin que cela puisse servir à d'autres, c'est de charger l'adresse de chaque photo dans une table à 2 champs: un Num pour l'ordre, et l'adresse complète.
Puis, un Report avec un container image au format maxi pour 1 page.
Code :
1
2
3
4
5
6
7
Private Sub Report_Open(Cancel As Integer)
Me.Image0.Picture = DLookup("img", "T_ImgPDF")
End Sub
 
Private Sub Report_Page()
Me.Image0.Picture = Me.img
End Sub
Voilà, et merci à ceux qui nous aident.
Chrysostome est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 19h35.


 
 
 
 
Partenaires

Hébergement Web