look im Anhang, habs getestet mit dem Code.
Einzigste Unterschied ist zum obigen Code, daß das zu lesende Autorenfeld nicht Kundendienst sondern Kundenbetreuer heißt eigentlich. Funktioniert einwandfrei.
Und was auch klar ist: beim ersten Erstellen des Password Docs wird nur der Ersteller selbst ins Feld eingetragen, was für später völlig wurscht ist, da das vom QueryOpen drübergebügelt wird.
Da mitunter der Code im QueryOpen checked, ob Doc neu ist oder nicht.
hier der Code, aus der Maske Password und dem Event der Maske QueryOpen:
If Not Source.IsNewDoc Then
Dim session As New notessession
Dim Db As notesdatabase
Set Db=session.currentdatabase
Dim doc As NotesDocument
Dim parentdoc As NotesDocument
Set doc = Source.Document 'aktuelles Antwortdokument
Set parentdoc = db.GetDocumentByUNID(doc.ParentDocumentUNID) 'Hauptdokument
doc.Systemtechniker = parentdoc.GetItemValue("Kundenbetreuer")
Call doc.Save(True,False)
End If
und die DB: