[Okta Webinar] Learn how to a build a cloud-first strategyRegister Now

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 185
  • Last Modified:

Multivalue Column - Split - New Beginning Continuation

Sjef,
I plugged this in:
Oh shoot...

I forgot one case: if there's only one document... Search for the first line, with the comment, and modify these lines as follows:

               ' remove excess dup's
               Do Until dupdoc Is Nothing
                    ' skip the importdoc!!!
                    If dupdoc.UniversalId=importdoc.UniversalId Then
                         Call dc.DeleteDocument(dupdoc) ' remove document from the collection
                         Exit Do
                    End If
                    Set dupdoc= dc.GetNextDocument(dupdoc)
               Loop
               If dc.Count>0 Then ' still documents in the collection...
                    Call dc.RemoveAll(True)
                End If
                ' any leftovers?

and got an error:  Not a sub or function:  DC
0
schmad01
Asked:
schmad01
1 Solution
 
mbonaciCommented:
schmad01,
check whether you declared dc:
    Dim dc As NotesDocumentCollection

The error isn't in the posted code (even if you haven't declared dc it should work - it's implicitly declared as Variant)

Hope this helps,
Marko
0
 
schmad01Author Commented:
Correct. Thank you!
0

Featured Post

[Webinar] Cloud and Mobile-First Strategy

Maybe you’ve fully adopted the cloud since the beginning. Or maybe you started with on-prem resources but are pursuing a “cloud and mobile first” strategy. Getting to that end state has its challenges. Discover how to build out a 100% cloud and mobile IT strategy in this webinar.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now