Savenewversion

Hi,

I want to save documents as new version but not able to do.Please help.Following is the script I m using.

Sub Click(Source As Button)

Dim workspace As New NotesUIWorkspace

Dim uidoc As NotesUIDocument

Set uidoc = workspace.CurrentDocument

Call uidoc.SaveNewVersion

End Sub

In Form properties

Versioning set to Prior versions become responses.

Create versions set to Manual

Subject: Should only need the form property to create new version

Hi, Angel. I read your two versioning posts. You should only need to set the form versioning property to create a new version automatically. I am not sure why you are programmatically trying to save a new version as well.

Subject: Already Tried

Hi Dave,

Thanks for your response but I have already tried it , but I m facing problem in viewing them.new version documents are sometime visible and sometimes not.

Beside this I want to save the document with changes and want no changes in original copy,but here 2 documents get save with same details.

Please suggest if you got my problem.