Ja, ich war auch mehr mit dem Spiel beschäftigt
Der Fehler kommt auch auf einem anderen Client.
Ich kopiere die Daten, sobald das Feld verlassen wird. >Sub Exiting(Source As Field)<
Dim s As NotesSession
Dim ws As NotesUIWorkspace
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim doc2 As NotesDocument
Dim uidoc As NotesUIDocument
Dim uidoc2 As NotesUIDocument
Set s = New NotesSession
Set ws = New NotesUIWorkspace
Set db = s.CurrentDatabase
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
Set doc2 = db.GetDocumentByUNID (doc.kunde(0))
Set uidoc2 = ws.EditDocument(True, doc2)
Call uidoc2.GotoField( "KundenWaehrung" )
Call uidoc2.SelectAll
Call uidoc2.Copy
Call uidoc.GotoField( "formular_waehrung")
Call uidoc.Paste
.
.
.
.
Call uidoc2.GotoField( "hauptemail" )
Call uidoc2.SelectAll
Call uidoc2.Copy
Call uidoc.GotoField( "email")
Call uidoc.Paste
Call uidoc.Refresh
Call uidoc2.Refresh
Was gibt es sonst noch für Daten? Eine einfache Maske...
Jörg