sélection de doc par UnprocessedDocuments

[virginie]

Bonjour,J'aimerais empêcher la suppression de documents depuis une vue.Pour cela, j'ai mis un champ supp dans le masque, champ calculé qui par défaut vaut faux.J'ai le code suivant dans QueryDocumentDelete :Sub Querydocumentdelete(Source As Notesuidatabase, Continue As Variant) 'ce script empeche la suppression des documents quand le champ supp vaut "faux" Dim collect As NotesDocumentCollection Dim s As New NotesSession Dim db As NotesDatabase Set db = s.CurrentDatabase 'on récupère les documents sélectionnés Set collect = db.UnprocessedDocuments Messagebox collect.Count End Sublorsque je sélectionne un document pour le supprimer, le collect ne se remplit pas, et j'ai comme message 0.Pourquoi?Merci.

[Droad]

This method is valid only for *agent* or *view action* scripts and may be invoked only on NotesDatabase objects obtained from the CurrentDatabase property in NotesSession. In scripts that are not a part of an agent or view action, this method returns a NotesDocumentCollection with zero documents.[%sig%]

[virginie]

merci.alors comment puis-je faire pour autoriser la suppression que depuis un masque et pas depuis une vue?

[albator]

Essaie quelque chose comme ça ... (je l'ai mis sur une base, et ça fonctionne sans problèmes)Sub Querydocumentdelete(Source As Notesuidatabase, Continue As Variant) ' Ne pas autoriser la suppression d'un document "Actif" Set collection = Source.Documents Set ddoc = collection.GetFirstDocument Do While (Not ddoc Is Nothing) If ddoc.WF_Etat(0) = "5" Then Messagebox "Impossible de supprimer un document actif.", 0, "[SUPPRESSION DE DOCUMENTS]" Continue = False End If Set ddoc = collection.GetNextDocument(ddoc) LoopEnd Sub

[virginie]

ok merci je v essayer.