Hi,
ich hab's mal auf die Schnelle nach deinen Angaben nachgebaut. In meiner Demo läuft das Ganze. Ich hab dir die Demo mal angehängt.
So sieht der Exiting - Event des Useraccount - Feldes aus:
Sub Exiting(Source As Field)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
If doc.Useraccount(0) = "1" Then
doc.Account_Bearb = "1"
Else
doc.Account_Bearb = ""
End If 'If doc.Useraccount(0) = "1" Then
End Sub
Sonst sind keine weitere Optionen gesetzt.
Hast Du unter dem Carlson-Reiter des Optionenfeldes die Angabe "Run Exciting/OnChange Events after value change" angehakelt?
Bin ich blind ??? Ich habe diese Option bei mir nicht gefunden. Kann das ein 6er Feature sein ?
Axel