IDocumentChangeIdentity Method |
Namespace: SuperOffice.COM.SuperOfficeDB
ChangeIdentity
This text may be copied to the notepad, and saved as a *.vbs file. Remember to change the login information.
This will change the description text of the document. If you dont want to save the changes, NO calls the CancelChanges method. If you want to save the changes, YES calls the ChangeIdentity() that saves the document model to the database.
Dim objSO Dim result Dim id Set objSO = CreateObject("SuperOffice.Application") If not (objSO is nothing) Then id = objSO.CurrentDocument.Identity objSO.CurrentDocument.Header = "This text been changed" result = MsgBox ("The text of the current document description has been changed, do you want to save these changes?", vbInformation + vbYesNo, "SuperCOM") if result = vbYes then objSO.CurrentDocument.ChangeIdentity(id) else objSO.CurrentDocument.CancelChanges() msgbox "The document changes were not saved", vbInformation + vbOkOnly, "SuperCOM" end if else MsgBox "Unable to connect to database" end if Set objSO = Nothing