IProjectMembersEmpty Property |
Namespace: SuperOffice.COM.SuperOfficeDB
Empty
This text may be copied to the notepad, and saved as a *.vbs file. Remember to change the login information.).
This will test if the Members collection on the project has any project members in it.
Dim objSO Set objSO = CreateObject("SuperOffice.Application") If not (objSO is nothing) Then if objSO.CurrentProject.Members.Empty then MsgBox "The current project has no projectMembers" else MsgBox "The current project has one or more projectMembers" End if else MsgBox "Unable to connect to database" end if Set objSO = Nothing