Click or drag to resize

IAppointmentIsAvailable Property

is record available in db? It's useful to check if an appointment actually exists before adding new properties to it.

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

Property Value

Type: Boolean
Boolean – True if such a record exists

Implements

IModelBaseIsAvailable
Examples

Check appointment is available

This text may be copied to the notepad, and saved as a *.vbs file. Remember to change the login information.

VB
Dim objSO
Dim objAppointment
Set objSO = CreateObject("SuperOfficeDB.Database")
If not (objSO is nothing) Then
    objSO.Login "<USERID>", "<PASSWORD>"
    Set objAppointment = objSO.GetAppointment (2)          
    if objAppointment.IsAvailable = true then
        MsgBox "Appointment with Appointment_id=2 has the following description: " & objAppointment.description
    else
        msgbox "There is no Appointment in the database with Appointment_id=2"
    end if
else
    MsgBox "Unable to connect to database"
end if
Set objSO = Nothing

See Also