ISProfileForm.CaseID

Description

ID of the case linked to the form.

Syntax

object.CaseID

Part	Attribute	Type	Description
`object`	Required	ISProfileForm	The `object` always implements the ISProfileForm interface

Return Value

int

Example

Display some information about the form and the case linked to it.

Dim aForm
Dim aCase
Dim aFormInfo

Set aForm = Profile.Form
aFormInfo =_
  "Short Name: " & aForm.ShortName & vbNewLine &_
  "TypeName: " & aForm.TypeName    
if aForm.CaseID > 0 then
  set aCase = Profile.OpenCase(aForm.CaseID) 
  aFormInfo = aFormInfo& vbNewLine & "       - The case '" & aCase.CaseTitle &_
    "' (ID: " & aCase.ID & ") was opened on " & aCase.OpenedOn & vbNewLine 
end if       
    
Profile.MsgBox(aFormInfo)

Note: This macro should be executed in any event handler of the form control.

In Profile Client v8 on User Interface CDO Form for cases can be found in Case Clinical > Forms.

Version information

Added in v7.8.0