Gemme data fra en form på en anden

Du må selvfølgelig gøre det med LotusScript, men hvad er dit problem med linket?

Jeg har ikke noget link, det er jo det jeg mangler, plus jeg ved heller ikke hvordan jeg skal overføre data til formen....

Linket kan du skabe ved at embedde det i et RichText-felt, men det kræver (vist stadigvæk) en reload af dokumentet.

Du er selvfølgelig nødt til at have et dokument med et felt, som kan indeholde det, jeg ved ikke lige om det findes, men ellers må koden oprette det.

Du skal lave en kode som ser ca. sådan her ud (jeg har ikke lige en Notes her, så det er ikke testet!):

Sub Click(...)
Dim ws as New NotesUIWorkspace
Dim db as NotesDatabase
Dim uidoc as NotesUIDocument
Dim doc as NotesDocument
Dim xdoc as NotesDocument
Dim rtitem as NotesRichTextItem

Dim text as string
Dim unid as string

Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
Set db = doc.ParentDatabase
Set rtitem = doc.GetFirstItem(\"RichTextFelt\")

text = ws.InputBox(\"Indtast din tekst\", \"Indtast tekst\") \'Kig lige efter i Help om der skal flere parametre!!

%REM
Hent det andet dokument -- eller opret et nyt

dvs. enten:
dim v as NotesView
Set v = db.GetView(\"View-navnet\")
set xdoc = v.GetDocumentByKey(\"Nøglen\", true)

eller:
set xdoc = db.CreateDocument
xdoc.Form = \"FormNavnet\"

%End Rem

xdoc.IndtastetTekst = text
call xdoc.Save(true, false)

call rtitem.AppendDocLink(xdoc)
call doc.save
unid = doc.UniversalID

call uidoc.reload
call uidoc.save
call uidoc.close

set doc = db.GetDocumentByUnid(unid)

call ws.EditDocument(true, doc)

End Sub

Åh..
Jeg glemte jo lige to parametre på call doc.save:
call doc.save(true, false)

hth
jes

OG...
Jeg har haft fat i Notes siden, så det hedder:

text = format$(ws.Prompt(PROMPT_OKCANCELEDIT, \"Indtast tekst\", \"Indtast din tekst\", \"\"))

hth
jes

Jeg har bare gemt data i samme doc og får dem vist i et andet. Men du skal have tak for din indsats!

Lukker sagen. Det virkede aldrig!