IPersonSentry Property |
Namespace: SuperOffice.COM.SuperOfficeDB
Sentry
Dim objSO Set objSO = CreateObject("SuperOffice.Application") If not (objSO is nothing) Then MsgBox "Current person Sentry AreAllRequiredFieldsFilled: " & objSO.CurrentPerson.Sentry.AreAllRequiredFieldsFilled, vbInformation + vbOkOnly, "SuperCOM" else MsgBox "Unable to connect to database" end if Set objSO = Nothing