Use DBEngine to reference tables and its columns : Workspaces « Access « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Access
3. Workspaces

Use DBEngine to reference tables and its columns

 

Sub exaCollections()
    Dim colParent As New Collection
    Dim colChild As New Collection
    
    Dim tdfBooks As TableDef
    Dim objVar As Object
    
    Set tdfBooks = DBEngine(0)(0).TableDefs!BOOKS
    colParent.Add colChild
    colParent.Add tdfBooks
    Debug.Print colParent.Count
    For Each objVar In colParent
        If TypeOf objVar Is Collection Then
            Debug.Print "Collection"
        ElseIf TypeOf objVar Is TableDef Then
            Debug.Print objVar.Name
        End If
    Next
End Sub

 

Related examples in the same category