MS Access 中的可编辑、可附加组合框（？）答案

【问题标题】：Editable, Appendable ComboBox(?) in MS AccessMS Access 中的可编辑、可附加组合框（？）
【发布时间】：2009-07-14 15:20:38
【问题描述】：

我的目标：

具有一些下拉选项的表单字段（在 MS Access 中）。如果想要的值不在查找表中，用户应该可以通过输入来添加它。

假设查找表有以下行：A、B、C、D。用户想要的“E”还不存在。理想情况下，他们会“覆盖”并输入“E”，然后将其添加到查找表中以供将来输入。

我的 google-fu 在这方面失败了。我应该使用这个术语吗？有哪些好的方法？（到目前为止，我一直在玩组合框及其向导）。

感谢您的任何建议！

【问题讨论】：

标签： ms-access

【解决方案1】：

啊哈，在这里解决了我自己的问题：

http://allenbrowne.com/ser-27-01.html

访问 2007

在 Access 中使用新属性 2007：

在设计视图中打开您的表单。

右键单击组合，然后选择“属性”。

在属性框的数据选项卡上，设置允许值列表编辑为是，并列出项目编辑表格要使用的表格名称用于将项目添加到列表中。

当您使用此表单时，您可以现在右键单击组合，然后选择编辑列表项。

还有针对旧版本 Access 的建议。

【讨论】：

您还可以使用将它们插入的同一个表作为查找表。因此，任何新内容都会自动添加到有效选项列表中。
如果你有办法做到这一点，也许把它作为一个单独的完整答案？我的访问技能很弱:)

【解决方案2】：

你可以试试下面的代码：

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

   Dim strSql     As String
   If MsgBox(NewData & " not in list, add?", _
      vbYesNo + vbQuestion) = vbYes Then
      strSql = "insert into tblStudents (name) values(" & NewData & ")"
      CurrentDb.Execute strSql
      Response = acDataErrAdded
   End If

End Sub

注意，我使用了 Student 的表名和 Sname 的字段名。所以就将表名和字段更改为您使用的任何内容。

【讨论】：