This property returns the provider's alias with the code "ACC".
object.AccAlias
| Part | Attribute | Type | Description |
|---|---|---|---|
object |
Required | The object always implements the
ISProvider interface |
Display the list of providers with the information about the alias with the code "ACC".
Dim aFilter
Dim aProviders
Dim aProvider
Dim aAccAlias
Dim aMessage
Set aFilter = Profile.CreateProvidersFilter
aFilter.Category = 2 'pcProvider
set aProviders = Profile.LoadProvidersByFilter(aFilter)
aMessage = aMessage & vbNewLine &_
"The number of the providers is " & aProviders.Count
for each aProvider in aProviders
set aAccAlias = aProvider.AccAlias
if aAccAlias is nothing then
aMessage = aMessage & vbNewLine & aProvider.FullName &_
" has no Acc Alias"
else
aMessage = aMessage & vbNewLine & aProvider.FullName &_
" has the Acc alias with the reference 1 '" & aAccAlias.Reference1 & "'"
end if
next
Profile.MsgBox (aMessage) In Profile Client v8 on User Interface Acc Alias can be found in .