如何将不在列表中的值添加进去

lisashar

如在一人员窗体中创立了一个组合框，引用数据源为“职务等级”表，引用两列，列1为自动编号，列2为等级名称，显示为0，2厘米，绑定列1。限于列表
请问，当在人员窗体中输入不在列表中的等级名称时，弹出窗口询问该数据是否需要加入“职务等级”表中，确认后自动加入，同时刷新组合框数据，并且新等级可选，该如何写VBA..

谢谢！[em24]

lisashar

对，我查看了例子，发现联系人数据库的例子最接近，但在删除了enablebotton这个语句后才生效，否则出现子程序或函数错误的提示。
请问enablebotton有什么用？

谢谢

浪上飞郑

在ACCESS的示例数据库[INVENTRY]中，有一个增加不加列表中的房间的例子，兹作参考
有一个名为[房间]的字段属于[房间]表。
If MsgBox("是否将此数据项添加到列表中？", _
     vbYesNo + vbQuestion, "数据项不在列表中") = vbYes Then
        Response = AddToList("房间", "房间", NewData)
    Else
        Response = acDataErrDisplay
    End If

[此贴子已经被作者于2002-7-27 12:24:09编辑过]

lisashar

zhuyiwen
如果我没有记错的话，按是后，将打开组合框所引用的查询的窗体，然后再添加，再在组合框窗口刷新添加，能不能不打开窗体就添加呢
另请看一下我的关于报表求助

zhuyiwen

是呀，你来两篇吧。最近，我都有点不敢发贴了。

大熊

精品推荐少精品！

zhuyiwen

[em26]

大熊

我要知道，早就说了。

zhuyiwen

大熊，你告诉她，不就得了？

请见：

http://www.office-cn.net/bbs/dispbbs.asp?boardID=9&RootID=3481&ID=3481

[em26]

大熊

你没去精品推荐栏找找？