如何使用“不在列表中”填充查找表

Question

表1：我的一般信息表

• 组织：默认为“N/A”但从...中提取值的查找/关系字段。

表 2：组织列表

• 没有 ID 字段，只有按添加顺序排列的组织名称

我的数据输入表单有一个用于组织的组合框，我希望在添加以前未添加的组织时更新它。我知道我应该使用“不在列表中”事件，但我不知道如何使用此事件更新组织列表。我该怎么做？

Answer 1

确保组合框的Limit To List 属性设置为Yes。

添加On Not In List 事件以在出现新值时将值插入源表：

Private Sub MyComboBox_NotInList(NewData As String, Response As Integer)

    With DoCmd
        .SetWarnings False
        .RunSQL "INSERT INTO [Organization List](Organizations) VALUES ('" & NewData & "')"
        Response = acDataErrAdded
        .SetWarnings True
    End With

End Sub

编辑……差点忘了……在我回答之前，你试过什么？ :)

编辑 2... 给出的示例是一个字符串值。如果 New Data 是数值，则从 New Data 的任一侧删除 '（但如果它是组织名称，则可能不是）。

编辑 3...INSERT SQL 只是将数据放入表中的一种方式。您可能更喜欢RecordSet.Add 和.Update 方法。