Ms access MS Access中可编辑、可追加的组合框（？）

我的目标是：

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

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

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

---

谢谢你的建议

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

访问2007

在Access中使用新属性的步骤 2007年：

在“设计”视图中打开窗体

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

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

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

---

对于旧版本的Access，也有一些建议。

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

访问2007

在Access中使用新属性的步骤 2007年：

在“设计”视图中打开窗体

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

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

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

---

对于旧版本的Access，还有一些建议。

您可以尝试以下代码：

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

注意，我使用了表名Students和字段名Sname。所以，只是

---

将表名和字段更改为您使用的名称。

您可以尝试以下代码：

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

注意，我使用了表名Students和字段名Sname。所以，只是

---

将表名和字段更改为您使用的任何名称。

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