Automaitsche "Feldfüllung"

[Wiesel]

 

Hallo!

Mein Anliegen grob beschrieben:
ich möchte ein Feld füllen durch klick eines Kontrollkästchens.

Genauer gesagt:

Ich habe ein Kontrollkästchen (nur ein Wert enthalten). Beim Klick in das Kontrollkästchen soll ein weiteres mit dem Usernamen des "Klickers" gefüllt werden.

Ich habe dazu im Exiting folgenden Script hinterlegt:

Sub Exiting(Source As Field)
   Dim ws As New NotesUiWorkspace
   Dim S As New NotesSession
   Dim uidoc As NotesUiDocument
   Dim Benutzer As New NotesName(S.UserName)
   Dim strWert As String
   
   Set uidoc = ws.CurrentDocument
   strWert = uidoc.FieldGetText("Res91")
   If strWert <> "" Then
      Call uidoc.FieldSetText("An91", Benutzer.Common)
   Else
      Call uidoc.FieldSetText("An91","")
   End If
   
   Call uidoc.Refresh
End Sub

Die Formel funzt auch wunderbar, sofern ich nach dem Kontrollkästchen in ein anderes Feld klicke.
Klicke ich aber nur das Kontrollkästchen an und gehe dann mit ESC und Speicherung aus der Maske heraus, wird der Username nicht notiert.

Was kann ich da tun?

Ich hoffe, soweit ist mein Wunsch deutlich geworden. Falls nicht, fragt alles, was Ihr wollt. Bin dankbar für jede Antwort.

Gruß,
Wiesel
   
   

[Driri]

Mach das doch einfach in der Eingabeumsetzung für das Kontrollkästchen :

@If(Control="1"; @SetField("UserName"; @UserName); @SetField("UserName"; ""));
Control

Das Feld UserName dann einfach auf Berechnet auf sich selnbst.

[Gandhi]

schreib im Querysave ein uidoc.gototop und ein uidoc.gotobottom rein - dann wird das Feld vor dem Speichern in jedem Fall verlassen.

[Wiesel]

 

Vielen lieben Dank für Eure Antworten!

Klappt hervorragend!