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:
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.
Code:
{
"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.