如何创建多选组合框？

Question

我有一个连续形式的组合框。我需要点击几次来过滤数据。

例如，组合框中有数字1,2,3,4,5,6,7,9。当我点击＆＃34; 2＆＃34;第一次，它将是＆＃34; 2＆＃34;以连续的形式，然后我选择＆＃34; 4＆＃34;在组合框中，会有＆＃34; 2＆＃34;和＆＃34; 4＆＃34;

我已经用子表单完成了它，但现在我需要这个变量用于连续表单。

以下是我的子窗体变体代码

Option Compare Database 
Public f 

Private Sub Form_Load() 
    f = "" 
End Sub 

Private Sub no_filter() 
    f = "" 
    Me.t1.Form.FilterOn = False 
End Sub 

Private Sub combobox_AfterUpdate() 
    If f = "" Then 
        f = "n=" & Me.combobox 
    Else 
        f = f & " or n=" & Me.combobox 
    End If 
    Me.t1.Form.Filter = f 
    Me.t1.Form.FilterOn = True 
End Sub