jason/VBA-SharePoint-List-Functions
jason/VBA-SharePoint-List-Functions
1
0
Fork 0
Code

Bugfix for returned value

Browse Source
This commit is contained in:
Jason Williams 2016-06-28 19:01:34 -06:00
parent 8a196e7682
commit c73c915ae9
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
SPListLibrary.bas
View File

@ -34,9 +34,9 @@ Public Function SPListItem(SharepointUrl As String, ListName As String, ListData
If objXMLHTTP.Status = 200 Then If objXMLHTTP.Status = 200 Then
Set xmlhttpResponse = objXMLHTTP.responseXML Set xmlhttpResponse = objXMLHTTP.responseXML
CreateSPItem = CInt(xmlhttpResponse.SelectSingleNode("//UpdateListItemsResult//Results//Result//z:row").Attributes.getNamedItem("ows_ID").Text) SPListItem = CInt(xmlhttpResponse.SelectSingleNode("//UpdateListItemsResult//Results//Result//z:row").Attributes.getNamedItem("ows_ID").Text)
Else Else
CreateSPItem = -1 SPListItem = -1
End If End If
Set objXMLHTTP = Nothing Set objXMLHTTP = Nothing