ACCESS2003 組合框聯(lián)動(dòng)查詢(xún)

1、組合框之間的聯(lián)動(dòng)創(chuàng)建一個(gè)鄉(xiāng)鎮(zhèn)村屯窗體, 新建一個(gè)就行了,如下圖在窗體中加入三個(gè)組合框, 如下圖打開(kāi)鄉(xiāng)組合框的屬性表, 更改名稱(chēng), 例如我將它改名為鄉(xiāng)名 行來(lái)源類(lèi)型設(shè)置為:表/查詢(xún)點(diǎn)擊行來(lái)源右邊的.按鈕, 目的設(shè)置行來(lái)源加入地址表, 雙擊鄉(xiāng)字段, 這樣鄉(xiāng)的行來(lái)源就設(shè)置完畢了按上面提到的方法設(shè)置村組合框的行來(lái)源 , 在這里要添加二個(gè)字段, 一個(gè)是村, 另一個(gè)是鄉(xiāng), 在準(zhǔn)則中寫(xiě)入條件:froms!窗體名!控件名寫(xiě)入條件的目的是以鄉(xiāng)組合框的值進(jìn)行篩選, 這是關(guān)鍵!以上面同樣的方法設(shè)置屯組合框的行來(lái)源, 在這再增加屯字段, 在村字段的準(zhǔn)則中再增加準(zhǔn)則, 如下圖到止, 三個(gè)組合框的設(shè)置已經(jīng)完畢, 但組合框

2、還不可以聯(lián)動(dòng)的, 必須在各控件的更新事件寫(xiě)入刷新代碼才能聯(lián)動(dòng), 代碼在下面講述在鄉(xiāng)組合框?qū)傩灾? 點(diǎn)擊更新后右邊的.按鈕, 寫(xiě)入事件過(guò)程其更新后事件的代碼如下:Private Sub 鄉(xiāng)名_AfterUpdate() 更新后事件Me.村名.Requery 刷新村組合框的列表數(shù)據(jù)Me.村名 = 清空村組合框,防止數(shù)據(jù)錯(cuò)亂Me.屯名 = 清空屯組合框,防止數(shù)據(jù)錯(cuò)亂End Sub以同樣方法打開(kāi)村組合框更新后事件過(guò)程, 寫(xiě)入如下代碼Private Sub 村名_AfterUpdate()Me.屯名.Requery 刷新屯組合框的列表數(shù)據(jù)Me.屯名 = 清空屯組合框,防止數(shù)據(jù)錯(cuò)亂End SubOK 現(xiàn)在

3、各組合框可以聯(lián)動(dòng)了, 回到窗體視圖就可以看到效果以下再說(shuō)一下組合框中常用的三個(gè)技巧技巧一. 單純上面的設(shè)置, 細(xì)心的壇友會(huì)發(fā)現(xiàn), 組合框展開(kāi)的列表中為什么會(huì)有很多的重復(fù)數(shù)據(jù)? 如下圖可不可以顯示唯一數(shù)據(jù)呢? 答案是:可以的, 方法如下:打開(kāi)行來(lái)源設(shè)置界面, 如下圖, 在空白處右擊, 打開(kāi)一個(gè)設(shè)置窗體將唯一值的默認(rèn)值否改為是, 如下圖, 然后關(guān)閉再回到窗體視圖, 看看是不是全部的數(shù)據(jù)變成唯一值了?技巧二. 可不可以當(dāng)控件獲得焦點(diǎn)時(shí)自動(dòng)打開(kāi)列表呢 ? 這樣可以實(shí)現(xiàn)純鍵盤(pán)操作, 不用點(diǎn)擊箭頭, 答案也是可以的打開(kāi)控件的屬性, 在獲得焦點(diǎn)的事件過(guò)程中寫(xiě)入代碼, 代碼如下:Private Sub 鄉(xiāng)名_

