Connaître le nombre de document en conflit
Publié: 18 Mai 2006 à 10:45A 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