[AC-2007] Plusieurs enregistrements sur une même page d'un formulaire [Résolu]

[Triton972]

Bonjour à tous,

J'ai une table avec une référence de photo par enregistrement.
Je souhaite afficher plusieurs photos (donc plusieurs enregistrements) dans une même page d"un formulaire (genre planche contact). J'ai créé une table annexe avec autant de champs que je souhaite de photos et que j'alimente avec un petit code VBA.
Mais peut-on faire autrement ?
Merci d'avance pour vos idées et suggestions.
Cordialement,

[Triton972]

Bonsoir,

Je pense avoir trouvé une solution ...
@+

[Philippe JOCHMANS]

Bonjour

Envoyé par Triton972

Je pense avoir trouvé une solution ...

DVP étant un forum d'échange, ce serait bien d'expliquer ce que tu as fait.

Sinon : Intégration d'images dans les formulaires continus sous Access 2007

Philippe

[Triton972]

Bonjour,
C'était prévu après ...quelques vérifications

Objectif : Je veux visualiser un ensemble de photos regroupé par 6 dans une même page.

J'ai utilisé une technique utilisant 6 sous-formulaires intégrés dans un formulaire principal et qui gère toute la navigation entre les photos. Chaque sous-formulaire est rattaché à une requête de la table principale qui ne prend qu'un enregistrement sur 6 (6 photos !). Je m'explique :

J'ai une requête principale qui reprend toutes les références photos et 2 autres champs calculés : Ligne et Indice.
Ligne : Calcule un N° de ligne incrémenté automatiquement

Code :

Ligne: CpteDom("[C_PHR_NPHR]";"T_PHR";"[C_PHR_NPHR]<=" & [C_PHR_NPHR])

et Indice : Calcule Ligne mod 6 (le reste de la division entière du N° ligne par 6)

Code :

Indice: [Ligne] Mod 6

Chaque sous-requête est basée sur cette requête principale filtrée sur "Indice"
Le 1° sous-formulaire reprend donc tous les enregistrements dont l'indice =1, c'est à dire, Ligne =1, 7, 13, etc
le 2° : Ligne = 2, 8, 14 etc...
...
le 6° : Ligne = 6, 12, 18 ...

Je positionne tous les sous-formulaires les uns à côté des autres et j'ai donc les 6° premières photos en même temps sur une même page sans table supplémentaire.

Je gère les sauts de page avec :

Code :

1
2
3
4
5
6
7
8
9
 
Private Sub btn04_Click()  ' Suivant
Me.FX_PHR2_1.Form.Recordset.MoveNext
Me.FX_PHR2_2.Form.Recordset.MoveNext
Me.FX_PHR2_3.Form.Recordset.MoveNext
Me.FX_PHR2_4.Form.Recordset.MoveNext
Me.FX_PHR2_5.Form.Recordset.MoveNext
Me.FX_PHR2_6.Form.Recordset.MoveNext
End Sub

Les temps de réponse sont corrects et je n'ai pratiquement pas de code derrière
J'espère que mes explications sont suffisamment claires.
Bonne continuation