IProjectMemberChanged Property |
Namespace: SuperOffice.COM.SuperOfficeDB
Boolean
False the project member has been modified since it was loaded.
True the project member 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 dim result Dim projMemb Set objSO = CreateObject("SuperOffice.Application") If not (objSO is nothing) Then projMemb = objSO .Database.GetProjectMember(1) result = projMemb.changed if result = false then MsgBox "The project member has been modified since it was loaded.", vbInformation + vbOKOnly, "SuperCOM" else msgbox "The project member has not been modified since it was loaded.", vbInformation + vbOKOnly, "SuperCOM" end if else MsgBox "Unable to connect to database" end if Set objSO = Nothing