Access组合框多级联动-行政区域选择

2017-09-21 15:32:00
黄善超
原创
590

在Access中,有多个组合框,每个组合框的的值受限于上一层组合框的值

即组合框的联动。如在组合框选择了一个省份后,下一层组合框智能筛选这个省份的市


设置方法:

一、建立基础表,这里我们建立3个表:省,市,县(区)这3个表


二、窗体设置

1、省设置

① 窗体设计图如下:创建3个组合框,分别命名为省,市,县。窗体保存为命名为“窗体12


②  设置省的组合框的行来源:

SELECT 省.省编号, 省.省名 FROM 省;

同时设置组合框属性,列数为2,列宽为0;2


③ 设置组合框属性 更新后事件为:

Private Sub 省_AfterUpdate()
    Me.市.Requery
    Me.市 = Null
    Me.县 = Null
End Sub

这里的代码主要是当选择省份后,自动刷新市,同时设置市和县为空


2、设置市

如上面同理,设置市的行来源为

SELECT 市.市编号, 市.市名  FROM 市
WHERE (((市.省编号)=[forms]![窗体12]![省]));


这里同时要记得设置 列数和列宽。


市组合框的更新后事件为:

Private Sub 市_AfterUpdate()
    Me.县.Requery
    Me.县 = Null
End Sub



3、设置县

设置县的行来源为:

SELECT 县名.县名 FROM 县名
WHERE (((县名.上级市)=[forms]![窗体12]![市]));


最后效果图:

    分享