在兩個(gè)組合框之間建立依賴(lài)關(guān)系

1、在兩個(gè)組合框之間建立依賴(lài)關(guān)系適用于: Microsoft Office Access 2003 全部顯示2005 年 1 月 31 日作者 Sal Ricciardi進(jìn)行選擇是組合框的用途，但是有時(shí)選擇之間存在依賴(lài)關(guān)系。在本部分中，將學(xué)習(xí)如何創(chuàng)建一個(gè)組合框，以使其列表依賴(lài)于在另一個(gè)組合框中所做的選擇。我們?cè)谑纠龜?shù)據(jù)庫(kù)中提供了一個(gè)示例，可供您下載。適用于Microsoft Office Access 2003Microsoft Access 2000 和 2002問(wèn)題：如何創(chuàng)建一個(gè)組合框，并且限制其列表基于在另一組合框中所做的選擇？    使第二

2、個(gè)組合框 （組合框:窗體上用來(lái)提供列表框和文本框的組合功能的一種控件。用戶(hù)既可以在組合框中鍵入一個(gè)值，也可以單擊該控件以顯示一個(gè)列表，然后從列表中選擇一項(xiàng)。）基于一個(gè)查詢(xún)，該查詢(xún)要與包含第一個(gè)組合框中的所選值的行相匹配。還需要在特定窗體和控件事件 （事件:由對(duì)象識(shí)別的操作，如鼠標(biāo)單擊或按鍵，可為這些操作定義響應(yīng)。事件可能由用戶(hù)操作或 Visual Basic 語(yǔ)句引發(fā)，或者由系統(tǒng)觸發(fā)。）中輸入一些 Microsoft Visual Basic for Applications (VBA) 代碼。該代碼可確保發(fā)生特定操作（如在第一個(gè)組合框中做出選擇，或者第一次打開(kāi)窗體）時(shí)，組合框顯示正確的值。首

3、先，請(qǐng)查看“行源”和“行源類(lèi)型”屬性 （屬性:控件、字段或?qū)ο蟮拿麑傩?，可以通過(guò)設(shè)置屬性來(lái)定義對(duì)象的某種特征（如大小、顏色或屏幕位置）或?qū)ο笮袨榈哪硞€(gè)方面（如對(duì)象是否隱藏）。）。 “行源”和“行源類(lèi)型”簡(jiǎn)介使用“行源”屬性，可以定義組合框中顯示的項(xiàng)目的源。將該屬性與“行源類(lèi)型”屬性一起使用可指示 Access 如何填充組合框。例如，可以將“行源類(lèi)型”屬性設(shè)置為表/查詢(xún)，然后將“行源”屬性設(shè)置為某個(gè)查詢(xún)的名稱(chēng)。然后，Access 會(huì)運(yùn)行該查詢(xún)，并使用結(jié)果填充該組合框。不必使用已經(jīng)保存的查詢(xún)。通過(guò)將“行源類(lèi)型”屬性設(shè)置為表/查詢(xún)，可以創(chuàng)建一個(gè)查詢(xún)，該查詢(xún)?cè)诮M合框的“行源”屬性中以 SQ

4、L SELECT 語(yǔ)句形式存在。在本文示例數(shù)據(jù)庫(kù)的示例窗體中使用了該方法。下表中列出了“行源類(lèi)型”屬性的可能設(shè)置。設(shè)置說(shuō)明表/查詢(xún)從“行源”屬性指定的表、查詢(xún)或 SQL 語(yǔ)句中獲取數(shù)據(jù)。這是默認(rèn)設(shè)置。值列表從“行源”屬性指定的項(xiàng)目列表中獲取數(shù)據(jù)。字段列表從“行源”屬性指定的表、查詢(xún)或 SQL 語(yǔ)句的字段名稱(chēng)列表中獲取數(shù)據(jù)。在大多數(shù)情況下，將使用默認(rèn)的表/查詢(xún)?cè)O(shè)置。創(chuàng)建示例窗體可以下載本專(zhuān)欄的示例數(shù)據(jù)庫(kù)（英文）。該數(shù)據(jù)庫(kù)中提供了演示此處介紹的方法的示例窗體。要自己創(chuàng)建示例窗體，請(qǐng)啟動(dòng) Access 并按照下面的擴(kuò)展部分中的步驟操作，然后繼續(xù)進(jìn)行專(zhuān)欄的剩余部分。分步說(shuō)明：如何創(chuàng)建示例窗體請(qǐng)執(zhí)行下列

