[AC-2003] problème avec 'For each ' dans un état [Résolu]

[Jean-Luc80]

Bonjour
J'ai besoin d'imprimer les références d'une Base
Dans le détail de l'état je veux remplir un champ texte (RéférenceTxt) avec le code suivant

Code :

1
2
3
4
5
6
Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer)
Dim Ref As Reference
For Each Ref In Application.References
RéférenceTxt = Ref.Name & " - Version : " & Ref.Major & "." & Ref.Minor & " - Chemin : " & Ref.FullPath
Next Ref
End Sub

Le code fonctionne mais je n'ai qu'une seule ligne (la 1ère de la liste des références) alors que testé avec un debug.print j'ai bien tout
Merci pour vos conseils

[loufab]

Bonjour,

Code :

RéférenceTxt = Ref.Name & " - Version : " & Ref.Major & "." & Ref.Minor & " - Chemin : " & Ref.FullPath

Normal je dirais !

Tu écrases systèmatiquement la valeur, donc tu n'as que la dernière.

Mon conseil :

D'abord mettre ce code dans l'événément Sur Format.

Puis remplacer la ligne par celle-ci.

Code :

RéférenceTxt = RéférenceTxt & Ref.Name & " - Version : " & Ref.Major & "." & Ref.Minor & " - Chemin : " & Ref.FullPath & vbcrlf

Ne pas oublier de mettre le controle RéférenceTxt en extensible.

Si tu souhaites faire réagir l'état comme si la référence était un enregsitrement il te faut travailler avec NextRecord, MoveLayout, PrintSection

Cordialement,

[Jean-Luc80]

Bonjour
Merci Loufab pour la réponse
J'ai procédé autrement
Je stocke les références dans une table et je base mon état sur cette table
Je ne sais pas si c'est mieux de faire ça mais ça fonctionne
Voici le code pour ceux que ça interresse.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function GetReferences()
DoCmd.SetWarnings False
Dim Ref As Reference
Dim orst As DAO.Recordset
Dim oDb As DAO.Database
DoCmd.RunSQL "DELETE Référence.* FROM Références;"
   Set orst = CurrentDb.OpenRecordset("Références")
For Each Ref In Application.References
orst.AddNew
orst!Référence = Ref.Name & " - Version : " & Ref.Major & "." & Ref.Minor & " - Chemin : " & Ref.FullPath
orst.Update
Next Ref
orst.Close
Set orst = Nothing
DoCmd.SetWarnings True
End Function