message d'erreur en exécution avec lotusscript en ouverture

[vince_domino]

j'ai une base avec un agencement de cadres ( 1 en haut pour le titre et deux en dessous pour le menu et le principal ).j'ouvre un document(masque) en édition sur le cadre principal à partir d'un bouton du menu de gauche.après l'avoir édité, je clique sur un bouton ( appartenant au masque, c'est une action ) pour exécuter le code suivant :---------------------------------------------- Sub Click(Source As Button) Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument Dim uidb As NotesUIDatabase Dim message As String REM string de retour chariot et saut de ligne : crlf$ = Chr(13) & Chr(10) Set uidoc = workspace.CurrentDocument Set uidb = workspace.CurrentDatabase message$ = "- Création de la demande et envoi au responsable de service, le "&_ uidoc.FieldGetText("Datedem") &" à "&uidoc.FieldGetText("Heuredem")&" par "&uidoc.FieldGetText("Demandeur")&"." message$=message$ +crlf$ Call uidoc.FieldSetText("histordem",message) message$ = "- En attente de compléments du responsable de service." Call uidoc.FieldAppendText("histordem",message) Call uidoc.FieldSetText("etatdem","ATTENTE_RESP") Call uidoc.Save REM Après sauvegarde du doc, pour l'instant je réaffiche une vue REM par dessus. Call workspace.SetTargetFrame("zoneaff") Call uidb.OpenView("vDemcours",,False) End Sub------------------------------------------------------Après exécution, j'obtiens un message d'erreur "Impossible de fermer le programme en cours " .( et ceci au moment de la méthode OpenView )En essayant de faire la même chose par d'autres moyens , j'ai même réussià faire des erreurs d'exception qui plantent Lotus Notes et Designer et qui nécessitent le reboot du PC ..... çà m'a l'air d'être bien protégé au niveau du code et de l'accès à la mémoire tout çà...Pour info, dans les autres cadres la vue s'ouvre correctement ( est-ce à cause du mode édition ?? )Donc que faire ? Merci d'avance pour vos réponses.PS: j'ai la release 5