5、操作之一：創(chuàng)建新窗體1. 在“數(shù)據(jù)庫(kù)”窗口中的“對(duì)象”下，單擊“窗體”。2. 在“數(shù)據(jù)庫(kù)”窗口的工具欄上，單擊“新建”。3. 在“新建窗體”對(duì)話(huà)框中，單擊“設(shè)計(jì)視圖”，然后單擊“確定”。在“設(shè)計(jì)”視圖中打開(kāi)現(xiàn)有的窗體1. 在“數(shù)據(jù)庫(kù)”窗口中的“對(duì)象”下，單擊“窗體”。2. 單擊某個(gè)窗體，然后單擊“數(shù)據(jù)庫(kù)”窗口中的“設(shè)計(jì)”。添加 Category 組合框    1. 在工具箱中，單擊“控件向?qū)А卑粹o，以便使其顯示為處于選中狀態(tài)。 注釋   如果工具箱不可見(jiàn)，請(qǐng)?jiān)凇耙晥D”菜單中，單擊“工具箱”。2. 在工具箱中，單擊“

6、組合框”工具。3. 在窗體的設(shè)計(jì)網(wǎng)格內(nèi)單擊并拖動(dòng)以創(chuàng)建組合框。4. 在“組合框向?qū)А敝?，單擊“使用組合框查閱表或查詢(xún)中的值”旁邊的按鈕，然后單擊“下一步”。5. 在“視圖”部分中，單擊“表”。6. 單擊列表中的“表: 類(lèi)別”，然后單擊“下一步”。7. 在“可用字段”中，雙擊“類(lèi)別 ID”和“類(lèi)別名稱(chēng)”，以便二者同時(shí)出現(xiàn)在“選定字段”中，然后單擊“下一步”。8. 在“請(qǐng)確定列表使用的排序次序:”頁(yè)中，在第一個(gè)列表中單擊“類(lèi)別名稱(chēng)”，然后單擊“下一步”。9. 在下一頁(yè)上，確保選中“隱藏鍵列(建議)”復(fù)選框，然后單擊“下一步”。10. 為組合框鍵入標(biāo)簽。根據(jù)該列的目的，我使用了類(lèi)別名稱(chēng):。11. 單

7、擊“完成”。12. 保存該窗體。指定“名稱(chēng)”屬性    1. 當(dāng)窗體在“設(shè)計(jì)”視圖中依然處于打開(kāi)狀態(tài)時(shí)，單擊新組合框。2. 在“視圖”菜單上，單擊“屬性”。3. 在“名稱(chēng)”框中，鍵入 Category。4. 關(guān)閉查詢(xún)屬性表。添加 Product 組合框    1. 在工具箱中，確保選中了“控件向?qū)А卑粹o。 注釋   如果工具箱不可見(jiàn)，請(qǐng)?jiān)凇耙晥D”菜單中，單擊“工具箱”。2. 在工具箱中，單擊“組合框”工具。3. 在窗體的設(shè)計(jì)網(wǎng)格內(nèi)單擊并拖動(dòng)以創(chuàng)建組合框。4. 在“組合框向?qū)А?/p>

8、中，單擊“使用組合框查閱表或查詢(xún)中的值”旁邊的按鈕，然后單擊“下一步”。5. 在“視圖”部分中，單擊“表”。6. 單擊列表中的“表: 產(chǎn)品”，然后單擊“下一步”。7. 在“可用字段”中，雙擊“產(chǎn)品 ID”、“產(chǎn)品名稱(chēng)”和“類(lèi)別 ID”，以便三者同時(shí)出現(xiàn)在“選定字段”中，然后單擊“下一步”。8. 在“請(qǐng)確定列表使用的排序次序:”頁(yè)中，在第一個(gè)列表中單擊“產(chǎn)品名稱(chēng)”，然后單擊“下一步”。9. 確保選中“隱藏鍵列(建議)”復(fù)選框，然后單擊并拖動(dòng)“類(lèi)別”列的右邊框以縮小該列，直到該列消失。單擊“下一步”。10. 為組合框鍵入標(biāo)簽。根據(jù)該列的目的，我使用了產(chǎn)品名稱(chēng):。11. 單擊“完成”。12. 保存該

