Access實現(xiàn)組合框聯(lián)動詳細教程

1、時間:2015-02-05 15:33:30作者:小小白菜   ID：37304  城市：蘇州摘要:   今天突然想要一個新的功能，就是當(dāng)?shù)谝粋€下拉改為人事部時第二個下拉就要出現(xiàn)人事部的相關(guān)明細可供選擇，在excel中測試時是可以實現(xiàn)的但在Access中不知道該如何實現(xiàn)，后經(jīng)群Access中國的朋友幫忙找到了這個示例。說的非常詳細。在此上傳到群中以供朋友們參考正文:一個組合框的變化，引起另一個組合框的變化，這就是所謂的組合框聯(lián)動，在生活中不難發(fā)現(xiàn)組合框聯(lián)動的例子，比如某一個地方，不同的省份有不同的城市。如：廣東下有

2、中山，廣州，深圳，湖南下有長沙，株洲等。下面講述一下具體的制作過程，1. 先建立表,這里不詳細說明 2. 創(chuàng)建一個"鄉(xiāng)鎮(zhèn)村屯窗體", 新建一個就行了,如下圖  3. 在窗體中加入三個組合框, 如下圖4. 打開"鄉(xiāng)"組合框的屬性表, 更改名稱, 例如我將它改名為"鄉(xiāng)名"行來源類型設(shè)置為:表/查詢點擊行來源右邊的"."按鈕, 目的設(shè)置行來源5. 加入地址表, 雙擊鄉(xiāng)字段, 這樣鄉(xiāng)的行來源就設(shè)置完畢了6. 按上面提到的方法設(shè)置村組合框的行來源, 在這里要添加二個字段, 一個是村, 另一個是鄉(xiāng), 在準(zhǔn)則

3、中寫入條件:froms!窗體名!控件名寫入條件的目的是以鄉(xiāng)組合框的值進行篩選, 這是關(guān)鍵!7. 以上面同樣的方法設(shè)置屯組合框的行來源, 在這再增加屯字段, 在村字段的準(zhǔn)則中再增加準(zhǔn)則, 如下圖到止, 三個組合框的設(shè)置已經(jīng)完畢, 但組合框還不可以聯(lián)動的, 必須在各控件的更新事件寫入刷新代碼才能聯(lián)動, 代碼在下面講述 8. 在鄉(xiāng)組合框?qū)傩灾? 點擊更新后右邊的"."按鈕, 寫入事件過程 其更新后事件的代碼如下:Private Sub 鄉(xiāng)名_AfterUpdate()  '更新后事件    Me.村名.Requery &#

4、160;'刷新村組合框的列表數(shù)據(jù)    Me.村名 = ""     '清空村組合框,防止數(shù)據(jù)錯亂    Me.屯名 = ""     '清空屯組合框,防止數(shù)據(jù)錯亂End Sub9. 以同樣方法打開村組合框更新后事件過程, 寫入如下代碼#p#分頁標(biāo)題#e#Private Sub 村名_AfterUpdate()    Me.屯名.Requery  '刷新屯組合框的列

5、表數(shù)據(jù)    Me.屯名 = ""     '清空屯組合框,防止數(shù)據(jù)錯亂End SubOK 現(xiàn)在各組合框可以聯(lián)動了, 回到窗體視圖就可以看到效果以下再說一下組合框中常用的三個技巧技巧一. 單純上面的設(shè)置, 細心的壇友會發(fā)現(xiàn), 組合框展開的列表中為什么會有很多的重復(fù)數(shù)據(jù)? 如下圖 可不可以顯示唯一數(shù)據(jù)呢? 答案是:可以的, 方法如下:打開行來源設(shè)置界面, 如下圖, 在空白處右擊, 打開一個設(shè)置窗體 將唯一值的默認值否改為是, 如下圖, 然后關(guān)閉 再回到窗體視圖, 看看是不是全部的數(shù)據(jù)變成唯一值了?技巧二. 可

6、不可以當(dāng)控件獲得焦點時自動打開列表呢? 這樣可以實現(xiàn)純鍵盤操作, 不用點擊箭頭, 答案也是可以的打開控件的屬性, 在"獲得焦點"的事件過程中寫入代碼, 代碼如下:Private Sub 鄉(xiāng)名_GotFocus()  '獲得焦點事件    Me.鄉(xiāng)名.Dropdown  '展開列表數(shù)據(jù)End SubOK 再回到窗體視圖, 是不是獲得焦點的控件會自動打開列表? 再按一下鍵盤的向下鍵, 是否可以用鍵盤選擇數(shù)據(jù)?技巧三.  當(dāng)組合框輸入數(shù)據(jù)時, 在打開的列表中可否高亮顯示對應(yīng)的數(shù)據(jù)? 答案同樣可以打開