• code snippets
  • all code snippets/
  • popular code snippets/
  • your code snippets
• extras
• blog
• about snipplr

• Big /
• Small

Posted By

qrist0ph on 05/12/08

Tagged

access

Versions (?)

05/12/08 11:57am

 / Published in: Visual Basic

 

Sub felderVonBericht()
    Dim rpt As Report, ctl As Control
    Set rpt = Reports("Tagesberichtneu")
    ' Name des Berichts ausgeben.
    Debug.Print rpt.Name
    ' Controls-Auflistung jedes Berichts durchlaufen.
    For Each ctl In rpt.Controls
        If ctl.ControlType = acTextBox Then
            Debug.Print ctl.Name & ": " & ctl.Properties(3)
        End If
    Next ctl
End Sub

Report this snippet   Tweet