代码之家 › 专栏 › 技术社区 › Gregg Lind

可编辑的可附加组合框(?)在MS访问中

ms-access

1

Gregg Lind · 技术社区 · 16 年前

我的目标是:

一个窗体字段(在MS Access中),具有一些下拉选项。如果所需的值不在查找表中,则用户应该能够通过键入来添加该值。

假设查阅表格有行:A、B、C、D。用户想要的是“E”,但它还不存在。理想情况下,它们将“重写”并键入“e”,然后将其添加到查找表中,以备将来输入。

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

谢谢你的建议!

2 回复 | 直到 16 年前

1

3

Gregg Lind 16 年前

啊哈,在这里解决了我自己的问题:

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

访问2007

在Access中使用新属性 2007:

在设计视图中打开窗体。

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

在“属性”框的“数据”选项卡上,设置允许值列表编辑为“是”,列表项编辑窗体转换为要使用的窗体的名称用于向列表中添加项。

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

对于旧版本的访问也有一些建议。

2

1

onedaywhen 16 年前

您可以尝试以下代码:

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

注意,我使用了学生的表名和sname的字段名。所以,只是将表名和字段更改为您使用的任何内容。