Discussion :

[accessisgood]

Bonjour,

j'ai une table avec 2 champs
- Titre (text)
- NomDuRapport (text), faisant référence à un rapport existant dans la base access

je souhaiterai lancer un rapport sur cette table affichant pour chaque détail
- le titre
- un objet SubForm/Subreport affichant le rapport appellé [NomDuRapport]

une idée?

[ClaudeLELOUP]

Bonjour,

Peut-être en plusieurs phases.

- 1° On aurait un état modèle avec une série de paires zone de texte/container de subreport vierges. (Un peu plus de paires que la table contient de rapports.)
- 2° On construit à la volée un nouvel état dans lequel on garnit les zones de texte avec les [Titre] de la table, les sources de subreport avec "État." & [NomDuRapport].
- 3° On supprime les paires excédentaires.
- 4° On sauve ce « nouveau » rapport.
- 5° Et on l’ouvre.

N.B. Beau challenge pour occuper un dimanche pluvieux !

[ClaudeLELOUP]

Un premier jet

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Option Compare Database
Option Explicit
 
 
Public Sub CreerEtatSub()
  On Error GoTo GestionErreur
  Dim oRst As DAO.Recordset
  Dim i As Integer
  DoCmd.DeleteObject acReport, "eEtatSub"
  DoCmd.CopyObject , "eEtatSub", acReport, "eModele"
  DoCmd.OpenReport "eEtatSub", acViewDesign
  Set oRst = CurrentDb.OpenRecordset("laTable")
  oRst.MoveFirst
  i = 1
  Do While Not oRst.EOF
    Reports!eEtatSub("Titre" & i).ControlSource = "=""" & oRst("Titre") & """"
    Reports!eEtatSub("CTNR" & i).SourceObject = "État." & oRst("NomDuRapport")
    i = i + 1
    oRst.MoveNext
  Loop
  DoCmd.OpenReport "eEtatSub", acViewPreview
  oRst.Close
  Set oRst = Nothing
GestionErreur:
  Select Case Err.Number
    Case 0 'Pas d'erreur
    Case 29068, 7874
      Resume Next
    Case Else
      MsgBox "Erreur dans CreerEtatSub N° " & Err.Number & " " & Err.Description
  End Select
End Sub

[accessisgood]

Merci beaucoup, c'est vraiment LA solution!

je vais créer plusieurs modèles avec 10, ou 20 ou 50 groupes en fonction du nombre de records du recordset

et ton dimanche pluvieux est libre

[ClaudeLELOUP]

Bonjour,

je vais créer plusieurs modèles avec 10, ou 20 ou 50 groupes en fonction du nombre de records du recordset

Plus simple !
Pour construire le modèle procède comme ceci :
- Tu crées une paire :

- Tu sélectionnes ces deux contrôles et tu copies/colles 49 fois. Tu as maintenant 50 paires, dont 49 « mal nommées » (Textexxx, Fillexxx).
- Tu renommes Textexxx =>Titre2, … , Titre50 et Fillexxx => CTNR2, … , CTNR50.
- Tu sélectionnes les 100 contrôles et tu leur attribues la plus petite hauteur possible <> 0 ( 0.002 cm ≈ 1 tip) :

- Tu les colles tous vers le haut :

-Tu réduis la taille de la section Détail.
Sur l’état les paires qui ne sont pas utilisées sont imperceptibles.
=> un seul modèle quel que soit le nbre d’items dans la table.

J’ai un peu modifié la procédure d’appel, pour offrir le choix de la table :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Option Compare Database
Option Explicit
 
 
Public Sub CreerEtatSub()
  On Error GoTo GestionErreur
  Dim oRst As DAO.Recordset
  Dim i As Integer
  Dim sLatable As String
  sLatable = Forms!fChoix!cboChoix
  DoCmd.DeleteObject acReport, "eEtatSub"
  DoCmd.CopyObject , "eEtatSub", acReport, "eModele"
  DoCmd.OpenReport "eEtatSub", acViewDesign
  Set oRst = CurrentDb.OpenRecordset(sLatable)
  oRst.MoveFirst
  i = 1
  Do While Not oRst.EOF
    Reports!eEtatSub("Titre" & i).ControlSource = "=""" & oRst("Titre") & """"
    Reports!eEtatSub("CTNR" & i).SourceObject = "État." & oRst("NomDuRapport")
    i = i + 1
    oRst.MoveNext
  Loop
  DoCmd.OpenReport "eEtatSub", acViewPreview
  oRst.Close
  Set oRst = Nothing
GestionErreur:
  Select Case Err.Number
    Case 0 'Pas d'erreur
    Case 29068, 7874
      Resume Next
    Case Else
      MsgBox "Erreur dans CreerEtatSub N° " & Err.Number & " " & Err.Description
  End Select
End Sub

À+

[accessisgood]

Vraiment génial Claude!
ça évite de gérer plusieurs template

et j'en profite pour te poser une petite question très technique à propos de cette ligne de code

Code :

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

Reports!eEtatSub("CTNR" & i).SourceObject = "État." & oRst("NomDuRapport")

comme j'ai un access en anglais, j'ai remplacé le mot "État." par "Report" pour faire marcher ta maquette

y a t'il une fonction interne access qui renvoie le mot "État." ou "Report" en fonction du contexte de la langue ?

[ClaudeLELOUP]

Ah ! si la planète entière parlait français...

En tout cas, si tu écris :Reports!eEtatSub("CTNR" & i).SourceObject = "Report." & oRst("NomDuRapport"), Access version francophone proteste

Autre joyeuseté entre les deux versions : le format des dates !

y a t'il une fonction interne access qui renvoie le mot "État." ou "Report" en fonction du contexte de la langue ?

Pas à ma connaissance. Personnellement, j'essaie les différentes syntaxes jusqu'à trouver la bonne.

Au plaisir de te recroiser.