9、窗體。指定“名稱(chēng)”屬性    1. 單擊“Product”組合框。2. 在“視圖”菜單上，單擊“屬性”。3. 在“名稱(chēng)”框中，鍵入 Product。4. 關(guān)閉屬性表。添加狀態(tài)文本框    1. 在工具箱中，單擊“文本框”工具。 注釋   如果工具箱不可見(jiàn)，請(qǐng)?jiān)凇耙晥D”菜單中，單擊“工具箱”。2. 在窗體的設(shè)計(jì)網(wǎng)格內(nèi)的兩個(gè)組合框下方單擊并拖動(dòng)，以創(chuàng)建文本框。3. 在“視圖”菜單上，單擊“屬性”。4. 在“控件來(lái)源”框中，準(zhǔn)確地鍵入="您選擇了“& Catego

10、ry.Column(1) &”類(lèi)別中的“& Product.Column(1) &”產(chǎn)品！"5. 關(guān)閉屬性表。6. 刪除與剛剛創(chuàng)建的文本框相關(guān)聯(lián)的標(biāo)簽。添加可選的說(shuō)明性文本框    1. 在工具箱中，單擊“文本框”工具。 注釋   如果工具箱不可見(jiàn)，請(qǐng)?jiān)凇耙晥D”菜單中，單擊“工具箱”。2. 在窗體的設(shè)計(jì)網(wǎng)格內(nèi)的兩個(gè)組合框下方單擊并拖動(dòng)，以創(chuàng)建文本框。在示例窗體中，我將該文本框放在兩個(gè)組合框之間：Product 組合框上方，Category 組合框下方。 3. 在“視圖”菜

11、單上，單擊“屬性”。4. 在“控件來(lái)源”框中，準(zhǔn)確地鍵入="在選擇類(lèi)別后，產(chǎn)品列表將更改，從而只提供屬于該類(lèi)別的產(chǎn)品。"5. 關(guān)閉屬性表。6. 刪除與剛剛創(chuàng)建的文本框相關(guān)聯(lián)的標(biāo)簽。7. 保存該窗體。設(shè)置文本框的格式（可選）    1. 增加字體大小，并更改字體顏色。2. 調(diào)整每個(gè)文本框大小并移動(dòng)它們，以適應(yīng)文本。3. 將“背景樣式”屬性設(shè)置為透明，以便文本框的背景色與窗體的背景色相匹配。確保按照本專(zhuān)欄中其余的步驟操作，以向 Product 組合框添加條件并在合適的位置包含代碼，以及不斷更新組合框。如何向產(chǎn)品查詢(xún)添加條件因?yàn)槟梢酝ㄟ^(guò)

12、Access 使用查詢(xún)的結(jié)果填充組合框，所以可以向該查詢(xún)添加條件，以限制組合框中的顯示內(nèi)容。在示例中，我們希望第二個(gè)組合框的條件將結(jié)果限制為只有那些與第一個(gè)組合框中的值相匹配的行。例如，假設(shè)要?jiǎng)?chuàng)建名為 Category 的類(lèi)別組合框和名為 Product 的產(chǎn)品組合框。單擊“Category”組合框時(shí)，您希望 Product 組合框僅列出該類(lèi)別中的產(chǎn)品。通過(guò)在查詢(xún)中為與 Category 組合框中的當(dāng)前值相匹配的 Product 組合框添加條件，可以實(shí)現(xiàn)該任務(wù)。向查詢(xún)添加條件    1. 打開(kāi) Product 組合框的屬性表。2. 單擊“行源”框，然后單

