ISCdoFormTemplateLoader.Load

Description

This function loads the CDO form templates.

Syntax

object.Load()

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

Return Value

ISCollection

Returns the collection of the CDO form templates.

Example

Display the number of the CDO form templates and their names.

Dim aCdoFormTemplateLoader
Dim aFormTemplates, aFormTemplate 
Dim aMessage
Dim i

Set aCdoFormTemplateLoader = Profile.CreateCdoFormTemplateLoader
aCdoFormTemplateLoader.TemplateTypes = 1  'TSCdoFormTemplateTypes_Base
aCdoFormTemplateLoader.Name = "Antenatal Form" 
set aFormTemplates = aCdoFormTemplateLoader.Load 

aMessage = "Form Templates Count = " & aFormTemplates.Count & vbNewLine 

for i = 0 to aFormTemplates.Count - 1
  set aFormTemplate = aFormTemplates.Item(i) 
  aMessage = aMessage & (i + 1) & ". " &_
    "Name: " & aFormTemplate.Name & vbNewLine     
next   

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface CDO Form Templates can be found in Maintain > Templates > Health Record Collection Templates.

Version information

Added in v7.8.0

return type changed from ISCDOListFormTemplates to ISCollection in v7.8.0