cmccurdy

<div>
Access 2016 (installed as part of Office 365). &nbsp;Yes the DLL does exist on my machine and I unregistered and registered it to be sure.
</div>

<div>
Hi, 
 
Can you try CreateObject(&quot;msxml2.ServerXMLHTTP.6.0&quot;) 
 
I haven't tested.... 
 
This is the progid I found in my registry for msxml6.dll 
 
Thank, 
 
Darren
</div>

<div>
Thanks Darren, &nbsp; 
 
CreateObject(&quot;msxml2.ServerXMLHTTP.6.0&quot;) worked. 
 
Now my problem is I'm not getting back the response correctly although the record seems to have been created properly. &nbsp; 
 
Can you help on that also? &nbsp;What I'm trying to do is found here. (<a href="https://www.experts-exchange.com/questions/29116183/JSON-post-with-Access-VBA.html" rel="ugc">https://www.experts-exchange.com/questions/29116183/JSON-post-with-Access-VBA.html</a>)
</div>

<div>
<div class="content wysiwyg-content">
I'm trying to post to an API but the routine fails with &nbsp;Run-time error 429 - &quot;ActiveX component can't create object&quot; on the line -&gt; &nbsp;Set objHTTP = CreateObject(&quot;MSXML6.ServerXMLHTTP&quot;) 
 
The code which fails is&quot; 
 
Private Sub cmdCreateAutoTextCustomer_Click() 
&nbsp; &nbsp; Dim objHTTP As Object 
&nbsp; &nbsp; Dim Json As String 
&nbsp; &nbsp; Dim URL As String 
&nbsp; &nbsp; Json = &quot;{&quot;&quot;shop_number&quot;&quot;: &quot;&quot;8729925026&quot;&quot;,&quot;&quot;client_code&quot;&quot;: &quot;&quot;142KukK231k.&quot;&quot;,&quot;&quot;lastname&quot;&quot;: &quot;&quot;Ender&quot;&quot;,&quot;&quot;phonenumber&quot;&quot;: &quot;&quot;5555555559&quot;&quot;,&quot;&quot;vehicle_year&quot;&quot;: &quot;&quot;2009&quot;&quot;,&quot;&quot;vehicle_make&quot;&quot;: &quot;&quot;JEEP&quot;&quot;,&quot;&quot;vehicle_model&quot;&quot;: &quot;&quot;something&quot;&quot; }&quot; 
 
&nbsp; &nbsp; Dim result As String 
 
&nbsp; &nbsp; Set objHTTP = CreateObject(&quot;MSXML6.ServerXMLHTTP&quot;) 
&nbsp; &nbsp; URL = &quot;<a href="http://somewebsite.me/api/v1/customers" rel="ugc">http://somewebsite.me/api/v1/customers</a>&quot; 
&nbsp; &nbsp; objHTTP.Open &quot;POST&quot;, URL, False 
 
&nbsp; &nbsp;objHTTP.setRequestHeader &quot;Content-type&quot;, &quot;application/json&quot; 
&nbsp; &nbsp;objHTTP.setRequestHeader &quot;Accept&quot;, &quot;application / json&quot; 
&nbsp; &nbsp;objHTTP.send (Json) 
&nbsp; &nbsp;result = objHTTP.responseText 
 
&nbsp; &nbsp;'Some simple debugging 
&nbsp; &nbsp;Range(&quot;A25&quot;).Value = result 
&nbsp; &nbsp;Range(&quot;A26&quot;).Value = Json 
 
 
&nbsp; &nbsp;Set objHTTP = Nothing 
End Sub
</div>
</div>

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

Error 429 - &quot;ActiveX component can't create object in Access

Visual Basic for Applications (VBA) enables building user-defined functions (UDFs), automating processes and accessing Windows API and other low-level functionality through dynamic-link libraries (DLLs). VBA is closely related to Visual Basic and uses the Visual Basic Runtime Library, but it can normally only run code within a host application rather than as a standalone program. It can, however, be used to control one application from another via OLE Automation. VBA is built into most Microsoft Office applications.

Error 429 - &quot;ActiveX component can't create object in Access

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