13、擊出現(xiàn)的省略號(hào)按鈕 (.)。3. 在“查詢(xún)生成器”中，確保字段網(wǎng)格列出了需要在 Product 組合框中顯示的產(chǎn)品表中的列，如“產(chǎn)品ID”、“產(chǎn)品名稱(chēng)”等等。請(qǐng)確保包含“類(lèi)別 ID”字段。4. 在“查詢(xún)生成器”網(wǎng)格的“類(lèi)別 ID”列中的“條件”行中，鍵入 窗體!組合窗體!類(lèi)別，使用您的窗體的名稱(chēng)替換“組合窗體”。該條件指示 Access 將查詢(xún)結(jié)果限制為只有那些與 Category 組合框中當(dāng)前所選的值相匹配的那些行?！安樵?xún)生成器”網(wǎng)格可能如下圖之一所示。5. 最后，關(guān)閉“查詢(xún)生成器”，然后關(guān)閉該查詢(xún)屬性表，在 Access 提示保存更改時(shí)，單擊“是”。Access 在關(guān)閉“查詢(xún)生成器”時(shí)將

14、SQL 語(yǔ)句插入到“行源”屬性中。SQL 語(yǔ)句包含如下所示的 WHERE 子句。WHERE (產(chǎn)品.類(lèi)別 ID)=窗體!組合窗體!類(lèi)別)WHERE 子句將行限制為只包含那些與 Category 組合框中的值相匹配的行。6. 保存該窗體。了解“綁定列”屬性和“列數(shù)”屬性使用組合框向?qū)У膬?yōu)勢(shì)之一是它自動(dòng)填充所需的屬性。這些屬性中有兩個(gè)需要做進(jìn)一步的解釋。· “綁定列”屬性指示 Access 組合框中哪一列包含將與該控件相關(guān)聯(lián)的值。該屬性使用表示行源中的列的數(shù)字，從 1 開(kāi)始，并從左到右繼續(xù)到 2、3 等。通常，選擇包含主鍵的列，如“類(lèi)別 ID”或“產(chǎn)品 ID”。這樣，如果引用該控件的值，

15、則可以得到所選行的“類(lèi)別 ID”或“產(chǎn)品 ID”字段的值。例如，表達(dá)式 窗體!組合窗體!類(lèi)別（在上圖所示的“查詢(xún)生成器”網(wǎng)格中輸入）返回 Category 組合框控件中所選行的“綁定列”屬性中存儲(chǔ)的值。因?yàn)?Category 組合框的“綁定列”屬性設(shè)置為 1，代表“類(lèi)別 ID”列，所以返回“類(lèi)別 ID”字段中的值。然后，該查詢(xún)使用類(lèi)別 ID 值與 Product 組合框的行匹配。· “列數(shù)”屬性指示 Access 在組合框中有多少列。例如，對(duì)于 Category 組合框，因?yàn)樵谛性粗杏袃闪校骸邦?lèi)別 ID”和“類(lèi)別名稱(chēng)”，所以要將該屬性的值設(shè)置為 2。對(duì)于 Product 組合框，因?yàn)?/p>

16、行源包括“產(chǎn)品 ID”、“產(chǎn)品名稱(chēng)”和“類(lèi)別 ID”列，所以要將“列數(shù)”屬性設(shè)置為 3。請(qǐng)注意，在計(jì)算“列數(shù)”的值時(shí)，必須計(jì)算其值在 Access 中設(shè)置為可用的所有列，不管該列在組合框中是否實(shí)際可見(jiàn)?？梢允褂谩傲袑挕睂傩噪[藏列。有關(guān)詳細(xì)信息，請(qǐng)參閱隱藏列部分。如何隨時(shí)更新組合框每當(dāng) Category 組合框中的值更改時(shí)，必須更新 Product 組合框。為此，可以添加 VBA 代碼，以便每當(dāng) Category 組合框更新時(shí)，重新查詢(xún) Product 組合框的行源。Access 為實(shí)現(xiàn)該目的提供了 AfterUpdate 事件。 我們來(lái)看一下 AfterUpdate 事件的代碼。首先，將 Pr

17、oduct 組合框的值設(shè)置為 Null，這樣可以確保最初在該框中不顯示任何內(nèi)容。這種做法很好，因?yàn)橐坏┻x擇了某種類(lèi)別，Product 組合框中當(dāng)前選中的值就會(huì)由于當(dāng)前顯示的產(chǎn)品屬于上一個(gè)類(lèi)別而無(wú)效。 接下來(lái)，通過(guò)調(diào)用 Requery 方法根據(jù)當(dāng)前類(lèi)別重新填充 Product 組合框。最后使用“項(xiàng)目數(shù)據(jù)”屬性將 Product 組合框預(yù)設(shè)為列表中的第一項(xiàng)?！绊?xiàng)目數(shù)據(jù)”屬性返回組合框或列表框中指定行的值。因?yàn)樵摿斜硎腔诹愕?，所以?qǐng)記住要選擇 0 作為第一行的索引，而不是 1。Private Sub CategoryAfterUpdate() Me.Product = NullEnd S

