IRelationChanged Property |
Namespace: SuperOffice.COM.SuperOfficeDB
Boolean
True the relation has been modified since it was loaded.
False the relation has never been modified.
Changed
This text may be copied to the notepad, and saved as a *.vbs file. Remember to change the login information.
Dim objSO Set objSO = CreateObject("SuperOffice.Application") If not (objSO is nothing) Then set relation = objSO.CurrentRelation msgbox "The property changed on the current relation is currently set to " & relation.Changed relation.comment = "One of the property is now changed trough SuperCOM" msg = msgbox ("The property changed is now set to " & relation.changed & " since the Property comment was changed programmatically, and you should ask the user if he want to save the changes?", vbYesNo, "SuperCOM") if msg = vbyes then relation.save else relation.cancelchanges 'The change was not saved. end if else MsgBox "Unable to connect to database" end if Set objSO = Nothing