 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 |