Deleting Dup Documents

Deleting Duplicate documents in a view.


 

Sub Initialize

Dim Session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As notesdocument

Set db = session.currentdatabase
Set view = db.getview ("Daily Schedule")
Set doc = view.getfirstDocument

While Not (Doc Is Nothing)
Set wdoc = view.getnextdocument(doc)
If doc.salesrep(0) = wdoc.salesrep(0) And doc.weekstarting(0) =
wdoc.weekstarting(0) Then
Call wdoc.Remove.doc (True)

End If
Set doc = view.getnextdocument (doc)
Wend
End Sub

Dig Deeper on Domino Resources - Part 3

Join the conversation

1 comment

Send me notifications when other members comment.

Please create a username to comment.

I'm new to Lotus Notes and need help creating this view as it seems that I cannot make it work. Is it possible to provide step-by-step instructions in order to see what it is that I'm doing wrong? Thanks in advance for any support that is provided.
Cancel

-ADS BY GOOGLE

SearchWindowsServer

Search400

  • iSeries tutorials

    Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

SearchDataCenter

SearchContentManagement

Close