Vba ms access中的if-else查询组合框

Vba ms access中的if-else查询组合框,vba,combobox,ms-access-2016,Vba,Combobox,Ms Access 2016,我创建了一个字段名“tool_used”,其中我指定了一些值,“others”是它的值之一。我们可以从该框中选择多个值。我想指定一个条件,如果该字段的值为others,则下一个字段可见,即“other_tool”。我为它写了一个代码,但它给出了一个错误13,当我调试它时,请在字段中指定一个值。。 请给我提供解决方案 我的代码是 Private sub tool_used_AfterUpdate() If me.tool_used.value = "others" t

我创建了一个字段名“tool_used”,其中我指定了一些值,“others”是它的值之一。我们可以从该框中选择多个值。我想指定一个条件,如果该字段的值为others,则下一个字段可见,即“other_tool”。我为它写了一个代码,但它给出了一个错误13,当我调试它时,请在字段中指定一个值。。 请给我提供解决方案

我的代码是

Private sub tool_used_AfterUpdate() 
    If me.tool_used.value = "others" then 
        Me.other_tools.visible = true 
    Else 
        Me.other_tools.visible = False 
    End If 
End sub

由于列表是多选的,因此需要循环浏览所选的

Dim item As Variant

With YourListBox
    For Each item In .ItemsSelected
        Debug.Print .ItemData(item)
    Next item
End With
如果选择了多个项目,其中一个是“其他”,会发生什么情况

编辑:

如果选择了“其他”选项,则循环并设置标志。如果没有,则
其他工具
控件将保持隐藏状态

Dim item As Variant, flag As Boolean

With YourListBox
    For Each item In .ItemsSelected
         If .ItemData(item) = "Other" Then flag = True: Exit For
    Next item
End With
    
other_tools.Visible = flag

仅当选择了“其他”时,下一个字段才可见;如果选择了其余项目,则该字段保持隐藏。如果我们选择了除“其他”以外的多个值,则下一个字段仍然隐藏。。。。。但问题是,当我们选择了多个值,并且还选择了其他值时,下一个字段应该是可见的。。。主要是围绕这个领域的“其他人”价值。。。。如果在任何情况下选择了其他字段,则下一个字段应该可见…我尝试了此代码,但现在弹出了错误424所需对象。能否指定YourListBox是内置函数?您需要用自己的控件名替换
YourListBox