Click or drag to resize

IDocumentsEmpty Property

Returns true if the collection is empty. i.e. if it contains no elements

Namespace:  SuperOffice.COM.SuperOfficeDB
Assembly:  SuperOfficeDB.Interop (in SuperOfficeDB.Interop.dll) Version: 8.0.0.0
Syntax
bool Empty { get; }

Property Value

Type: Boolean

Implements

IMapCollectionEmpty
Examples

Empty

VB
Dim objDB
Dim msg

Set objDB = CreateObject("superofficedb.database")
If Not (objDB is Nothing) Then
    objDB.login "<userid>", "<password>" ' log in to the database

        Set myApnt = objDB.GetAppointment(5)
        Set myDocs = myApnt.ActivityLinks.Documents
        If Not myDocs.Empty Then
            For Each Item In myDocs
                msg = msg & "Document filename: " & Item.FileName & vbCrLf
                msg = msg & "Document header: " & Item.Header & vbCrLf
            Next
            MsgBox "There are " & myDocs.Count & " documents on this appointment" & vbCrLf & msg

        Else
            MsgBox "There are no documents added to appointment with appointment_id=5"
        End If

Else
    MsgBox "unable to connect to database"
End If
Set objso = Nothing

See Also