ms access vba parse json
'example form stackoverflow
'https://stackoverflow.com/questions/59301919/iteration-from-json-format-data-to-ms-access-table
Private Sub StoreData(ADataObject As Object)
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim item As Object
Set db = CurrentDb
Set rs = db.OpenRecordset("tblEfdReceipts")
For Each item In ADataObject
rs.AddNew
rs![TAX] = item("TAX")
rs![TaxpayerName] = item("TaxpayerName")
rs![Address] = item("Address")
rs![DateTime] = item("DateTime")
rs![TerminalID] = item("TerminalID")
rs![InvoiceCode] = item("InvoiceCode")
rs![InvoiceNumber] = item("InvoiceCode")
rs![SpecialCode] = item("SpecialCode")
rs![TelephoneNumber] = item("TelephoneNumber")
rs![Operator] = item("Operator")
rs![Taxlabel] = item("TaxItems")("TaxLabel")
rs![CategoryName] = item("TaxItems")("CategoryName")
rs![Rate] = item("TaxItems")("Rate")
rs![TaxAmount] = item("TaxItems")("TaxAmount")
rs![VerificationUrl] = item("TaxItems")("VerificationUrl")
rs.Update
Next item
rs.Close
Set rs = Nothing
Set db = Nothing