Solved

Question for melbor1

Posted on 2001-07-25
2
180 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
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

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

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

  In today’s Arena we can’t imagine our lives without Internet as we are highly used to of it. If we consider our life style just for only 2 min we found that face to face communication is swapped by e-communication.  Every Where from Works place to…
Problem "Can you help me recover my changes?  I double-clicked the attachment, made changes, and then hit Save before closing it.  But when I try to re-open it, my changes are missing!"    Solution This solution opens the Outlook Secure Temp Fold…
If you're a developer or IT admin, you’re probably tasked with managing multiple websites, servers, applications, and levels of security on a daily basis. While this can be extremely time consuming, it can also be frustrating when systems aren't wor…
Monitoring a network: why having a policy is the best policy? Michael Kulchisky, MCSE, MCSA, MCP, VTSP, VSP, CCSP outlines the enormous benefits of having a policy-based approach when monitoring medium and large networks. Software utilized in this v…

696 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