ник: Lukas
Пример для подчиненной формы:
Private Sub btnShowPopUp_Click()
With Me.Controls("frm2")
.SetFocus
If Len(.Form.ShortcutMenuBar & "") > 0 Then 'Если задано свое меню
CommandBars(.Form.ShortcutMenuBar).ShowPopup
Else
CommandBars("Form View Control").ShowPopup 'Здесь возможно надо "PivotTable Popup"
End If
End With
End Sub
|