Solved How to use MS Access Messages Properly (1 Viewer)

[nector]

I'm getting some input data from the internet based server in Json format like below if all is okay the message looks like below:

{
  "resultCd": "000",
  "resultMsg": "It is succeeded",
  "resultDt": "20240508194441",
  "data": {
    "rcptNo": 1235,
    "ReceitData": "DFR236599"
  
  }
}

Now I want to display the correct MS Access message that friendly if the above string with resultCd field = "000" , in short the message code should evaluate the above Json string as follows:

If message Json string is = "000" then
MsgBox Request.responsetext, tick, "Internal Audit Manager"
ElseIf Json string is <> "000" then
MsgBox Request.responsetext, vbCritical, "Internal Audit Manager"
End If
End If

If the tick does not exist in MS Access at least something friendly will do.

 

[gemma-the-husky]

this sort of thing?

there are lots of alternatives with a msgbox. you can add yes no buttons, and poll a reply result as well.

if yourstring="000" then
  msgbox "Success",vbok, 'Result"
else
  msgbox "Failure",vbexclamation, 'Result"
end if

 

[tvanstiphout]

I think @gemma skipped over the part where you need to parse the json. Jack Leach has the right idea here: Parsing JSON with VBA - Dymeng and he explains why.

 

[Pat Hartman]

If all you need out of the string is the code, then just use the mid function with Instr() to find the error code

 

[GPGeorge]

I think @gemma skipped over the part where you need to parse the json. Jack Leach has the right idea here: Parsing JSON with VBA - Dymeng and he explains why.

Lost and found. Thanks for providing that link to Jack's blog post. I used it a couple of years ago and could never track it down again.

 

[gemma-the-husky]

I think @gemma skipped over the part where you need to parse the json. Jack Leach has the right idea here: Parsing JSON with VBA - Dymeng and he explains why.

I didn't realise the issue was interpreting the JSON response.

 

[theDBguy]

If the tick does not exist in MS Access at least something friendly will do.

Is "tick" supposed to be a timer?

 

[nector]

Okay thank all I will use the information provided

 

[cheekybuddha]

@tvanstiphout ,
The GetKeys() function in Jack's blog post seems truncated - do you have the rest of the code anywhere by chance?

 

[theDBguy]

@tvanstiphout ,
The GetKeys() function in Jack's blog post seems truncated - do you have the rest of the code anywhere by chance?

Hope this helps...

Public Function GetKeys(ByVal JsonObject As Object) As String()
    Dim Length As Integer
    Dim KeysArray() As String
    Dim KeysObject As Object
    Dim Index As Integer
    Dim Key As Variant
 
    Set KeysObject = ScriptEngine.Run("getKeys", JsonObject)
    Length = GetProperty(KeysObject, "length")
    
    'adjusted by thedbguy@gmail.com
    '6/16/2020
    'handles empty array in json
    If Length > 0 Then
        ReDim KeysArray(Length - 1)
        Index = 0
        For Each Key In KeysObject
            KeysArray(Index) = Key
            Index = Index + 1
        Next
    Else
        ReDim KeysArray(0)
    End If
    GetKeys = KeysArray
End Function

 

[jdraw]

cheekybuddha/David,

Do you have a sample database using Dymeng/ Jack Leach's JSON Parser that you could share?