Function CB_Exist(n) As Boolean

Dim cb As CommandBar

For Each cb In CommandBars
    If UCase(cb.name) = UCase(n) Then
        CB_Exist = True
        Exit Function
    End If
Next cb
CB_Exist = False

End Function

Dim ao As Object
Dim cb As Object
Set ao = CreateObject("Access.Application")
Set cb = aa.CommandBars("MyCommandBar")

Function CB_Exist(n) As Boolean
Dim cb As Object
For Each cb In CommandBars
    If UCase(cb.Name) = UCase(n) Then
        CB_Exist = True
        Exit Function
    End If
Next cb
CB_Exist = False
End Function

Function CB_Exist(n) As Boolean

Dim cb As CommandBar

For Each cb In CommandBars
    If UCase(cb.name) = UCase(n) Then
        CB_Exist = True
        Exit Function
    End If
Next cb
CB_Exist = False

End Function

Function CB_Exist(n) As Boolean
Dim strName As String
On Error Resume Next
Err.Clear
strName = Application.CommandBars(n).Name
CB_Exist = (Err.Number = 0)
Err.Clear
End Function

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы