How to add a collection to a dictionary in Ms Access VBA/Json



  • Hi Experts!

    After working so hard to make sure this works now I seam to very close to sorting it out, the code below:

    Option Compare Database
    Option Explicit
    Private Sub Command0_Click()
    Dim foo As New Dictionary
    Set foo = New Dictionary
    Dim hoo As New Collection

    With foo
        .Add "Customer Name", Me.txtchris   'No key. This item can only be retrieved by index.
        .Add "Address", Me.txtAddress  'Key given. Can be retrieved by key or index.
                
    End With
    
    Dim member As Variant
    For Each member In foo
       
    Next
    

    End Sub

    Requirements

    (1) How to add the collection to "FOO" dictionary so that the data in "HOO" collection comes in as a second layer and inclosed like [{ ]}


Log in to reply
 

Looks like your connection to Codingislove Forum was lost, please wait while we try to reconnect.