Simple collection example

The following code illustrates the use of a collection object and some methods and properties of the Field, Fields, and Form objects.

Note

If you want to test this method, copy it to a Visual Basic ActiveX DLL or ActiveX EXE project.

 

Public Sub SkipVerification()

'----------------------------------------------------------------------

' Call this function in the FormValidated event in the Interpret

' module. All fields are set to Complete.

'----------------------------------------------------------------------

    Dim objCurrForm As Object

    Dim objElement As Object

    Dim objMyCollection As Object

 

    Set objCurrForm = InterpretApp.Form

    Set objMyCollection = objCurrForm.Fields

 

    For Each objElement In objMyCollection

        objElement.Status = ehComplete

    Next objElement

 

    objCurrForm.Status = ehComplete

 

End Sub