Click or drag to resize

IRelationChangeIdentity Method

Loads a different record into the object. Causes changes to the existing object to be saved first. Saves the changes made to the relation model to the database. The last thing you do to an object if you want the changes you made to be saved. The ChangeIdentity method calls the save method first.

Namespace:  SuperOffice.COM.SuperOfficeDB
Assembly:  SuperOfficeDB.Interop (in SuperOfficeDB.Interop.dll) Version: 8.0.0.0
Syntax
void ChangeIdentity(
	int NewIdentity
)

Parameters

NewIdentity
Type: SystemInt32
Relation_id (long), the internal identity in the database. 0 creates a new relation

Implements

IModelBaseChangeIdentity(Int32)
Examples

ChangeIdentity

This text may be copied to the notepad, and saved as a *.vbs file. Remember to change the login information.

VB
Dim objSO
Set objSO = CreateObject("SuperOffice.Application")
If not (objSO is nothing) Then
    id = objSO.CurrentRelation.Identity
    objSO.CurrentRelation.Comment = "This text been changed"
    result = MsgBox ("The text of the current relation has been changed, do you want to save these changes?", vbInformation + vbYesNo, "SuperCOM")
    if result = vbYes then
        objSO.CurrentRelation.ChangeIdentity(id)
    else
        objSO.CurrentRelation.CancelChanges()
        msgbox "The changes on the current relation where not saved", vbInformation + vbOkOnly, "SuperCOM"
    end if
else
    MsgBox "Unable to connect to database"
end if
Set objSO = Nothing

See Also