ник: ddi
создаём модуль в модуле
Option Compare Database
Option Explicit
Public gobjRibbon As IRibbonUI
Public lngDropDownValue As Long
Public Sub Load(ribbon As IRibbonUI) ' control callback
lngDropDownValue = 2
Set gobjRibbon = ribbon
End Sub
и
Public Sub rib(control As IRibbonControl) ' menu
On Error Resume Next
Select Case control.id
Case "en"
DoCmd.OpenForm "en"
********************************
End Select
End Sub
Функция rib оприделает что делать при нажатии на канкретную кнопку Case "здесь имя кнопки точнее ID"
а патом что надо делать