@nector You should understand the code instead of copy-pasting. Above code neither generates JSON nor posting any data. I've already mentioned that posting data is done by sending it with send method using http.send data

You can do something like this

Dim postData As New Dictionary postData("id") = 1 postData("name") = "codingislove" http.send ConvertToJson(postData, Whitespace:=2)

Above code will post {"id: 1, "name": "codingislove"} data to the API
Copy pasting the code won't work. Do understand the code and implement it as required.

Sorry I got stuck again on Json String format , how is it done??????

Dear Experts

Kindly see how you can help again in my final part of this Ms Access /Json project, now I want the data in the query below to be posted to the site as per link in the VBA. The problem I have right now is how to format the data in a query into Json so that it can be posted successfully
Qry1

SELECT tblInvoice.Customer, tblCustomers.TaxID, tblCustomers.Address, tblInvoice.INV, tblInvoice.InvoiceDate, tblInvoicedetails.Product, tblInvoicedetails.Qty, tblInvoicedetails.Price, tblInvoicedetails.VAT, (([Qty][Price])(1+[VAT])) AS TotalPrice
FROM tblProducts INNER JOIN ((tblCustomers INNER JOIN tblInvoice ON tblCustomers.ID = tblInvoice.Customer) INNER JOIN tblInvoicedetails ON tblInvoice.INV = tblInvoicedetails.INV) ON tblProducts.PDID = tblInvoicedetails.Product
WHERE (((tblInvoice.INV)=[Forms]![frmInvoice]![INV]));

Below is the VBA that I have prepared requiring completing the Json data formatting:

Private Sub CmdSales_Click()
Dim http As Object
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
Dim JSON As Object
Dim i As Integer
Dim item As Object
Set rs = db.OpenRecordset("SELECT * FROM Qry1 Where Qry1.ID = " & Me.INV, dbOpenDynaset, dbSeeChanges)
http.Open "POST", "http://jsonplaceholder.typicode.com/users/?id=" & Me.INV, False
http.send
Set JSON = ParseJson(http.responseText)
i = 2
End Sub

Kindly see how this can be done!

Thank you so much

@dhilsha-s There's already an example here - Parse URLs in VBA

Hi @peteb1 That external URL might have a parameter to take page number. Pass the page number in the URL to pull the next 50 rows. It might be something like url/?page=2 or url/?offset=50

I don't have any account there so I could not check. However, try this. It should work.

Sub GetLoggedIn() Const Url$ = "https://my.bexio.com/simplesaml/module.php/core/loginuserpassorg.php?client_id=7753313026.apps.bexio.com" Dim Http As New XMLHTTP60, HTML As New HTMLDocument Dim auth As Object, authval$, payload$ With Http .Open "GET", Url, False .send HTML.body.innerHTML = .responseText End With Set auth = HTML.querySelector("form[name='f'] input[name='AuthState']") authval = WorksheetFunction.EncodeURL(auth.getAttribute("value")) 'put your username and password in the following line replacing xxxx 'make sure to replace "@" with "%40", as in [email protected] with something%40gmail.com payload = "username=xxxxxxxxx&password=xxxxxxxxx&AuthState=" & authval With Http .Open "POST", Url, False .setRequestHeader "Content-type", "application/x-www-form-urlencoded" .send payload End With MsgBox Http.responseText End Sub

this is how i access the api through curl

curl -F "apikey=d8a40f77-69b5-4ef7-b554-d8f86382101c" "https://ktsstf.org/call.php?apicall=registration.data&apiDataType=xml"

is this question too much of a challenge here ?