I’m trying to update some existing records from a form but I’m rather new to using API calls in VBA and working with JSON format. The below code works for GET with just .send but I get a confirmation is required when I use PATCH.
Firstly, will this achieve what I want it to do (update the Date of Visit field for record ID 235829231) and, if so, how do I add in confirm:true as sighted on another post?
Public Sub UpdateEntriesTest()
Dim XMLHTTP As New MSXML2.ServerXMLHTTP60
Dim myurl As String
myurl = “https://kf.kobotoolbox.org/api/v2/assets/aBJHRVL9HHE7KLLUpxyyoE/data/bulk/”
With XMLHTTP
.Open “PATCH”, myurl, False
.setRequestHeader “Authorization”, “Token [My Token Goes Here]”
.setRequestHeader “Content-Type”, “application/json”
.send “{”“payload”“:{”“submission_Ids”“:[”“235829231"”],““data””:{““Date_of_visit””:““2023-03-01"”}}}”
Sheet1.Range("A1").Value = .responseText
End With
End Sub
