Das Notes Forum
Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: marthasmith am 07.05.06 - 18:07:10
-
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
-
Folgende Fehler habe ich gesehen:
ws ist nicht gesetzt
doc ist nicht gesetzt
Andreas
-
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
-
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
-
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