This commit is contained in:
Paul Trowbridge 2022-12-20 10:12:38 -05:00
parent 56e00d7d5c
commit 2d5e32b123

View File

@ -242,12 +242,18 @@ Function request_adjust(doc As String, ByRef fail As Boolean) As Object
fail = True
Exit Function
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)
If IsNull(json("x")) Then
MsgBox ("no adjustment was made")
fail = True
fail = False
Exit Function
End If