DominoArea.org [Archive]

salut à ts,comment faire pour bloquer la touche suppr du clavier?merci.Badr

ce que je vaux c qu'on ne puisse pas supprimer un document en utilisant la touche "suppr" du clavier. l'utilisateur devra cliquer sur un bouton "supprimer" qui se trouve dans le masque pour pouvoir supprimer un document.merci.Badr

Est ce parce que tu as un code particulier dans ton bouton supprimer ?Si c'est le cas, pk ne pas le déplacer dans l'évènement Querydocumentdelete de la base ?

ah c cool merci j'avais pas vuen fait c ca ce ke je cherchais au debut, mais comme je n'avais pas trouver je pensais kil n'existait pas.j'avais pas regarder le database script, je pensait que je le trouverais dans les evenements des masquesmerci encors )Badr

j'arrive pas à faire marcher (g mis ce code dans la querydocumentdelete, pour empecher un document d'etre effacer s'il n'est pas en etat de suppression.mais je ne c pas si c bon ou pas.voici le code ke g mis:Sub Querydocumentdelete(Source As Notesuidatabase, Continue As Variant) Dim ws As New NotesUIWorkspace Dim uidoc As NotesUIDocument Set uidoc = ws.CurrentDocument If uidoc.FieldGetText("Etat") <> "SUPPR" Then Continue = False End If End Subpovez vous me dire en koi g merder?merci.Badr

pour voir ou es ton erreur, fais un debuggage pas a pas : dans le menu fichier ---> outils ---> mettre au point un lotus script...et la tu pourras voir ou es ton erreur

Salut,Il me semble que tu ne peux pas passé par la notesuidocument dans l'évèneme QueryDocumentDelete.Il te faut passé par la méthode unprocesseddocuments de la classe Notesdatabaseex :dim session as new notessessiondim db as notesdatabasedim docCol as notesdocumentcollectiondim doc as notesdocumentset db = session.currentdatabaseset docCol = db.unprocesseddocumentsset doc = docCol.getfirstdocumentIf doc.getitemvalue("Etat")(0) <> "SUPPR" ThenContinue = FalseEnd If

bojour,merci pour l'exemple je v tester puis je vous tiendrais au courent.[%sig%]

salut,en fait il marche ce code:Sub Querydocumentdelete(Source As Notesuidatabase, Continue As Variant)Dim ws As New NotesUIWorkspaceDim uidoc As NotesUIDocumentSet uidoc = ws.CurrentDocumentIf uidoc.FieldGetText("Etat") <> "SUPPR" ThenContinue = FalseEnd IfEnd Subil interdit toute suppression de document s'il n'est pas marqué "SUPPR". il y a un jour ca ne marchait pas, mais la ca marche. c peut etre kil fallait juste redemarer la base pour kelle prenne en compte le script.merci encor pour votre aide.[%sig%]

Exact - Les scripts de bases de documents sont chargés à l'ouverture de la base. Pour que les modifications soient prises en compte, il faut donc fermer toutes les fenêtres concernant la base (client ET designer) et la réouvrir[%sig%]