How to pers Json with VBA in Ms Access

Kindly help me to have the listed code below work in Ms Access VBA , I have already imported the JsonBas converter from GTuB site.

Private Sub CmdJson_Click()
Set MyRequest = CreateObject("winhttp.winhttprequest.5.1")
MyRequest.Open "GET", "https://jira.atlassian.com/rest/api/latest/issue/JRA-9"
MyRequest.Send
Dim Json As Object
Set Json = JsonConverter.ParseJson(MyRequest.ResponseText)
MsgBox Json("Key")
End Sub

Open in new window

On My request it say user not defined

I want to have JRA-9 showing after clicking the above button, this part of my training if this works , then the next stage is prepare the Json Spec , I may also ask how to go about it, I'm not worried about opening the record set that used to feed the Json.

Regards

Chris

John Tsioumpris

Is it just me or i see on the Github page the example :

CreateObject("MSXML2.XMLHTTP")

Open in new window

and you

Set MyRequest = CreateObject("winhttp.winhttprequest.5.1")

Open in new window

Can you give some info on where you found the sample code you are using ?

Hankwembo Christopher,FCCA,FZICA,CIA,MAAT,B.A.Sc

ASKER

Hi John

I think you have a point I'm not able to see a full code on their site Github , I was just watching a video from their site , it could be I got the code wrong , guide me to the correct code , the jsonbas I downloaded the correct its able to compile.

Regards

Chris

John Tsioumpris

Here is the code : https://github.com/omegastripes/VBA-JSON-parser

Hankwembo Christopher,FCCA,FZICA,CIA,MAAT,B.A.Sc

ASKER

Okay

I have seen it but I want something for Ms Access not Excel

Regards

Chris

ASKER CERTIFIED SOLUTION

John Tsioumpris

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

SOLUTION