如何使列表框的一个选项将数据添加到新字段

Posted 2023-05-07

【中文标题】如何使列表框的一个选项将数据添加到新字段

【英文标题】：How to make one option of a listbox add data to a new field

【发布时间】：2014-03-17 18:43:04

【问题描述】：

我有一个 Microsoft Access 2010 表单中的列表框。列表框有几个选项，最后一个是“其他”。

当有人选择“其他”时，我希望用户能够输入他们的数据并将其推送到不同的字段中。请注意，我不希望用户向列表框添加 新选项。

例如，如果列表框是一个名为“浏览器”的字段，而我的选择是：Internet Explorer、Firefox、Chrome、其他。当此人选择“其他”时，我希望他们能够在我的数据库中名为“Browsers_Other”的字段中输入“Safari”。

我似乎无法弄清楚这一点。它看起来类似于“级联列表框”，但我认为它是不同的。我想知道是否需要让该操作打开一个子表单...

【参考方案1】：

您可以添加绑定到Browsers_Other 字段的文本框。我将我的文本框称为 txtOther。

然后从列表框的更新后事件中，在列表框选择为“其他”时启用文本框。当列表框选择为其他内容时，禁用文本框并将其值设置为 Null。

Private Sub lstBrowser_AfterUpdate()
    If Me.lstBrowser.value = "Other" Then
        Me.txtOther.Enabled = True
        Me.txtOther.SetFocus
    Else
        Me.cmdSave.SetFocus
        Me.txtOther.Enabled = False
        Me.txtOther.value = Null
    End If
End Sub

【讨论】：

如果我将 lstBrowser 更改为我的字段，它几乎可以工作。它在 cmdSave 上中断。那个命令是什么？

cmdSave 只是一个命令按钮。我的实际上并没有做任何事情......它只是在我禁用txtOther之前给了我SetFocus的位置。

我不太明白。如果我删除该行，代码可以工作，但不会将数据推送到字段中。当我移动到下一条记录时，如何真正让它写入该字段？

打开txtOther 的属性表并检查其控制源。当我说“绑定”文本框时，这意味着表单的记录源包含一个名为 Browsers_Other 的字段，该字段是文本框的控制源。