Office中国论坛/Access中国论坛

标题: 关于联动菜单及组合 [打印本页]

作者: roych 时间: 2016-2-17 11:08
标题: 关于联动菜单及组合
本帖最后由 roych 于 2016-2-18 17:30 编辑

关于联动菜单，我想，应该是大部分新手都无法绕过的问题吧。事实上，论坛上也已经有不少帖子了，只是没有系统地归类，查找起来较为麻烦。而组合多级菜单，则是昨天一个版友提出的问题（详见下拉方塊三連同步問題.），觉得这问题比较有趣，所以就做个例子供新手参考。

先说说实现联动菜单的基本原理吧：

先设置父级菜单，数据源可以用distinct或者分组查询来去除重复即可，并在更改事件或者更新后事件中刷新子级菜单。
然后设置子级菜单的数据源：以父级菜单的控件值为where条件。
孙级菜单的数据源与子级菜单那样设置类似，当然，where条件除了父级菜单的控件值之外，还需要子级菜单的控件值。
多级菜单如此类推。

至于多级菜单的组合，则相对麻烦些许。由于控件值随时发生变化，因此需要设法清除部分旧数据，以达到替换的目的。具体就不多说了，请留意附件。
[attach]58089[/attach]
----------------
2016-2-18更新：
1、出于兼容性的考虑，修改窗体名称为英文。
2、增加隐藏控件，组合框选择值之后，则显示对应的隐藏控件。例如，选择澳门则显示澳门，选择安徽的市县则显示对应的市县。效果如图所示：
[attach]58088[/attach]
[attach]58087[/attach]
例子不太严谨，因此请严格按级别一层层来选择。——其实是我比较懒，不想写太多代码去判断。

作者: 紫;;] 时间: 2016-2-17 11:16
太好了 !! 立即來學習一下，有不懂再發問

作者: 紫;;] 时间: 2016-2-17 11:16
太好了 !! 立即來學習一下，有不懂再發問感謝

作者: tmtony 时间: 2016-2-17 11:17
好教程

作者: 紫;;] 时间: 2016-2-17 11:38
慘了..不能打開
[attach]58074[/attach]

作者: 紫;;] 时间: 2016-2-17 13:37

紫;;] 发表于 2016-2-17 11:38
慘了..不能打開

試過也是不能，我是使用正版 office 360 2016版本
因為我電腦是繁體版，
進到VBA 簡體會亂碼，就錯誤了

有很多範本我都不能正常使用

有方法解決嗎？已經試過轉做簡體語言／地區
一樣不能

作者: ashui87 时间: 2016-2-25 21:51
正是我想要的，非常感谢！

作者: chinaji2010 时间: 2016-2-26 21:34
厉害，楼主能否写下详细的步骤，本人实在太差了，谢谢

作者: newglord 时间: 2016-4-9 20:43
回复

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)