Currentdocument ="" in einer Maske

Hallo,

ich fabe ein Berechnetes Feld, das als Wert seinen Eigennamen hat mit folgender Routine erweitert:

Zitat

Sub Initialize
Dim ws As New notesUiWorkspace
Dim uidoc As notesUiDocument
Dim doc As notesDocument
Set uidoc = ws.currentdocument
Set doc=uidoc.document
Dim db As notesDatabase
Set db = ws.currentdatabase.database
Dim Wert As Variant
Wert = doc.getitemvalue("$REF")
Set doc = db.getdocumentbyUNID(Wert(0))
Wert = Evaluate("@explode(MA_1:MA_2:MA_3:MA_4:MA_5:MA_6:MA_7:MA_8:MA_9:MA_10;"";"")",doc)
uidoc.document.Vaterdoc=Wert
End Sub

Alles anzeigen

Ich erhalte die Meldung "Object Variable not Set"
Im Debugger muß ich dann feststellen, daß alle direkten Frontendzugriffe fehlen.
Currentdocument =""
Currentview = ""
Currentdatabase = ""
Currentcalendardatetime =""

Warum wird hier die erste Zeile nicht korrekt ausgeführt, und das dann auch noch ohne Fehlermeldung?

Was vielleicht noch erwähnenswert ist:

Exakt das gleiche Feld mit identischer Routine funktioniert ohne Probleme in einer Antwortmaske aber in dieser Rückantwort nicht.

Hatte zuerst eine Kopie des feldes erstellt und dann, als ich merkte, daß Notes sich ins falsche Dokument verlaufen hatte (Im Debugger konnte man bei Objekt das Falsche "Globals" anzeigen lassen) das ganze gelöscht, neu erstellt und nur die Initialize rüberkopiert.

Erstellt werden beide Dokumente mit diesem Agenten:

Zitat

Sub Initialize
Dim ws As New notesUiWorkspace
Dim uidoc As notesUiDocument
Dim s As New NotesSession
Dim db As notesDatabase
Dim dc As NotesDocumentCollection
Dim parentdoc As notesDocument
Dim response As NotesDocument
Set db = s.currentdatabase
Set dc = db.unprocessedDocuments
Set parentdoc = dc.GetFirstDocument
If parentdoc.form(0)="Administratoren" Then
Set response = New NotesDocument (db)
response.Form = "Gruppenleiterebene"
Elseif parentdoc.form(0)="Gruppenleiterebene" Then
Set response = New NotesDocument (db)
response.Form = "Projektleiterebene"
Else
Exit Sub
End If
Stop
Call response.makeResponse (parentdoc)
Call response.Save(True,True)
Set uidoc = ws.EditDocument( True,response )
End Sub

Alles anzeigen

Was ist da los???

LOOOOOOOOL

Ich hatte in der ersten Maske mal Code in der Postopen stehen und der Scriptdebugger springt immer da rein.
Habe in der zweiten Maske ein Leerzeichen in die Postopen eingefügt, jetzt funktioniert es?!!!!!!?!!!!!?!!!

Bug@Lotus *fg*

Gruß
Bonzai