Quermodechange

[RvM]

Ich möchte gerne, das beim Wechsel von Read nach Edit-Modus ein Feld in einem Dokument geändert wird, dieses Dokument kurz gespeichert wird, und dann zur Bearbeitung zu Vergüng steht.
Das Feld heisst "counterstike".
Folgendes Script habe ich eingesetzt, aber nix passiert:
     Dim s As New NotesSession
     Dim ws As New NotesUIWorkspace
     Dim db As NotesDatabase
     Dim thisdoc As NotesDocument
     
     Set thisdoc = ws.CurrentDocument.Document
     Set db = s.CurrentDatabase
     If Not ( source.EditMode ) Then
           thisdoc.counterstrike="nein"
           Call thisdoc.Save(True, True,True)
     End If


Woran haperts

[doliman]

Hi,


für was workspace und database?

Sub Querymodechange(Source As Notesuidocument, Continue As Variant)

Dim thisdoc As NotesDocument
 
Set thisdoc = source.Document

If Not ( source.EditMode ) Then
 thisdoc.counterstrike="nein"
 Call thisdoc.Save(True, True,True)  
End If

End Sub