vba - Microsoft Access 中的可编辑组合框

Question

我正在尝试在我的访问表单中添加接近可编辑组合框的内容，用户可以在其中键入他们需要的内容或从可用条目列表中进行选择。我是新手，希望能提供有关如何完成此操作的任何信息。

当我测试下面的代码时没有任何反应。

代码

Private Sub ddlUNS1_NotInList(NewData As String, Response As Integer)
    Dim ctl As Control

    ' Return Control object that points to combo box.
    Set ctl = Me!ddlUNSC1

    If MsgBox("Value is not in list. Add it?", vbOKCancel) = vbOK Then

        MsgBox ("ddlUNSLEVEL NOT LISTED FIRED ")
    Else 
        'ctl.Undo
        MsgBox ("ddlUNSLEVEL  LISTED FIRED ")
    End If
End Sub

Answer 1

有多种选择。您可以参考绑定的字段：

Row Source: SELECT DISTINCT AddressType FROM ThisTable
Control Source : AddressType

这用途有限，可能只对短期数据库有用。

您可以使用NotInList 和 LimitToList添加新值。