Office中国论坛/Access中国论坛

标题: 如何将不在列表中的值添加进去 [打印本页]

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

谢谢！[em24]

作者: tmtony 时间: 2002-7-17 21:26
去精品推荐栏目，我记得binbow_z版主有个源码例子

作者: lisashar 时间: 2002-7-19 23:07
找了一下，不大一样，我需要将不在表中的数据加入

作者: 大熊 时间: 2002-7-20 00:25
请发挥聪明才智，举一反三！：）

作者: lisashar 时间: 2002-7-24 00:22
标题: 抱歉，我只能以打开窗体的形式添加
我只能在该组和框显示不在列表中时，以打开数据源窗体的形式添加，但是我想直接弹出对话窗口确认后就添加进去，然后刷新组和框，选出值。

作者: 大熊 时间: 2002-7-24 00:32
该组合框是否连接到数据表的字段，是则加在数据表中，否则加在行来源中！

作者: lisashar 时间: 2002-7-24 21:09
标题: 请说详细点
是的，新增数据须加入到数据表中，组和框为2列，显示列2，绑定烈1（自动编号）[em26]

作者: 大熊 时间: 2002-7-24 23:16
你没去精品推荐栏找找？

作者: zhuyiwen 时间: 2002-7-24 23:21
大熊，你告诉她，不就得了？

请见：

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

[em26]

作者: 大熊 时间: 2002-7-24 23:57
我要知道，早就说了。

作者: zhuyiwen 时间: 2002-7-25 00:01
[em26]

作者: 大熊 时间: 2002-7-25 00:08
精品推荐少精品！

作者: zhuyiwen 时间: 2002-7-25 00:16
是呀，你来两篇吧。最近，我都有点不敢发贴了。

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

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

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

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

谢谢

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)