Connaître le nombre de document en conflit

[Stephane Maillard]

A coller dans un bouton

Code : Tout sélectionner

Option Public
Option Explicit

Sub Initialize
   Dim Session As New NotesSession
   Dim Db As NotesDatabase
   Dim Col As NotesDocumentCollection
   Dim Doc As NotesDocument
   Dim nDate As New NotesDateTime( "01/01/94" )
   Set Db = Session.CurrentDatabase
   Set Col = Db.Search( "@IsAvailable( $Conflict )", nDate, 0 )
   Messagebox(Col.Count)   
End Sub