Domino 9 und frühere Versionen > ND6: Entwicklung
Antwortdokumente erstellen
(1/1)
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
Navigation
[0] Themen-Index
Zur normalen Ansicht wechseln