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

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一个数字值（但如果它是一个组织名称，则可能不是）。

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