Update field in Notes

Dear Experts,
I have 2 form A and B. Form A contains 1 field named A1. Manager creates form A for 1 time only. This is common information.
Form B import field A1 from form A. Employee create new form B, field A1 is automatically imported.
My issue is: when Manager modifies field A1 (form A) and save, I want existing documents of form B will be updated (field A1).
Please help me. Thanks
Who is Participating?
madheeswarConnect With a Mentor Commented:

I consider ur  going to store formA document in a view.

FIELD field A1:=field A1;
@SetField("field A1";res)

The above paste in an agent and Runfrom agentlist and on all documentsinview

name it as UpdateAgent

and in the action button, where formB documents reside in a view,

Test it and implement.

If u want script, its also easy.
Then u need to write a lotus script to update all the documents.

or Formula:
run once through action buttons.

Which one u prefer?
phuongnguyenAuthor Commented:
Could you please provide me a script? Thanks so much.
Get expert help—faster!

Need expert help—fast? Use the Help Bell for personalized assistance getting answers to your important questions.

Let me type it. And I will post it here.

And formulas will be easy to implement ratherthan script.

Its upto u. Anyway, I will try to do it within 30mnts.

Sub Initialize
      Dim ss As New notessession
      Dim db As notesdatabase
      Dim view As notesview
      Dim doc As notesdocument
      Set db=ss.currentdatabase
      Set view=db.getview("FormBviewname")
      Set doc=view.getfirstdocument
      While Not doc Is Nothing
            doc.Field A1=tmpupdate(0)
            Call doc.Save(True,True)
            Set doc=view.getnextdocument(doc)
End Sub

Follow the same procedure as I told u before to implement Agent.

Any queries, let me know.
Simply Make your B1 field  a computed field. With formula

temp := @DBLookup( "Notes":"NoCache"; @DBName; "View where I can find Form A values"; "Key value"; "FIELDA1");
@if(@IsError(temp); ""; @Unique(temp))

You pass the viewname in above formula  and a key value to find the specific document in that view (this is the I column sorted asc/desc)

Now Create an agent which will run on all docs in database and with search criteria set to look for form = "FormB" and with LotusScript like this

Dim session as New NotesSession
dim db as NotesDatabase
dim col as NotesDocumentCollection
dim doc as NotesDocument

set db = session.CurrentDatabase
set col = db.UnprocessedDocuments
set doc = col.GetFirstDocument

While not doc is nothing
  doc.ComputeWithForm true, false
  doc.Save true, false
  set doc = col.GetNextDocument(doc)

In this manner you can set all the fields that will compute the field in the form B to look at form A and run this agent either when doc is created/modified or trigger it manually when form A is saved..

Why bother keeping the A1 value on form B at all?  Retrieve it dynamically when the form opens.  On form B, make A1 a computed for display field.  The formula would be @GetDocField(@Text($Ref); "A1")

Teh above will work if B is a "response" form.  Otherwise, you need a field, computed when composed, called FORM_A_UNID.  The formula for this field would be @Text(@InheritedDocumentUniqueID) and teh formula for A1 (still computed for display) would be @GetDocField(FORM_A_UNID; "A1")

If the form B value needs to display in a view, the above will NOT work, because computed for display fields are not saved on the document (which is what allows them to be looked up every time you open the document).

In that case, assuming B is a response form, the following QuerySave script on form A will do the trick:
Source.document.responses.stampAll "A1" , Source.document.A1

If B is not a response form, the formula is MUCH more complicated, and I would need more details about how A and B are tied together.
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.