pt/VBA
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

unknown

Browse Source
This commit is contained in:
Paul Trowbridge 2022-12-20 10:12:38 -05:00
parent 56e00d7d5c
commit 2d5e32b123
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
handler.bas
View File

@ -242,12 +242,18 @@ Function request_adjust(doc As String, ByRef fail As Boolean) As Object
fail = True fail = True
Exit Function Exit Function
End If End If
If Mid(wr, 1, 6) = "null" Then
MsgBox ("API route not implemented")
fail = True
Exit Function
End If
Set json = JsonConverter.ParseJson(wr) Set json = JsonConverter.ParseJson(wr)
If IsNull(json("x")) Then If IsNull(json("x")) Then
MsgBox ("no adjustment was made") MsgBox ("no adjustment was made")
fail = True fail = False
Exit Function Exit Function
End If End If