18、ub有關(guān)如何在 Category 組合框的 AfterUpdate 事件中編寫(xiě)代碼的詳細(xì)分步說(shuō)明，請(qǐng)參閱下面的擴(kuò)展部分。分步說(shuō)明：如何在第一個(gè)組合框中編寫(xiě)代碼，以自動(dòng)更新第二個(gè)組合框要?jiǎng)?chuàng)建代碼，請(qǐng)執(zhí)行下列操作：在“設(shè)計(jì)”視圖中打開(kāi)窗體    1. 在“數(shù)據(jù)庫(kù)”窗口中的“對(duì)象”下，單擊“窗體”。2. 單擊某個(gè)窗體，然后單擊“數(shù)據(jù)庫(kù)”窗口中的“設(shè)計(jì)”。編輯 Category_AfterUpdate 過(guò)程    1. 單擊“Category”組合框以將其選中。2. 在“視圖”菜單上，單擊“屬性”，然后單擊“事件”選項(xiàng)卡。

19、3. 單擊“更新后”框，然后單擊出現(xiàn)的省略號(hào)按鈕 (.)。4. 當(dāng)“選擇生成器”對(duì)話(huà)框出現(xiàn)時(shí)，單擊“代碼生成器”，然后單擊“確定”。5. 在 Visual Basic 編輯器 （Visual Basic 編輯器:一種環(huán)境，用于編寫(xiě)新的 Visual Basic for Applications 代碼和過(guò)程，并編輯已有的代碼和過(guò)程。Visual Basic 編輯器包括完整的調(diào)試工具集，用于查找代碼中的語(yǔ)法、運(yùn)行時(shí)和邏輯問(wèn)題。）中輸入代碼，以便 Category_AfterUpdate 過(guò)程與上一個(gè)示例所示完全相同。6. 完成后，在“文件”菜單上，單擊“保存”。然后，在“文件”菜單上，單擊“關(guān)閉并

20、返回到 Microsoft Office Access”。 7. 關(guān)閉屬性表。8. 關(guān)閉該窗體。打開(kāi)窗體時(shí)需要執(zhí)行的操作第一次打開(kāi)窗體時(shí)，您可能會(huì)發(fā)現(xiàn)組合框不顯示值，這是由于您尚未進(jìn)行選擇。對(duì)于示例窗體，我認(rèn)為最好顯示類(lèi)別列表中的第一個(gè)值和該類(lèi)別的第一個(gè)產(chǎn)品，因此我在窗體的 Load 事件中輸入了以下 VBA 代碼。在第一次打開(kāi)窗體時(shí)調(diào)用該代碼。它將類(lèi)別設(shè)置為列表中的第一個(gè)值，然后調(diào)用 Category_AfterUpdate 過(guò)程，以更新 Product 組合框。Private Sub Form_Load(Cancel As Integer) Call Category_AfterUpdat

