IProjectUDef Property |
Namespace: SuperOffice.COM.SuperOfficeDB
UDef
This text may be copied to the notepad, and saved as a *.vbs file. Remember to change the login information.
This checks if there are user defined fields set up on the project panel, not if there are any values inside the projects user defined fields.
Dim objSO Set objSO = CreateObject("SuperOffice.Application") If not (objSO is nothing) Then if objSO.CurrentProject.Udef.Count > 0 then MsgBox "The project panel has user defined fields", vbInformation + vbOKOnly, "SuperCOM" else MsgBox "No user defined fields defined on the project panel." end if else MsgBox "Unable to connect to database" end if Set objSO = Nothing