Dokument im EditMode - Erstellung Antwortdokument crasht Notes

[rambrand]

Hallo,

ich hab da was ganz sonderbares programmiert. Ich habe eine Maske mit einer embedded View in der die Antwortdokumente angezeigt werden. Auf der Maske habe ich noch ein Feld, in das die aktuelle Anzahl von Antwortdokumenten angegeben werden soll.
Dazu habe ich mit ein Script in den Postopen des Hauptdokuments gebaut:

Code

Dim session As New NotesSession
Dim doc As NotesDocument
Dim uidoc As NotesUIDocument
Dim doccoll As NotesDocumentCollection
Dim responses As Integer
Set uidoc = source
Set doc = uidoc.Document
Set doccoll = doc.Responses
responses = doccoll.Count
uidoc.EditMode = True
doc.vbfr_anzdokus = responses
Call uidoc.Save
saveoptions = "0"
Call doc.Save(True,False)
'uidoc.EditMode = False

Wenn ich uidoc.EditMode = False aktiv setze dann öffnet sich die Maske des Hauptdokuments und hängt in einer Endlosschleife in der er zwischen Bearbeitungs- und Lesemodus wechselt.

Deaktiviere ich uidoc.EditMode = False, dann öffnet sich die Maske im Bearbeiten-Modus. Soweit könnte ich mit leben.

Aber in der embedded View habe ich einen Aktionsbutton, mit dem ein neues Antwortdokument erstellt werden soll.

Code

Dim session As New NotesSession
Dim ws As New NotesUIWorkspace
Dim db As notesdatabase
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim response As NotesDocument
Dim uiresponse As NotesUIDocument
	
Set db = session.CurrentDatabase
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
Set response = db.CreateDocument
With response
   .form = "Dokumentation"
   .vbfr_doku_projekt_name = doc.vbfr_projekt_name(0)
End With
Call response.MakeResponse(doc)
Set uiresponse = ws.EditDocument(True,response)

Jetzt kommt der Crash.
Wenn das Hauptdokument im Bearbeiten-Modus ist und ich über die Aktion in der embedded View das neue Antwortdokument anlegen will, dann kommt die Fehlermeldung "Error: Incorrect argument type: object expected in Line number: 24"
Die Zeilennummer bleibt übrigens immer so bestehen, egal wie ich das Script umbaue.
Und als nächstes kommt dann der Komplett-Crash des Notes-Clients.

Selbst wenn ich im Postopen die Aktualisierung des Feldes entferne, kann ich das zweite Problem mit dem Crash nachstellen, indem ich das Hauptdokument in den Bearbeiten-Modus versetze und dann das neue Antwortdokument anlege.

Hat da jemand einen Tipp für mich. Vielleicht hab ich mir da auch einfach nur Mist zusammengebaut :-)

Bye,
Markus

[Peter Klett]

Hast Du irgendwelchen Code im Querymodechange oder Postmodechange?

[rambrand]

Hallo Peter,

nein, das war es nicht. Ich hab mich eben daran gesetzt und die Schablone nochmal kontrolliert. Kein Querymodechange, kein Postmodechange.
Dann hab ich die Schablone nochmals auf die Datenbank gezogen - ohne irgendwelche Änderungen an DB oder Schablone zu machen.

Jetzt kommt kein Crash mehr. Dabei konnte ich das am Freitag jederzeit reproduzieren.

Bye,
Markus