21、eEnd Sub示例窗體使用未綁定 （未綁定控件:未與基礎(chǔ)表、查詢(xún)中的字段或 SQL 語(yǔ)句連接的控件。未綁定控件通常用于顯示信息性文本或裝飾性圖片。）組合框。未綁定組合框是未與表或查詢(xún)中的字段鏈接的一種組合框。如果使用綁定 （綁定列:列表框、組合框或下拉列表框中的列，該列綁定到控件的 控件來(lái)源 屬性所指定的字段。）組合框，則您可能不希望使用上面所示的 Form_Load 過(guò)程，因?yàn)槊看渭虞d窗體，它都將重新設(shè)置 Category。您可以刪除該代碼或使用如下所示的過(guò)程： Private Sub Form_Load(Cancel As Integer) If IsNull(Category) The

22、n Call Category_AfterUpdate End IfEnd Sub該版本僅在類(lèi)別為空時(shí)才重新設(shè)置類(lèi)別。有關(guān)如何在窗體的 Load 事件中輸入代碼的詳細(xì)分步說(shuō)明，請(qǐng)參閱下面的擴(kuò)展部分。分步說(shuō)明：如何在打開(kāi)窗體時(shí)運(yùn)行的 Load 事件中輸入代碼要?jiǎng)?chuàng)建代碼，請(qǐng)執(zhí)行下列步驟：在“設(shè)計(jì)”視圖中打開(kāi)窗體    1. 在“數(shù)據(jù)庫(kù)”窗口中的“對(duì)象”下，單擊“窗體”。2. 單擊某個(gè)窗體，然后單擊“數(shù)據(jù)庫(kù)”窗口中的“設(shè)計(jì)”。編輯 Form_Load 過(guò)程    1. 在“編輯”菜單上，單擊“選擇窗體”。2. 在“視圖”

23、菜單上，單擊“屬性”，然后單擊“事件”選項(xiàng)卡。3. 單擊“加載”框，然后單擊出現(xiàn)的省略號(hào)按鈕 (.)。4. 當(dāng)“選擇生成器”對(duì)話(huà)框出現(xiàn)時(shí)，單擊“代碼生成器”，然后單擊“確定”。5. 在 Visual Basic 編輯器 （Visual Basic 編輯器:一種環(huán)境，用于編寫(xiě)新的 Visual Basic for Applications 代碼和過(guò)程，并編輯已有的代碼和過(guò)程。Visual Basic 編輯器包括完整的調(diào)試工具集，用于查找代碼中的語(yǔ)法、運(yùn)行時(shí)和邏輯問(wèn)題。）中輸入代碼，以便 Form_Load 過(guò)程與上一個(gè)示例所示完全相同。6. 完成后，在“文件”菜單上，單擊“保存”。然后，在“文件

24、”菜單上，單擊“關(guān)閉并返回到 Microsoft Office Access”。7. 關(guān)閉屬性表。8. 關(guān)閉該窗體。如何處理記錄導(dǎo)航 如果使用綁定組合框，則仍可以使用此處所示的方法，但是需要考慮由于用戶(hù)在記錄之間導(dǎo)航而導(dǎo)致當(dāng)前記錄更改時(shí)，您希望出現(xiàn)什么情況。在這種情況下，每當(dāng)在記錄之間導(dǎo)航時(shí)，可能需要重新查詢(xún)第二個(gè)組合框。實(shí)現(xiàn)該操作的合適位置是在窗體的 Current 事件中，使用如以下示例所示的代碼。Private Sub Form_Current()End Sub有關(guān)如何在窗體的 Current 事件中輸入代碼的詳細(xì)分步說(shuō)明，請(qǐng)參閱下面的擴(kuò)展部分。分步說(shuō)明：如何在當(dāng)您在記錄之間導(dǎo)航時(shí)運(yùn)行的窗體的 Current 事件中輸入代碼要?jiǎng)?chuàng)建代碼，請(qǐng)執(zhí)行下列步驟：在“設(shè)計(jì)”視圖中打開(kāi)窗體    1. 在“數(shù)據(jù)庫(kù)”窗口中的“對(duì)象”下，單擊“窗體”。2. 單擊某個(gè)窗體，然后單擊“數(shù)據(jù)庫(kù)”窗口中的“設(shè)計(jì)”。編輯 Form_Current 過(guò)程