Friendsnippets

1. Aller Felder + Formel eines Berichts ausgeben

   view plain - save this

   .

    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
   

   Posted by qrist0ph to c++ access metadata ... saved by 1 person ... 0 comments ... 1 month, 3 weeks

2. Loop durch alle Access Datenbank Container und Objekte

   view plain - save this

   .

    1 Sub foo()
    2 With CurrentDb
    3         ' Durchlaufen der Containers-Auflistung.
    4         For Each ctrLoop In .Containers
    5             Debug.Print "Eigenschaften von" & ctrLoop.Name & " Container"
    6             ' Durchlaufen der Properties-Auflistung jedes
    7             ' Container-Objekts.
    8             For Each prpLoop In ctrLoop.Properties
    9                 Debug.Print "    " & prpLoop.Name & " = "; prpLoop
   10             Next prpLoop
   11             
   12             For Each it In ctrLoop.Documents
   13                 Debug.Print it.Name
   14             Next
   15         Next ctrLoop
   16     End With
   17 End Sub
   

   Posted by qrist0ph to c++ access metadata ... saved by 1 person ... 0 comments ... 1 month, 3 weeks

Pages : 1