从组合框中删除所选记录

Question

我有一个带有供应商组合框的访问表单。我在组合框旁边有一个“...”按钮控件，如果组合框是空的，它将打开一个新的供应商表格，如果它被占用，则会打开所选供应商。我的问题是，如果用户选择一条记录，然后意识到它的错误，并希望添加一个新的供应商。

当删除供应商名称时，无论是删除按钮还是退格键，记录似乎仍然被选中。但是，“...”按钮不起作用。试图离开记录意味着我收到错误You must enter a value in the Order.supplier_ID field。

有没有办法轻松清除选择？

我可以在没有此错误的情况下清除选择吗？允许用户离开组合框并选择“...”按钮

我是否需要VBA，我甚至在哪里开始？

Answer 1

这样的事可以帮到你：

1. 存储所选项目的索引
2. 将其更改为下一个或上一个
3. 删除
之前选择的项目

以下是代码：

Dim SelectedITM As Long

With Order.supplier_ID
    SelectedITM = .SelectedItem
    If SelectedITM <> .ListCount - 1 Then
        .Selected (SelectedITM + 1)
    Else
        .Selected (SelectedITM - 1)
    End If
    .Items.Remove (SelectedITM)
End With