• <strong id="yd969"><track id="yd969"></track></strong>

    <li id="yd969"></li>
  • <rp id="yd969"><object id="yd969"></object></rp>
  • office交流網--QQ交流群號

    Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

    Word交流群:218156588             PPT交流群:324131555

    access組合框聯動示例,通過類別篩選產品

    2020-12-30 08:00:00
    tmtony8
    原創
    17330

    在組合框中選中一個內容后,希望下一個組合框的內容是關于上一個組合框的內容。就是我們說的組合框聯動。

    比如說選擇了省份后,下一個組合框篩選出屬于該省份的市,選擇了貨物類別后,下一個組合框篩選出該類別的產品

    有網友咨詢了這個比較常用的功能,如選中洗發水后,自動篩選出有屬于洗發水的商品



    在組合框的更新后事件中添加代碼,通過sql語句篩選出數據再作為下一個組合框的數據源

    Private Sub cbo1_AfterUpdate()
        Dim strSQL As String    
        strSQL = "Select 商品名稱 From 生活用品  Where 類別 = '" & Me.類別 & " '" 
        商品名稱.SetFocus 
        商品名稱 = ""
        商品名稱.RowSourceType = "Table/Query"
        商品名稱.RowSource = strSQL  '設置組合框的數據源
        商品名稱.ListRows =5
        商品名稱.Dropdown  '自動下拉列表
    End Sub


      分享