Access組合框多級聯(lián)動-行政區(qū)域選擇

在Access中，有多個(gè)組合框，每個(gè)組合框的的值受限于上一層組合框的值

即組合框的聯(lián)動。如在組合框選擇了一個(gè)省份后，下一層組合框智能篩選這個(gè)省份的市

設(shè)置方法：

一、建立基礎(chǔ)表，這里我們建立3個(gè)表：省，市，縣（區(qū)）這3個(gè)表

二、窗體設(shè)置

1、省設(shè)置

① 窗體設(shè)計(jì)圖如下：創(chuàng)建3個(gè)組合框，分別命名為省，市，縣。窗體保存為命名為“窗體12”

②  設(shè)置省的組合框的行來源：

SELECT 省.省編號, 省.省名 FROM 省;

同時(shí)設(shè)置組合框?qū)傩?，列?shù)為2，列寬為0;2

③ 設(shè)置組合框?qū)傩?更新后事件為：

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

這里的代碼主要是當(dāng)選擇省份后，自動刷新市，同時(shí)設(shè)置市和縣為空

2、設(shè)置市

如上面同理，設(shè)置市的行來源為

SELECT 市.市編號, 市.市名  FROM 市
WHERE (((市.省編號)=[forms]![窗體12]![省]));

這里同時(shí)要記得設(shè)置 列數(shù)和列寬。

市組合框的更新后事件為：

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

3、設(shè)置縣

設(shè)置縣的行來源為：

SELECT 縣名.縣名 FROM 縣名
WHERE (((縣名.上級市)=[forms]![窗體12]![市]));

最后效果圖：