From 8a196e7682542977420e5c90c670fc44c66f1662 Mon Sep 17 00:00:00 2001 From: Jason Williams Date: Tue, 7 Jun 2016 14:00:14 -0600 Subject: [PATCH 1/2] Minor documentation update - Removed repeated extra line from readme.me --- readme.md | 2 -- 1 file changed, 2 deletions(-) diff --git a/readme.md b/readme.md index 710af7e..6a68263 100644 --- a/readme.md +++ b/readme.md @@ -18,7 +18,5 @@ In the VBA editor window choose Tools -> References. - ListData is a VBA dictionary object containing key value pairs, where the key is the name of a field and the value is the value that will be assigned to it. - ItemID is the SharePoint ID of a list item that will be updated (if omitted, a new list item will be created). -VBA SharePoint List Library is a collection of VBA functions designed to allow your VBA code to interact with a SharePoint list. - ## Contributing ## Please see the contribution guide in contributing.md \ No newline at end of file From c73c915ae968cad39c8d7b45f8d4b391110e49f6 Mon Sep 17 00:00:00 2001 From: Jason Williams Date: Tue, 28 Jun 2016 19:01:34 -0600 Subject: [PATCH 2/2] Bugfix for returned value --- SPListLibrary.bas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/SPListLibrary.bas b/SPListLibrary.bas index 4456ac6..21ce8e8 100644 --- a/SPListLibrary.bas +++ b/SPListLibrary.bas @@ -34,9 +34,9 @@ Public Function SPListItem(SharepointUrl As String, ListName As String, ListData If objXMLHTTP.Status = 200 Then 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 - CreateSPItem = -1 + SPListItem = -1 End If Set objXMLHTTP = Nothing