friendsnippets.com - Snippet: Aller Felder + Formel eines Berichts ausgeben

snippets / Aller Felder + Formel eines Berichts ausgeben

Language: C++ - First posted by qrist0ph on 2008-05-9 10:59 (1 month, 3 weeks)
Link to the snippet: http://www.friendsnippets.org/snippet/300/

 1 Sub felderVonBericht()
 2     Dim rpt As Report, ctl As Control
 3     Set rpt = Reports("Tagesberichtneu")
 4     ' Name des Berichts ausgeben.
 5     Debug.Print rpt.Name
 6     ' Controls-Auflistung jedes Berichts durchlaufen.
 7     For Each ctl In rpt.Controls
 8         If ctl.ControlType = acTextBox Then
 9             Debug.Print ctl.Name & ": " & ctl.Properties(3)
10         End If
11     Next ctl
12 End Sub