Avatar of cmccurdy
Flag for United States of America

asked on 

Error 429 - "ActiveX component can't create object in Access

I'm trying to post to an API but the routine fails with  Run-time error 429 - "ActiveX component can't create object" on the line ->  Set objHTTP = CreateObject("MSXML6.ServerXMLHTTP")

The code which fails is"

Private Sub cmdCreateAutoTextCustomer_Click()
    Dim objHTTP As Object
    Dim Json As String
    Dim URL As String
    Json = "{""shop_number"": ""8729925026"",""client_code"": ""142KukK231k."",""lastname"": ""Ender"",""phonenumber"": ""5555555559"",""vehicle_year"": ""2009"",""vehicle_make"": ""JEEP"",""vehicle_model"": ""something"" }"

    Dim result As String

    Set objHTTP = CreateObject("MSXML6.ServerXMLHTTP")
    URL = "http://somewebsite.me/api/v1/customers"
    objHTTP.Open "POST", URL, False

   objHTTP.setRequestHeader "Content-type", "application/json"
   objHTTP.setRequestHeader "Accept", "application / json"
   objHTTP.send (Json)
   result = objHTTP.responseText

   'Some simple debugging
   Range("A25").Value = result
   Range("A26").Value = Json

   Set objHTTP = Nothing
End Sub

Avatar of undefined
Last Comment

8/22/2022 - Mon