4、GotFocus() 獲得焦點(diǎn)事件Me.鄉(xiāng)名.Dropdown 展開(kāi)列表數(shù)據(jù)End SubOK 再回到窗體視圖, 是不是獲得焦點(diǎn)的控件會(huì)自動(dòng)打開(kāi)列表 ? 再按一下鍵盤(pán)的向下鍵, 是否可以用鍵盤(pán)選擇數(shù)據(jù)?技巧三. 當(dāng)組合框輸入數(shù)據(jù)時(shí), 在打開(kāi)的列表中可否高亮顯示對(duì)應(yīng)的數(shù)據(jù)? 答案同樣可以打開(kāi)控件的屬性, 將自動(dòng)展開(kāi)設(shè)置為:是, 這樣在組合框輸入數(shù)據(jù)時(shí), 對(duì)應(yīng)最接近的數(shù)據(jù)就會(huì)高亮顯示, 不信的話(huà)你自己試下就知了這一節(jié)已講完.組合框使用教程(三)組合框行來(lái)源模糊篩選上一節(jié)講到，利用組合框與組合框之間進(jìn)行數(shù)據(jù)篩選，當(dāng)某一個(gè)組合框的行來(lái)源很多數(shù)據(jù)，而又不能分類(lèi)再篩選時(shí)，能不能在組合框中自篩選呢？如果可行

5、的話(huà)相信在實(shí)際應(yīng)用中有一定的用途，本節(jié)就這個(gè)問(wèn)題進(jìn)行探討。大家都知道，組合框的行來(lái)源可以寫(xiě)入條件的，也可以寫(xiě)入模糊查詢(xún)條件，如下圖這個(gè)語(yǔ)句說(shuō)明當(dāng)組合框沒(méi)有數(shù)據(jù)時(shí)，行來(lái)源全部列出數(shù)據(jù)，而當(dāng)組合框有數(shù)據(jù)時(shí)，模糊顯示相關(guān)數(shù)據(jù)條件有了，當(dāng)組合框輸入字符時(shí)必須刷新行來(lái)源才能模糊顯示相關(guān)數(shù)據(jù)，但單純?cè)诮M合框的“更改”事件中寫(xiě)入刷新語(yǔ)句，系統(tǒng)會(huì)彈出錯(cuò)誤提示，原因是組合框還沒(méi)有保存數(shù)據(jù)，這樣是不能刷新的，能不能先保存數(shù)據(jù)，然后再刷新組合框的行來(lái)源呢？本課程關(guān)鍵就是這一點(diǎn)。一個(gè)窗體正常情況下是不會(huì)只有一個(gè)控件的，這樣就給我們解決問(wèn)題提供了便利，我們?cè)诮M合框的 “更改” 事件中寫(xiě)入代碼，先將焦點(diǎn)移到別的控件上，然

6、后將組合框進(jìn)行刷新，最后再將點(diǎn)返回到組合框上，這樣就解決了先保存數(shù)據(jù)，然后再刷新組合框的行來(lái)源的問(wèn)題了，代碼如下：Private Sub 生產(chǎn)單位_Change() 組合框的更改后事件Me.列表 142.SetFocus 先將焦點(diǎn)移到別的控件上Me.生產(chǎn)單位.Requery 更新組合框的源數(shù)據(jù)Me.生產(chǎn)單位.SetFocus然后再將焦點(diǎn)返回到原組合框If Nz(生產(chǎn)單位) Then Me.生產(chǎn)單位.SelStart = Len(Me.生產(chǎn)單位) 如果組合框有數(shù)據(jù)時(shí)將焦點(diǎn)移到字符的后面Me.生產(chǎn)單位.Dropdown展開(kāi)組合框的列表數(shù)據(jù)End Sub這里有一句代碼If Nz(生產(chǎn)單位) Then Me.生產(chǎn)單位.SelStart = Len(Me.生產(chǎn)單位) 如果組合框有數(shù)據(jù)時(shí)將焦點(diǎn)移到字符的后面焦點(diǎn)返回到組合框后，將焦點(diǎn)移到字符的最后面，沒(méi)