Solved

Question for melbor1

Posted on 2001-07-25
2
176 Views
Last Modified: 2013-12-18
I am posting this for Melissa, since it was actually posted as an answer to one of my other questions.

You said in a previous post:


"If the user creates F2 after F1, then create F2 in the backend first and use "CopyAllItems" from NotesDocument
to pull all the items from F1 to F2.  Do the same thing from f2 to F3.  That way all items are stored
in F3 and you don't have to change the form design to access the items through the backend.

In this situation, the F2 has to be created from an action in F1 and likewise F2 to F3, or from a view
with F1/F2 selected."


My original project has changed (who whould have guessed?) and I think this is a good solution my the  
the latest requirements. However, I cannot find a command "CopyAllItems".

Could you please explain.
0
Comment
Question by:GaryZ
2 Comments
 
LVL 2

Accepted Solution

by:
melbor1 earned 150 total points
ID: 6317539
From Notes help:

CopyAllItems method  

Example
Given a destination document, copies all of the items in the current document into the destination document. The item names are unchanged.
Defined in
NotesDocument
Data Type
Boolean
Syntax
Call notesDocument.CopyAllItems( notesDocument  [, replace ] )
Parameters
notesDocument
The destination document.
replace
Boolean. If True, the items in the destination document are replaced. If False (default), the items in the destination document are addended.
Example
See Also
AppendItemValue method
Copying an item
CopyItem method
CopyItemToDocument method (in NotesItem)
GetFirstItem method
Items property
NotesItem class
ReplaceItemValue method


~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
So, you would have from F1 to F2.....
(This script is for the Notes Client - I can't remember where you were using this...)

Dim session as New NotesSession
Dim workspace as New NotesUIWorkspace
Dim db as NotesDatabase
Dim uiDoc as NotesUIDocument
Dim form1Doc as NotesDocument
Dim form2Doc as NotesDocument

Set db = session.CurrentDatabase
Set form1Doc = workspace.CurrentDocument.document

'create the form2 doc
Set form2Doc = db.CreateDocument
Call form1Doc.CopyAllItems( form2Doc, True )

'set the form
form2Doc.Form = "F2"
Call form2Doc.Save( True, False )


'Bring up the form2 doc in edit mode
Set uiDoc = workspace.EditDocument( True, form2Doc, False )


Hope this helps and will work for you.
Let me know,

Melissa
0
 

Author Comment

by:GaryZ
ID: 6318096
Thanks, I'm still learning formula language will have to start on Lotus Script.
0

Featured Post

Free Tool: ZipGrep

ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.

One of a set of tools we're offering as a way to say thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

For Desktop Techs: How to retain a user's Notes configuration data when swapping out the end user's computer. (Assuming that you are not upgrading to a completely different version of Notes client) All you need to do is: 1) install Notes o…
For beginners of Lotus Notes user this is important to know about the types of files and their location supported by IBM Notes. Mostly users are unaware about how many file types are created and what their usages are. This Article is fully dedicated…
Email security requires an ever evolving service that stays up to date with counter-evolving threats. The Email Laundry perform Research and Development to ensure their email security service evolves faster than cyber criminals. We apply our Threat…
A short tutorial showing how to set up an email signature in Outlook on the Web (previously known as OWA). For free email signatures designs, visit https://www.mail-signatures.com/articles/signature-templates/?sts=6651 If you want to manage em…

839 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question