多选组合框 - 必填项

Question

这是我第一次在网站上发帖，尽管我找到了一些对我有帮助的答案。然而，尽管进行了广泛的研究，我还是无法找到这个特定问题的答案。

• 我有一个包含多个字段的表单，其中一些是强制性的，而另一些则不是

• 例如，我能够为除此（Field1）之外的所有必填字段开发代码。

• 不同之处在于 Field1 是一个带有复选框的下拉菜单，其中可以选择多个。

如何为以下代码调整这种类型的字段？

ElseIf Len(Me.Category & "") = 0 Then
Cancel = True
response = MsgBox("You must enter a value in 'Category'.", vbInformation, "Mandatory Field")
Me!Category.SetFocus

Category 是我的其他字段之一，此代码工作正常，但当我更改 Field1 的名称时，代码不起作用。

我希望我尽可能清楚，我非常感谢社区的一些帮助

谢谢，

阿布弗兰

Answer 1

我认为您要做的是将所有选定的项目放入一个数组中，然后确定数组的长度是否> 0。

虽然不完全相同，但我认为这个问题的已接受答案（带有绿色复选标记的答案）可以稍作更改，以提供您想要的：

How do I return multi select listbox values into a sentence using Word VBA?

编辑

您可以删除数组部分并仍然使用代码：

Public Function GetSelectedItems(lBox As MSForms.ListBox) As String

Dim i As Integer
Dim selCount As Integer
    selCount = -1
    '## Iterate over each item in the ListBox control:
    For i = 0 To lBox.ListCount - 1
        '## Check to see if this item is selected:
        If lBox.Selected(i) = True Then
            '## If this item is selected, then add 1 to your selCount counter
            selCount = selCount + 1
        End If
    Next

    If selCount = -1 Then
        '## If no items were selected, return a messagebox saying this is mandatory
        msgbox "You MUST select something from the listbox."
    Else:
        '## Otherwise, don't worry about it
    End If
End Function