如何确保access ComboBox中有值？

Question

我有一个带有ComboBox和一个按钮的表单。 当单击按钮时，事件应在继续之前检查ComboBox是否具有值。 ComboBox具有默认值集：

• 名称= cmb名称，
• 默认值=“乔”，
• RowSource = SELECT name FROM table ORDER BY name;

这是我尝试的：

Private Sub btnOk_Click()
    If (CmbName.ListIndex = -1)Then
        Exit Sub
    End If
    'Do Something
End Sub 

但是，每次我单击按钮时， cmbName.ListIndex等于-1，即使存在默认值，该子项也会退出。

Answer 1

不知道我是否误会了一些东西； 您可以只使用IsNull()函数。

如果用户将值从默认值更改为空值，则将返回True 。

Private Sub btnOk_Click()
    If IsNull(CmbName.Value) Then
        Exit Sub
    End If
    'Do Something
End Sub 

Answer 2

ListIndex是ComboBox的属性。 它返回列表中所选值的索引。 例如：如果选择第一个值，则comboBox.listIndex = 0 。 如果没有值，则comboBox.listIndex = -1 。

如果用户未从列表中选择一个值，则该值为默认的“ joe”。

如果查询SELECT name FROM table ORDER BY name返回的列表中没有值“ joe”，则listIdex仍为-1。

尝试：

If (CmbName.ListIndex = -1) And (Trim(CmbName.Value & "") = "")

如果未选择任何值并且该框为空，则将返回true。