ISExternalProvider.AllowAccessionAccess

Description

Returns True if the Accession External Provider module is enabled for the selected external provider.

Syntax

object.AllowAccessionAccess

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

Return Value

bool

Example

Display AllowAccessionAccess for the external provider.

Dim aExtProvider 
Dim aCode
Dim aMessage

aCode = "1"
Set aExtProvider = Profile.LoadExternalProvider(aCode)

if aExtProvider.ID = 0  then 
  Profile.MsgBox("No external provider with the specified code")
  exit sub   
end if

aMessage = aMessage & "FULL NAME:" & vbNewLine & aExtProvider.FullName &_
  vbNewLine & vbNewLine & "Allow Accession Access:" & vbNewLine &_
  aExtProvider.AllowAccessionAccess
 
Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface the Allow Aero & Accession Access checkbox can be checked in Organisation > External Providers > Basic > Internet.

Version information

Added in v7.8.0