DominoArea.org [Archive]

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.

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%]

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

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

ok merci je v essayer.