par virginie » 22 Août 2003 à 09:10
Bonjour,J'ai un ensemble de documents hérités les uns des autres par l'intermédiaire de masques parent, réponse et réponse à une réponse.Je voudrais depuis une réponse à une réponse afficher le document parent.J'ai mis le code suivant :Sub Click(Source As Button) 'déclaration des variables de classes front end Dim ws As New NotesUIWorkspace Dim uidoc As NotesUIDocument 'déclaration des variables de classes back end Dim session As New NotesSession Dim db As NotesDatabase Dim doc As NotesDocument Dim docParent As NotesDocument 'déclaration des variables scalaires Dim id As Variant 'instanciation des variables de classes front end Set uidoc = ws.CurrentDocument 'instanciation des variables de classes back end Set db = session.CurrentDatabase 'dans le document ouvert(front end) qui est une réponse à une réponse, on récupère la valeur de l'id parent dans le champ hérité ID et on la met dans le variant id déclaré plus haut id = uidoc.FieldGetText( "ID" ) 'il faut donc maintenant retrouver le document parent par son ID, ce document est en back end(non ouvert actuellement) Set docParent = db.GetDocumentByUNID(id) 'si la demande parente est déjà ouverte, on affiche un message et on sort If docParent.IsUIDocOpen Then Messagebox "La demande est déjà ouverte dans une autre fenêtre", MB_OK + MB_ICONEXCLAMATION, "Afficher la demande" Exit Sub End If 'l objet docParent est maintenant le document parent au document en front end 'on l ouvre en lecture Call ws.EditDocument(False, docParent) End Suble code fonctionne pour afficher la demande parente.Mais ce qui ne fonctionne pas, c'est le message qui doit s'afficher lorsque la demande parente est déjà ouverte.Comment alors tester que la demande parente est déjà ouverte?Merci.