Domino 9 und frühere Versionen > ND7: Entwicklung

Nicht vorhandene Methode in NotesDocument?

<< < (5/8) > >>

Glombi:
Anstelle von
Set item = doc.ReplaceItemValue _
   ( "FormOne", "Created by View ActionScript" )   
muss es heissen:

call doc.ReplaceItemValue("Form","FormOne")
call doc.ReplaceItemValue("FieldOne","Created by View ActionScript")

set item = doc.GetFirstItem("Form")
item.IsSummary = True

set item = doc.GetFirstItem("FieldOne")
item.IsSummary = True



Wobei m.M. nach das IsSummary automatisch gesetzt wird. Es gab mal vor langer Zeit den Bug, aber in Notes 7 gehts auf jeden Fall ohne!


Wenn das Dokument immer noch nicht in Deiner Ansicht angezeigt wird, dann solltest Du hier mal die SELECT Formel der Ansicht posten!

Andreas

Thomas Schulte:
Was du da programmiert hat ist eine Aktion die von einer Ansicht aus aufgerufen werden soll.
So erste Frage. Hast du den Code auch in eine Aktion verpackt?
Zweite Frage. Rufst du das auch von der Ansicht aus auf?

Ansonsten gilt Axels Satz. Die Kristallkugeln, Kaffeesätze Tarok Karten und anderes Wahrsagematerial sind leider schon in Urlaub. Mit Kurzbeschreibungen und Sätzen wie "Da passiert auch nichts" kommt man nicht wirklich weiter.

Dubidu:

--- Zitat von: Thomas Schulte am 19.03.08 - 10:39:56 ---Was du da programmiert hat ist eine Aktion die von einer Ansicht aus aufgerufen werden soll.
So erste Frage. Hast du den Code auch in eine Aktion verpackt?

--- Ende Zitat ---

Ja, ich habe das in einem Button gepackt, wobei der Code nach dem Klick auf den Button ausgeführt wird.


--- Zitat ---Zweite Frage. Rufst du das auch von der Ansicht aus auf?
--- Ende Zitat ---

Ja, ich klicke auf NotesPreview und ich komme dann in Lotus Notes 7 rein.
Dann drücke ich den Button und das einzige was passiert ist, dass die Messageboxen auftauchen, aber ich sehe kein neu erstelltes Dokument!

Hier der neue Code.

--- Code: ---Sub Click(Source As Button)
Dim ns As New NotesSession
Dim ws As New NotesUIWorkspace
Dim db As NotesDatabase
Set db = ns.CurrentDatabase

Dim doc As NotesDocument
Set doc = New NotesDocument(db)

'doc.form = "FormOne"
'doc.FieldOne = "Created by View ActionScript"

Dim item As NotesItem
'Set item = doc.ReplaceItemValue _
'( "FormOne", "Created by View ActionScript" )

Call doc.ReplaceItemValue("Form","FormOne")
Call doc.ReplaceItemValue("FieldOne","Created by View ActionScript")

Set item = doc.GetFirstItem("Form")
item.IsSummary = True

Set item = doc.GetFirstItem("FieldOne")

item.IsSummary = True
doc.Save True, True

Messagebox "New doc created, shouldn't be visible"

ws.ViewRefresh

Messagebox "New doc should now be visible"


End Sub
--- Ende Code ---

Auch hier wird kein neues Dokument, wie von mir erwartet, erstellt.

Liebe Grüße
Giordano

Thomas Schulte:
Wie sieht die SELECT FORMEL deiner Ansicht aus. Andreas hat das zwar schon gefragt aber nur zur Sicherheit ....

Dubidu:

--- Zitat von: Thomas Schulte am 19.03.08 - 10:52:38 ---Wie sieht die SELECT FORMEL deiner Ansicht aus. Andreas hat das zwar schon gefragt aber nur zur Sicherheit ....

--- Ende Zitat ---

Ich habe gar keine View erstellt, weil ich dachte, dass das alles der Code macht. :(

Wie muss denn die View aussehen, damit der Code auch funktioniert?

Liebe Grüße
Giordano

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete