developerWorks  >  Lotus  >  Forums & community  >  Notes/Domino 4 and 5 Forum

Notes/Domino 4 and 5 Forum

developerWorks




Edit mode not using save event
H Akkers 04/04/2003 08:06 AM
Domino Designer -- Forms 4.5.6 Windows NT


I have a button on a view which copies all the fields from the selected doc and pastes them into a newly created doc which is then brought up in edit mode. Problem is that when I save this new doc after the edit, the save events are not invoked - its just gets saved.

Here is the code:

Sub Click(Source As Button)

Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument

Dim ns As New NotesSession
Dim ndb As NotesDatabase

Dim ndc As NotesDocumentCollection
Dim ndoc As NotesDocument
Dim ndocNew As NotesDocument
Dim intDocCount As Integer
Dim num As Long
Dim t As String
Set ndb = ns.CurrentDatabase

Set ndc = ndb.UnprocessedDocuments

For intDocCount = 1 To 1
Set ndocNew = New NotesDocument (ndb)


Set ndoc = ndc.GetNthDocument(intDocCount)

Call ndoc.CopyAllItems( ndocNew, True )
ndocNew.FRNumber = ""
Call workspace.editDocument(True, ndocNew)


Next
End Sub

Go back