Deleting Duplicate documents in a view.
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) =
Call wdoc.Remove.doc (True)
By submitting your email address, you agree to receive emails regarding relevant topic offers from TechTarget and its partners. You can withdraw your consent at any time. Contact TechTarget at 275 Grove Street, Newton, MA.
Set doc = view.getnextdocument (doc)