Domino 9 und frühere Versionen > Entwicklung

Formelsprache: Eine Art Zählschleife

<< < (4/6) > >>

Glombi:
"Als ergebnis soll jeder Namen in einem eigenen Feld eingetragen werden. Bzw. übermittelt in eine Feld als eigner Datensatz.

So dass in einer Ansicht, welche eine Spalte hat mit der Beschriftung Namen ( Eindeutige Namen ) diese auflistet, als jeweiliges Dokument. "
==> Pro Name als ein Dokument,

Sowas hatten wir doch erst hier, oder?
Sei es drum, es geht nur mit Script.

Andreas

koehlerbv:

--- Zitat von: Glombi am 05.08.04 - 13:34:38 --- ;) Das war genau mein Gedankengang.

Bin gespannt, wie sich das entwickelt...

Andreas

--- Ende Zitat ---

Zum massiven Baldriankonsum !

Nexus:

--- Zitat von: Axel am 05.08.04 - 13:33:36 ---Da wirst du wohl an Script ran müssen.

Axel

--- Ende Zitat ---


Mh... keine Ahnung, wie ich das mit dem Script machen soll :(
Bin nicht so der Notes Spezialist.

koehlerbv:

--- Zitat von: Nexus am 05.08.04 - 13:38:13 ---Mh... keine Ahnung, wie ich das mit dem Script machen soll :(
Bin nicht so der Notes Spezialist.

--- Ende Zitat ---
Das hätten wir jetzt gar nicht gemerkt ...

Schreib' doch mal genau auf, was Du machen willst - und schreibe sauber und nicht sowas wie "soll jeder Namen in einem eigenen Feld eingetragen werden. Bzw. übermittelt in eine Feld als eigner Datensatz" (zwischen "Feld" und "Dokument" besteht schon ein klitzekleiner Unterschied.

Vielleicht lässt sich das ganze ja auch ganz anders lösen.

Bernhard

Axel:
Hi,

ich denke mal das Ganze soll beim Speichern des Dokumentes erfolgen, oder ?

So könnte das aussehen.  Die Feldnamen und den Maskennamen musst du natürlich anpassen.

Sub Querysave(Source As Notesuidocument, Continue As Variant)

Dim session As New NotesSession
Dim db As NotesDatabase
Dim ws As New NotesUIWorkspace
Dim docThis As NotesDocument
Dim docNew As NotesDocument
Dim idx as Integer

Set db = session.CurrentDocument
Set docThis = source.Document

For i = 0 to Ubound(docThis.Dialogliste)
  Set docNew = New NotesDocument(db)
  docNew.Form = "Name der Maske"
  docNew.FeldfürName = docThis.Dialogliste(idx)
  Call docNew.Save(True, False)
Next

...


Axel

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete