Ms access 如何在Access中为运行时重新创建内置CommandBarPopup

目前，我正在使用Access 2013/2016开发一个应用程序。此软件应仅在具有Access运行时引擎的客户端计算机上运行。现在我注意到所有功能区/上下文菜单在运行时模式下都被禁用

现在我试着自己创建必要的上下文菜单。这很有帮助，但我对CommandBar弹出窗口有一个问题

我正在尝试创建相同的上下文菜单，您可以在表单的表格单元格/输入字段中看到。在这里，有一个非常好的过滤器按钮/弹出窗口，它考虑单击的单元格的基础数据类型。对于日期类型，它显示“日期过滤器”，对于文本类型，显示“文本过滤器”，等等

我找到了这个菜单项（31581）的内部控制Id，但它没有显示CommandBarPop的所有相关子菜单项。然后我尝试手动包含此子项，但它将始终显示所有子项。标准上下文菜单足够聪明，可以隐藏所有不相关的子项（例如，对于文本类型，所有日期菜单，如“下个月”，等等）

这是我到现在为止的代码。注释行是我的问题

Public函数CreateShortcutMenus（）
出错时继续下一步
命令栏（“cmdFormFiltering”）。删除
错误转到0
'创建快捷菜单。
Dim cmdFormFiltering作为Office.CommandBar
设置cmdFormFiltering=CommandBars.Add（“cmdFormFiltering”，msoBarPopup，False，True）
使用cmdFormFiltering
'添加Find命令。
.Controls.Add msoControlButton，141，，True
'启动新分组并添加升序排序命令。
.Controls.Add（msoControlButton，210，，True）。BeginGroup=True
'添加排序降序命令。
.Controls.Add msoControlButton，211，，True
'启动新分组并添加删除文件管理器/排序命令。
.Controls.Add（msoControlButton，605，，True）。BeginGroup=True
'添加过滤器过滤器BySelection
.Controls.Add（msoControlButton，640，，True）。BeginGroup=False
Dim popUpFilter作为Office.CommandBarPopup
设置popUpFilter=.Controls.Add（msoControlPopup，31581，，True）
popUpFilter.BeginGroup=True
'popUpFilter.Controls.Add（msoControlButton，10077，，True）。BeginGroup=False
'popUpFilter.Controls.Add（msoControlButton，10078，，True）。BeginGroup=False
'popUpFilter.Controls.Add（msoControlButton，10079，，True）。BeginGroup=False
'popUpFilter.Controls.Add（msoControlButton，12696，，True）。BeginGroup=False
'popUpFilter.Controls.Add（msoControlButton，10080，，True）。BeginGroup=False
'popUpFilter.Controls.Add（msoControlButton，10081，，True）。BeginGroup=False
'popUpFilter.Controls.Add（msoControlButton，10088，，True）。BeginGroup=False
'popUpFilter.Controls.Add（msoControlButton，12697，，True）。BeginGroup=False
'popUpFilter.Controls.Add（msoControlButton，12698，，True）。BeginGroup=False
'popUpFilter.Controls.Add（msoControlButton，12699，，True）。BeginGroup=False
'popUpFilter.Controls.Add（msoControlButton，10082，，True）。BeginGroup=False
'popUpFilter.Controls.Add（msoControlButton，10083，，True）。BeginGroup=False
'popUpFilter.Controls.Add（msoControlButton，10062，，True）。BeginGroup=False
'popUpFilter.Controls.Add（msoControlButton，10063，，True）。BeginGroup=False
'popUpFilter.Controls.Add（msoControlButton，10064，，True）。BeginGroup=False
'popUpFilter.Controls.Add（msoControlButton，10065，，True）。BeginGroup=False
'popUpFilter.Controls.Add（msoControlButton，16206，，True）。BeginGroup=False
'popUpFilter.Controls.Add（msoControlButton，10067，，True）。BeginGroup=False
'popUpFilter.Controls.Add（msoControlButton，10066，，True）。BeginGroup=False
'popUpFilter.Controls.Add（msoControlButton，10058，，True）。BeginGroup=False
'popUpFilter.Controls.Add（msoControlButton，10069，，True）。BeginGroup=False
'popUpFilter.Controls.Add（msoControlButton，10070，，True）。BeginGroup=False
'popUpFilter.Controls.Add（msoControlButton，10059，，True）。BeginGroup=False
'添加过滤器过滤器资格选择
.Controls.Add（msoControlButton，10068，，True）。BeginGroup=True
'添加筛选器筛选器noteQualsSelection
.Controls.Add msoControlButton，10071，，True
以
设置cmdFormFiltering=Nothing
端函数

我要做什么，自动显示所有子项，控件id为31581

问候,， 丹尼尔