<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="OnLoad">

<!-- Перед публикацией поменять на true. -->
<ribbon startFromScratch="false">

<!-- Вкладки меню на ленте. На самом деле планируется всего одна вкладка и на ней рабочая группа и несколько специально активированных стандартных. -->
<tabs>

<tab id="dbCustomTab" label=" ~ НАША СУПЕР ПРОГРАММА ~ " visible="true">

<group id="dbCustomGroup" label="Секретно">
	<splitButton id="MainFormMenu" size="large"> <!-- или size="normal" -->
		<button id="cmdDisp" imageMso ="ControlPaddingGallery" label="Диспетчер форм" onAction="fncOnAction" screentip="Главное рабочее меню системы"/>
		<menu id="MenuDD" itemSize="normal"> <!-- или itemSize="large" -->
			
			<button id="cmdFormButtonReport"	onAction="fncOnAction" getEnabled="IsRibbonControlEnabled" label="Тот Самый Отчётец"		imageMso="AccountMenu"				description="Ну это же кнопка из формы, чё не понятного то?"			screentip="Можно жать без опасений"/>

			<button id="cmdHelp"		onAction="fncOnAction" getEnabled="IsRibbonControlEnabled" label="Справка"			imageMso="Help"					description="Справочная информация по системе - краткая инструкция пользователей"	screentip="Справочная информация по системе - краткая инструкция пользователей"/>
			<menuSeparator id="myMenuSep1"/>
			<button id="cmdExit"		onAction="fncOnAction" getEnabled="IsRibbonControlEnabled" label="Выход из системы"		imageMso="PrintPreviewClose"			description="Выход из программы"							screentip="Завершение работы с ситемой"/>
		</menu>
	</splitButton>
</group>

<!-- Кнопка "Выход". Ещё одна. Большая. -->
<group id="ClearExit" label="Выход">
	<button id="cmdExit2" onAction="fncOnAction" getEnabled="IsRibbonControlEnabled" label="Выход" size="large" imageMso="PrintPreviewClose" screentip="Завершение работы с ситемой"/>
</group>
</tab>	<!-- Конец главной рабочей вкладки -->
</tabs>
</ribbon>
</customUI>

'-----------------------------------------------------------------------------------------------------------
'Процедура с ответными действиями (коллбэками) для разных контролов ленты.
'-----------------------------------------------------------------------------------------------------------
    Public Sub fncOnAction(control As IRibbonControl)

        'Перехват обработки ошибок.
        On Error GoTo Err_fncOnAction
    
        'Локальные переменные.
        Dim frmName As Form
        
        'Назначение действий для элементов меню и кнопок ленты.
        Select Case control.ID

        Case "cmdDisp"

            DoCmd.OpenForm "Диспетчер форм"

        Case "cmdFormButtonReport"

            DoCmd.OpenReport "ОтчётПоКнопкеИзТойСамойФормы"

        Case "cmdHelp"

            FollowHyperlink "\\Fileserver\НашЛюбимыйСервер\ДокументацияНахренНикемНеЧитаемая\РуководствоПользователя.doc"

        Case "cmdExit", "cmdExit2", "cmdExit1"

            If MsgBux("Вы действительно хотите выйти из системы?", _
                "Закрыть программу и вернуться в Windows?", vbQuestion + vbYesNo, "Выход") = vbYes Then

                'Игнорирование ошибок.
                On Error Resume Next
                
                'Отмена вывода предупреждений на экран.
                Application.Echo False
                DoCmd.SetWarnings False
                
                'Закрыть все открытые формы прилождения перед выходом.
                For Each frmName In Application.Forms

                    If IsLoaded(frmName.Name) Then
                        DoCmd.Close acForm, frmName.Name, acSaveNo
                    End If

                Next
                
                'Application.Quit acQuitSaveNone 'acQuitSaveAll
                DoCmd.Quit acQuitSaveNone
                
                Exit Sub
            
            End If
       
        Case Else
        
            MsgBux "Ещё в процессе разработки вызов для кнопки для объекта меню:", control.ID, _
                vbInformation, "Пока не реализовано"
        
        End Select

'Нормальное завершение процедуры.
Exit_fncOnAction:
        Exit Sub

'Обработка ошибок.
Err_fncOnAction:

        If Err.Number = 3146 Then
            MsgBux "ОБЩАЯ ПРОБЛЕМА СЕТЕВОГО СОЕДИНЕНИЯ !!!", "Нет связи с сервером баз данных." & vbCrLf & vbCrLf & _
                "Код ошибки: " & Err.Number & vbCrLf & vbCrLf & _
                Err.Description, vbCritical, "Модуль [Perms] -> Sub [fncOnAction]"
        Else
            MsgBux Err.Description, "Код ошибки: " & Err.Number, vbCritical, "Модуль [Perms] -> Sub [fncOnAction]"
        End If
        Resume Exit_fncOnAction

    End Sub