DominoArea.org [Archive]

Sub Queryclose(Source As Notesuidocument, Continue As Variant) Dim workspace As New NotesUIWorkspace Dim db As NotesUIDatabase Dim doc As notesdocument Dim doc1 As notesdocument Dim uidoc As notesuidocument Set db = workspace.CurrentDatabase Set uidoc = workspace.CurrentDocument 'Set doc = uidoc.Document If uidoc.IsNewDoc Then If workspace.Prompt(PROMPT_YESNO, _ "Fiche Adherent ?", "Voulez vous creer une fiche adhérent tout de suite ?", "", "")=1 Then Set uidoc = workspace.composeDocument( "tekportal/Tekworld-Logical", "fpm\SitesWeb.nsf", "Adherent_Notes'") ' evaluate("@Command([Compose]; "Adherent_Notes"") End If End If