DominoArea.org [Archive]

Bonjour, je cherche un agent Lotus pour gérer la fin de parution. (A une date x le document est automatiquement effacé et pas archivé). Dans le masque de saisie,... j'ai inclu un champ date de fin!!!Même une ébauche peut m'être utile...Merci de votre aide !!!

Salut,Tu peux essayé un truc dans le genre im Session As New notessessionDim db As notesdatabaseDim DocCol As notesdocumentcollection Dim Formule As String Set db = Session.currentdatabaseFormule = "Select Form = 'Nom de mon masque' & DateFin< @date(@now)" Set DocCol = db.search(Formule, Nothing, 0)If DocCol.count <> 0 Then Call DocCol.removeall(True)DateFin doit être un champ de type DATE. Dans le cas contraire, faire un @texttotime(DateFin)