How to open doc in edit mode

Hi all ,

       pls see the below code



Dim ws As New NotesUIWorkspace

Dim session As New NotesSession

Dim db As NotesDatabase

Dim uidoc As NotesUIDocument

Dim view As NotesView

Dim doc As NotesDocument

Dim customerNumber As String

Set db = session.CurrentDatabase

Set view = db.GetView("Riskdis")

Set doc = view.GetFirstDocument

Do Until doc Is Nothing

	Set	uidoc = ws.EditDocument(False, doc, False)

	Set doc = view.GetNextDocument(doc)

Loop

after this i am calling lot of fucntion.

‘’’

…

…

I want to open the first document in edit mode , i have action button in the document, these action buttons are doing some process, once user click any action button , after doing the process thee next document should open in edit mode,in my above code all docs are opening same time in edit mode. ,

i don’t want to write other agent , i want to use the same agent , any idea

regds

oma

Subject: how to open doc in edit mode

Soma,

Code like this won’t allow someone to type or click during the loop. It won’t work. You need to have this code open the first document, I think, let the user do their work, and then when they click the button have THAT code save and push them into the next document.

regards,

raphael

Subject: how to open doc in edit mode

Hi,I can suggest one idea regarding this. Why cant you include the code which the user going to execute by clicking the button after opening the document to the posted code.

If you are keeping the code you have posted in the view action, you can also include the actions available in the form in the view also and combine both codes. I hope you can understand what i am saying.

May be this may help you

Subject: RE: how to open doc in edit mode

Hi Rapheal and Naive Thank you for your suggetsion, i followed your sugegstion .