Antwortdokumente erstellen

[marthasmith]

Hallo allerseits,

ich habe in einer Maske eine Aktion zusammengeklickt, die zu diesem Dokument ein Antwortdokument erstellen soll. Nach dem Klicken des Button erhalte ich die Fehlermeldung:
Variant does not contain an object

Sub Click(Source As Button)
  Dim ws As NotesUIWorkspace
  Dim uidoc As NotesUIDocument
  Dim ndoc As NotesDocument
  Dim doc As NotesDocument
  Set uidoc = ws.CurrentDocument
  Set ndoc = uidoc.Document
  Call ndoc.MakeResponse(doc)
  Call ndoc.Save(True,True)
  ndoc.Form = "Response"
End Sub

Woran liegt das?

Vielen Dank für Tipps,

Alice

[Glombi]

Folgende Fehler habe ich gesehen:

ws ist nicht gesetzt

doc ist nicht gesetzt

Andreas

[marthasmith]

Hallo,

ok, vielen Dank für die Anmerkungen, nun die verbesserte Version:


Sub Click(Source As Button)
  Dim ws As New NotesUIWorkspace
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim uidoc As NotesUIDocument
  Dim ndoc As NotesDocument
  Dim doc As NotesDocument
  Set db = session.CurrentDatabase
  Set uidoc = ws.CurrentDocument
  Set ndoc = db.createDocument()
  Set doc = uidoc.Document
  Call ndoc.MakeResponse(doc)
  Call ndoc.Save(True,True)
  ndoc.Form = "Response"
End Sub

Nun gibt es zwar keine Fehlermeldung mehr, aber leider ist auch kein Dokument da, daher  habe ich
ndoc.Form="Response"
vor Save gesetzt und mal ein Feld belegt mit
ndoc.fName = "Alice"
Aber leider taucht kein neues Dokument auf.

Woran liegt das? Ist das ganze oben eigentlich sehr umständlich geschrieben und geht es wesentlich kürzer?

Vielen Dank,

Alice

[Glombi]

Wenn das
 ndoc.Form = "Response"
vor dem Save ist, dann sollte es funktionieren.

Dass das Dokument nicht angezeigt wird, liegt vielleicht an der Zugriffsformel in der Ansicht. Was steht denn da drin?

Andreas

[marthasmith]

Hallo Andreas,

das ist wahr, das Dokument wurde einfach nicht in der Ansicht angezeigt.

Herzlichen Dank für den Hinweis, habe es nun so abgeändert, dass es sichtbar ist.

Alice