office交流網--QQ交流群號

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

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

access組閤框聯動示例,通過類彆篩選産品

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

在組閤框中選中一箇內容後,希望下一箇組閤框的內容是關於上一箇組閤框的內容。就是我們説的組閤框聯動。

比如説選擇瞭省份後,下一箇組閤框篩選齣屬於該省份的市,選擇瞭貨物類彆後,下一箇組閤框篩選齣該類彆的産品

有網友諮詢瞭這箇比較常用的功能,如選中洗髮水後,自動篩選齣有屬於洗髮水的商品



在組閤框的更新後事件中添加代碼,通過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


    分享