Access 如何实现组合框联动详细教程

Access 2021-09-18 09:08:33

想要一个新的功能，就是当第一个下拉组合框改为人事部时第二个下拉组合框就要出现人事部的相关明细可供选择，在excel中测试时是可以实现的但在Access中不知道该如何实现，后经群友帮忙找到了这个示例，说的非常详细，在此上传以供朋友们参考。

一个组合框的变化，引起另一个组合框的变化，这就是所谓的组合框联动，在生活中不难发现组合框联动的例子，比如某一个地方，不同的省份有不同的城市。如：广东下有中山，广州，深圳，湖南下有长沙，株洲等。下面讲述一下具体的制作过程：

1. 先建立表,这里不详细说明；

2. 创建一个"乡镇村屯窗体", 新建一个就行了,如下图：

Access实现组合框联动详细教程

3. 在窗体中加入三个组合框, 如下图：

Access实现组合框联动详细教程

4. 打开"乡"组合框的属性表, 更改名称, 例如我将它改名为"乡名"；

行来源类型设置为:表/查询

点击行来源右边的"..."按钮, 目的设置行来源。

Access实现组合框联动详细教程

5. 加入地址表, 双击乡字段, 这样乡的行来源就设置完毕了；

Access实现组合框联动详细教程

6. 按上面提到的方法设置村组合框的行来源, 在这里要添加二个字段, 一个是村, 另一个是乡, 在准则中写入条件:froms!窗体名!控件名

写入条件的目的是以乡组合框的值进行筛选, 这是关键!!

Access实现组合框联动详细教程

7. 以上面同样的方法设置屯组合框的行来源, 在这再增加屯字段, 在村字段的准则中再增加准则, 如下图：

Access实现组合框联动详细教程

到止, 三个组合框的设置已经完毕, 但组合框还不可以联动的, 必须在各控件的更新事件写入刷新代码才能联动, 代码在下面讲述。

8. 在乡组合框属性中, 点击更新后右边的"..."按钮, 写入事件过程；

Access实现组合框联动详细教程

其更新后事件的代码如下:

Private Sub 乡名_AfterUpdate() '更新后事件

Me.村名.Requery '刷新村组合框的列表数据

Me.村名 = "" '清空村组合框,防止数据错乱

Me.屯名 = "" '清空屯组合框,防止数据错乱

End Sub

9. 以同样方法打开村组合框更新后事件过程, 写入如下代码：